szx025 发表于 2016-9-23 07:57:30

如何取得尺寸标注的第四个点坐标

如何取得？的坐标

Sylvanas 发表于 2016-9-23 08:30:55

算出来

xyp1964 发表于 2016-9-23 22:19:37

;; Dim-p12
(defun Dim-p12 (s1 / p10 p14 p13 rr p10a p13a)
(setq        en   (entget s1)
        p10(cdr (assoc 10 en))
        p14(cdr (assoc 14 en))
        p13(cdr (assoc 13 en))
        rr   (angle p10 p14)
        p10a (polar p10 (+ rr (* pi 0.5)) 2)
        p13a (polar p13 rr 2)
)
(inters p10 p10a p13 p13a nil)
)

yoyoho 发表于 2016-9-24 08:51:33

感谢 xyp1964 版主 分享程序!!!!
页: [1]
查看完整版本: 如何取得尺寸标注的第四个点坐标