本帖最后由 958620832 于 2013-10-16 12:01 编辑
兄弟贴:动态引线标注 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=102054
从自身需要予以改版,现公布于众。
该程序具有如下几大特点:
1.设置缺省值,代替兄弟程序中对于档案的保存和调用,个人习惯而已。
2.线上和线下都可以写入文字,应用范围更广 。而兄弟程序中,文字只能写在线上。
(defun bz (/ *error* name1 name2 name3)
(defun *error* (msg) ;将描述错误的字符串存入变量msg
(entdel name1) (entdel name2) (if name3 (entdel name3))
(princ "错误: ")(princ msg)) ;打印错误信息
(setq ty (getvar "TEXTSTYLE"))
(setq kd1 (caadr (textbox (list '(0 . "text")(cons 1 txt1)(cons 40 300)(cons 41 0.7)(cons 7 ty)))))
;字高300,字宽高比0.7,可以自己设置,字体为当前字体
(setq kd2 (caadr (textbox (list '(0 . "text")(cons 1 txt2)(cons 40 300)(cons 41 0.7)(cons 7 ty)))))
;字高300,字宽高比0.7,可以自己设置,字体为当前字体
(setq kd (max kd1