请教，怎样提取获得点的x y坐标值

晓雨 · 发表于 2004-2-24 20:03:00

请教，怎样提取获得点的x y坐标值

cqnj023 · 发表于 2004-2-24 23:00:00

(setq dd (getpoint "\n选点"))
(setq x (car dd))
(setq y (cadr dd))

晓雨 · 发表于 2004-2-25 07:49:00

谢谢你了，我还有很多问题，就是怎样在程序里面建立一个表格，只要选定一项，就可以让程序选定这一项后的相关项目，谢谢

晓雨 · 发表于 2004-2-26 20:34:00

假如，我已经在屏幕上选了一个点并（setq pt(getpoint )定义了，我要在另一个点pt2为起点画直线，这个点与pt点的相对坐标是@20,5 我应该怎么定义这个点，
（command"_.line"　pt2 pt3 "")
这个pt2,pt3怎么定义？

f5612140 · 发表于 2004-2-27 08:49:00

(setq pt2 (mapcar '+ pt '(20.0 5.0 0.0)))