★★★【尺寸文字自动避让程序源码】★★★
 

★★★【尺寸文字自动避让程序源码】★★★
www.dimcax.com
★★★【尺寸文字自动避让程序源码】★★★
;;尺寸文字避让
(defun c:yad_dimadjust(/ yad-dxf yad-perpt yad-chgent ss n m ent en ang w h l_dat l_mov oldang mov s pt pt1 pt2 l_adj en l_en disang disw dish item item1)
(defun yad-dxf(en n)
(if (not (listp en)) (setq en (entget en)))
(cdr (assoc n en))
)
(defun yad-perpt(pt pt1 pt2)
(inters pt1 pt2 pt (polar pt (+ (angle pt1 pt2) (/ pi 2)) 1
好好学习天天向上
沙发？？？
先向楼主的无私奉献致敬。。。
学习一下。
d
这样的程序楼主也想得出，一级棒！！收藏了。
d
修正了一下程序！
好好学习天天向上
学习一下lyy大哥的。
d