求教当标注夹点重合时、如何计算标注尺寸线倾斜角度

xiaocainiao

请教一下论坛的各位大神！
就是当标注的脚点和尺寸线端点重合时（如图右）、如何用LISP计算尺寸线的倾斜角度；
以前我是利用标注的14和10组码获取的点来计算（如图左）、但是当14和10为一点时就无法计算了、
所以请教一下大家有没有其他方法、可以获取对齐标注和转角标注的倾斜角度

xyp1964

试试：
(cdr(assoc 50(entget(car(entsel)))))

xiaocainiao

xyp1964 发表于 2023-6-28 23:43
试试：
(cdr(assoc 50(entget(car(entsel)))))

50好像只适用于转角标注、对齐标注没看到这个组码

gaics

对齐标注不就是用13、14的坐标算角度吗

xiaocainiao

gaics 发表于 2023-6-29 08:08
对齐标注不就是用13、14的坐标算角度吗

感谢、是我傻了、老想着用14和10、忘了对齐标注和转角标注不一样了

xyp1964

1. (defun abc (s1 / ob on ent)
   
2.   "线性尺寸标注的角度"
   
3.   ;; (abc (setq s1(car(entsel"\n选择: "))))
   
4.   (setq        ob  (vlax-ename->vla-object s1)
   
5.         on  (vla-get-objectname ob)
   
6.         ent (entget s1)
   
7.   )
   
8.   (cond        ((= on "AcDbRotatedDimension") (cdr (assoc 50 ent)))
   
9.         ((= on "AcDbAlignedDimension")
   
10.          (angle (cdr(assoc 13 ent))(cdr (assoc 14 ent)))
    
11.         )
    
12.   )
    
13. )

(defun abc (s1 / ob on ent)<br />   "线性尺寸标注的角度"<br />   ;; (abc (setq s1(car(entsel"\n选择: "))))<br />   (setq        ob  (vlax-ename->vla-object s1)<br />         on  (vla-get-objectname ob)<br />         ent (entget s1)<br />   )<br />   (cond        ((= on "AcDbRotatedDimension") (cdr (assoc 50 ent)))<br />         ((= on "AcDbAlignedDimension")<br />          (angle (cdr(assoc 13 ent))(cdr (assoc 14 ent)))<br />         )<br />   )<br /> )

xiaocainiao

xyp1964 发表于 2023-6-29 13:29

已经搞定了、谢谢