［caoyin版主自己解决了]能得到标注的两个尺寸界线与尺寸线的交点坐标吗
www.dimcax.com
不知能否直接知道两个点的坐标
d
d
;ko版
(defun tt(ena / os edata m10 m14 m13 mid34 arc04 mpt)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq edata (entget ena)
m10 (dxf 10 edata)
m14 (dxf 14 edata)
m13(dxf 13 edata)
mid34 (kovv m13 m14)
arc04 (angle m10 m14)
mpt (polar mid34 arc04 50)
)
(setq othpt (ko-get-mirrpt m10 mid34 mpt))
(setvar "osmode" os)
(list m10 othpt)
)
(defun ko-get-mirrpt (pt pt1 pt2 / inpt)
(setq inpt
(inters
pt
(polar pt (+ (/ pi 2) (angle pt1 pt2)) 100)
pt1
pt2
nil
)
)
(polar inpt (angle pt inpt) (distance pt inpt))
)
自己做了一个，caoyin哥 ，好像通吃的呢，几何关系
d
谢谢
d