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

szx025

如何取得？的坐标

Sylvanas

算出来

xyp1964

2. ;; Dim-p12
   
3. (defun Dim-p12 (s1 / p10 p14 p13 rr p10a p13a)
   
4.   (setq        en   (entget s1)
   
5.         p10  (cdr (assoc 10 en))
   
6.         p14  (cdr (assoc 14 en))
   
7.         p13  (cdr (assoc 13 en))
   
8.         rr   (angle p10 p14)
   
9.         p10a (polar p10 (+ rr (* pi 0.5)) 2)
   
10.         p13a (polar p13 rr 2)
    
11.   )
    
12.   (inters p10 p10a p13 p13a nil)
    
13. )

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

yoyoho

感谢 xyp1964 版主 分享程序!!!!