[VBA] 关于如何取得点的坐标

tfod2000 · 发表于 2004-11-2 11:08:00

我通过选择集在实体中选择了一些实体，当选择是点时我想返回它的坐标。不知道怎么实现。又要向各位老师请教了。

yulijin608 · 发表于 2004-11-2 15:06:00

你看可不可以通过lisp取坐标，用thisdrawing.secondcommand
ThisDrawing.SendCommand "(setq b (assoc 10(entget(entlast)))) "
ThisDrawing.SendCommand "(setvar " & """userr1""" & "(cadr b)) "
ThisDrawing.SendCommand "(setvar " & """userr2""" & "(caddr b)) "
ThisDrawing.SendCommand "(setvar " & """userr3""" & "(cadddr b)) "