ruirui999 发表于 2018-1-27 20:05
目前仅支持两列，比如我要支持个四五列以上呢？
我只是修复了下高版本下的错误。你这得改主函数了，自己根据自己需求改改吧。
你进连接去看看那个gif，估计那才是你的梦想操作
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101224&fromuid=282351
http://bbs.mjtd.com/forum.php?mod=attachment&aid=NzQ5Njd8YmE4NzA0YTJ8MTUxNzIwMjA5OXwzMTgwNDl8MTAxMjI0&noupdate=yes gason 发表于 2018-1-29 13:09
我只是修复了下高版本下的错误。你这得改主函数了，自己根据自己需求改改吧。
你进连接去看看那个gif， ...
看起来好强大呀。 USER2128 发表于 2018-1-26 08:34
能不用就不用wipeout
我推荐：菜单式选择修改文字
采用多行文本加底色方式，效果相当好
(gxl-makewipeout (LIST P1 P2 P4 P3));屏蔽此句即可。
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101509&extra=page%3D1&page=16
不屏蔽就像我的151楼的演示gif见一样，有重叠会看不清楚。
还是判断后加载使用好。 原来是这样的 ruirui999 发表于 2018-1-27 20:12
文字超出范围了。
已更新附件 本帖最后由 gason 于 2018-2-4 22:19 编辑
gason 发表于 2018-2-3 22:40
已更新附件
[【风之影】] [源码]智能填写标题栏
http://bbs.mjtd.com/thread-92099-1-1.html
无聊测试了下，还行。有点小八哥，有点毛慥慥的。哪个大神有空去优化下就完美了。
(defun c:btl(/ scl tblock edata ename w1 w2 sitem
DESCRIPTION MATERIAL SCALE PAGES PAGE llist )
(setvar "cmdecho" 0)
(setq scl (getvar "dimscale"))
(setq tblock (ssget "x" '((0 . "INSERT")(2 . "gbt*"))))
(setq edata (entget (ssname tblock 0)))
(setq DESCRIPTION '("轴" "板" "块" "轴套" "支架" "调整垫" "导向"))
(setq MATERIAL '("Q235A" "45" "20CrMnTi" "T10A" "40Cr" "38CrMoAl" "Cr12MoV" "20" "20Cr" "65Mn"))
(setq SCALE '("100:1" "50:1" "20:1" "10:1" "5:1" "4:1" "2:1" "1:1" "1:2" "1:4" "1:5" "1:10" "1:20" "1:50" "1:100"))
(setq PAGES '("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12"))
(setq PAGE '("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12"))
(while (setq sitem (nentsel))
(if (and (setq edata (entget (setq ename (car sitem))))(= (cdr (assoc 0 edata)) "ATTRIB"))
(progn
(setq llist (eval (read (cdr (assoc 2 edata)))))
(if (> (length llist) 0) (yy:EditText sitem llist nil))
)
(alert "选错了!")
)
)
)
试试看，谢谢
页:
1
[2]