简单修改wowan1314右键菜单函数以适用于高版本

ruirui999

目前仅支持两列，比如我要支持个四五列以上呢？

ruirui999

文字超出范围了。

gason

ruirui999 发表于 2018-1-27 20:05
目前仅支持两列，比如我要支持个四五列以上呢？

我只是修复了下高版本下的错误。你这得改主函数了，自己根据自己需求改改吧。
你进连接去看看那个gif，估计那才是你的梦想操作
http://bbs.mjtd.com/forum.php?mo ... &fromuid=282351

ruirui999

gason 发表于 2018-1-29 13:09
我只是修复了下高版本下的错误。你这得改主函数了，自己根据自己需求改改吧。
你进连接去看看那个gif， ...

看起来好强大呀。

fl202

USER2128 发表于 2018-1-26 08:34
能不用就不用wipeout
我推荐：菜单式选择修改文字
采用多行文本加底色方式，效果相当好

(gxl-makewipeout (LIST P1 P2 P4 P3));屏蔽此句即可。
http://bbs.mjtd.com/forum.php?mo ... age%3D1&page=16
不屏蔽就像我的151楼的演示gif见一样，有重叠会看不清楚。
还是判断后加载使用好。

tanwei

原来是这样的

gason

ruirui999 发表于 2018-1-27 20:12
文字超出范围了。

已更新附件

gason

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 "选错了!")
    )
  )

)

20150311

试试看，谢谢