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

AutoCAD VBA怎么实现这个功能：鼠标左键单击拾取该点的坐标，右键单击结束
以下这段代码是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中该怎么写？
没有积分了，不好意思。
------解决方案--------------------
打开VBA编辑器，插入一个新的模块，输入以下代码：
Public Sub main()
    ThisDrawing.SendCommand "pline "
End Sub
运行即可。