AutoCAD VBA怎么实现这个功能：鼠标左键单击拾取该点的坐标，右键单击结束

[kuangwei86903222]

以下这段代码是AutoLisp的实现；
(command "pline")
(setq pt(getpoint "\n输入点坐标:"))
(command pt)
(while(/= nil pt)
(princ (rtos (car pt) 2 2) f)
(princ " " f)
(princ (rtos (cadr pt) 2 2) f)
(princ " " f)
(princ (rtos (last pt) 2 2) f)
(princ "\n" f)
(setq pt(getpoint pt "\n输入点坐标:"))
(command pt)
)

这句话(while(/= nil pt)在vba中该怎么写？
没有积分了，不好意思。

[kuangwei86903222]

没人知道么？

[caomangyx]

打开VBA编辑器，插入一个新的模块，输入以下代码：
Public Sub main()
ThisDrawing.SendCommand "pline "
End Sub
运行即可。