社区 › AutoLISP/Visual LISP 编程技术 › 求教当标注夹点重合时、如何计算标注尺寸线倾斜角度

xiaocainiao 发表于 2023-6-28 20:26:09

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

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

xyp1964 发表于 2023-6-28 20:26:10

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

xiaocainiao 发表于 2023-6-29 06:10:52

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

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

gaics 发表于 2023-6-29 08:08:13

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

xiaocainiao 发表于 2023-6-29 08:14:46

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

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

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

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

xiaocainiao 发表于 2023-6-29 15:34:34

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


已经搞定了、谢谢

查看完整版本: 求教当标注夹点重合时、如何计算标注尺寸线倾斜角度