标注界址点号lisp_动态引线标注（改版） - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 动态 - Powered by Discuz!...

本帖最后由 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