求2点位置写文字

chenbh2

求点击p1,及p2后
怎样得到jd值

(command "text" p8 2.5  jd  "长度");文字高度2.5 旋转jd

自贡黄明儒

(setq jd (/ (* (angle (getpoint) (getpoint)) 180) pi)

chenbh2

自贡黄明儒 发表于 2014-11-24 08:17
(setq jd (/ (* (angle (getpoint) (getpoint)) 180) pi)

谢谢黄总!我改成(setq jd (/ (* (angle p1 p2) 180) pi))
就可以了,
在明经多年了,从小白伸手到棵小草,感谢明经,感谢黄总及明经各位版主!