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

学习,现在我也要这个功能
页: 1 [2] 3
查看完整版本: 点选直线,以此线图层的名字在直线附近写出文字