[LISP]怎样获取coordinates的坐标值？

springsky · 发表于 2004-5-29 10:33:00

请问：怎样获得CAD窗口下面动态显示的点的坐标值？即coordinates里面显示的坐标点。

无痕 · 发表于 2004-5-29 10:42:00

论坛有不少这样的例子，你搜索一下。
方法是 coordinates 转表（vlax-safearray->list）后对表进行分段.

lzy9788 · 发表于 2004-5-31 19:33:00

getpoint

龙龙仔 · 发表于 2004-6-1 08:14:00

(cadr(grread 2))

springsky · 发表于 2004-6-3 19:59:00

可是我希望是动态的，实时的显示得到这个值，但等到按下鼠标左键时才写下这个值。

龙龙仔 · 发表于 2004-6-4 08:17:00

(defun C:TT ()
   (while (/= 3 (car (setq A (grread 1 1))))
   (print (cadr A))
   )
   (alert (vl-princ-to-string (cadr A)))
)

king-2000 · 发表于 2004-7-16 19:13:00

楼上的，
你怎么这么厉害？

king-2000 · 发表于 2004-7-16 19:14:00

是看书学的么？

nodbird · 发表于 2004-7-17 18:03:00

这里的斑竹都是高手.我是敬佩的很。
请问当敲右键时退出的循环怎么做,输入一次运行一次有点麻烦.
不晓得这个条件怎么写

龙龙仔 · 发表于 2004-7-18 08:08:00

(defun C:TT ()
   (while (/= 11 (car (setq A (grread 1 1))))
   (print (cadr A))
   )
   ;(alert (vl-princ-to-string (cadr A)))
   (princ)
)