yang686526

请问怎么得到尺寸线的角度
www.dimcax.com
请问怎么得到尺寸线的角度
请问怎么得到尺寸线的角度,谢谢
d
;; ▓ (lt:dim-definingpoint edata)
;; [功能] 获取标注的定义点
;; [参数] edata---标注对象的 dxf 定义数据
;; [返回] 包含两个点的表，依次为 (第一个尺寸线定义点 第二个尺寸线定义点)
(defun lt:dim-definingpoint (edata / dxf typ p10 p13 p14 ang)
(setq dxf (lambda (x) (cdr (assoc x edata)))
typ (- (dxf 70) 32)
p10 (dxf 10)
p13 (dxf 13)
)
(list (cond
((zerop typ)
(setq ang (dxf 50) p13 (list (car p13) (cadr p13) (last p10)))
(inters p10 (polar p10 ang 1) p13 (polar p13 (+ ang (/ pi 2)) 1) nil)
)
((= typ 1)
(setq p14 (dxf 14) ang (if (equal p14 p13 1e-7) 0 (angle p14 p13)))
(if (equal p10 p14 1e-7)
p13
(polar p10 ang (dxf 42))
)
)
)
p10
)
)
用法：根据两个定义点求出角度
(apply 'angle (lt:dim-definingpoint (entget (car(entsel)))))
d
万分感谢我试试
d
大侠，能否告诉我如何得到尺寸线的位置，或尺寸线离标注点的距离，谢谢
d