点选直线，以此线图层的名字在直线附近写出文字

njut_prince · 发表于 2011-10-7 10:40:57

我也来看看学习

toeastone · 发表于 2011-11-8 15:05:06

非常感谢 ZZXXQQ 版主的回帖，我试用了一下程序，很不错，非常感谢！

czb203 · 发表于 2011-11-18 11:17:30

这个软件很管用啊谢谢

asdasdasd222 · 发表于 2012-2-2 16:06:44

看不到哦怎么办啊

王阿非 · 发表于 2012-2-21 16:28:18

希望能够学习到

gamemaster · 发表于 2012-3-5 14:41:13

可惜看不到。
貌似新手回帖不够就不能看、。

gamemaster · 发表于 2012-3-5 14:41:46

如果有一天我成为高手了。我一定大大的奉献我的力量。

danxingpen · 发表于 2012-4-18 00:47:10

;借用版主的改一下,操作过程完全按引线的操作
(defun c:tt ()
(setvar "CMDECHO" 0)
(while (setq s1 (entsel "\nÑ¡ÔñÎïÌå :"))
(setq lnm (cdr(assoc 8 (entget(car s1)))))
(command ".qleader" (cadr s1) pause pause "" lnm "")
)
(setvar "CMDECHO" 1)
(princ)
)

e2002 · 发表于 2012-4-19 10:43:12

看了一下楼主的图,
这个适合用 grread 做个动态拖动 , 可设置 A 键为切换是否有引线 , S 键切换文字是否水平与UCS或者与线平行.

lifefun · 发表于 2012-11-7 16:58:52

学习，现在我也要这个功能

账号		自动登录	找回密码
密码			注册