不會啊，能弄個麼？“”
陨落 发表于 2014-12-27 21:22
应该搞个反应器，能自动变下划线长度
不會，能寫一個麼？
.
本帖最后由 maiko 于 2014-12-29 18:37 编辑
http://bbs.mjtd.com/forum.php?mo ... 47&page=1#pid610655
用G版函数 getTextBox 先求出文字下面角点，再画pline线
maiko 发表于 2014-12-29 18:31 static/image/common/back.gif
http://bbs.mjtd.com/forum.php?mo ... 47&page=1#pid610655
用G版函数 getTextBox 先求出文字下面角点，再 ...
我只要个下划线，就行了，你给的太复杂了。
tyrasv 发表于 2014-12-30 21:44 static/image/common/back.gif
我只要个下划线，就行了，你给的太复杂了。
用6楼的改了一下，其实楼主也可以自己改一下的，自己改才是适合自己想要的效果:
不支持mtext,是mtext要先炸开.;;文字下画线
(defun c:tt(/ dd ss i ssn ssdatabox p1 p2 p3 p4 ang)
(command "_.undo" "_be")
(setq ss(ssget '((0 . "text"))))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq key (cdr (assoc 0 ssdata)))
(command "ucs" "e" ssn)
(setq box (textbox ssdata))
(setq p1 (car box))
(setq p3 (cadr box))
(setq p2(list (car p3)(cadr p1)))
(setq p4(list (car p1)(cadr p3)))
(setq dd (*(distance p1 p4) 0.1) );;线与字间距
(setq ang (angle p1 p4))
(setvar "PLINEWID" (* dd 0.5)) ;下划线宽
(command "pline" "non" (polar (polar p1 (- ang)dd)pi (* dd2)) "non" (polar (polar p2 (- ang)dd) (* pi 2) (* dd2)) "")
(setq i (1+ i))
)
(command "ucs" "")
(command "_.undo" "_e")
(setvar "PLINEWID" 0)
(prin1)
)
kwok 发表于 2014-12-31 15:00 static/image/common/back.gif
用6楼的改了一下，其实楼主也可以自己改一下的，自己改才是适合自己想要的效果:
不支持mtext,是mtext要先 ...
我不会，主要是。
基本解决问题了，楼主还要啥要求啊！
守仁格竹GM 发表于 2014-12-29 13:51 static/image/common/back.gif
.
你这个不错~
郭文姬happy 发表于 2014-12-26 14:30 static/image/common/back.gif
(defun c:40()
(initget "T B A")
(setq typ (getkword"\n 画线样式:"))
上划线好像不能用， 如果文字选多了，会自动乱连，是不是有什么要求？