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

gason

wowan1314的模拟菜单函数用于高版本报错
http://bbs.mjtd.com/thread-101509-1-1.html
看了尘缘一生的改进版依旧没解决
http://bbs.mjtd.com/thread-172432-1-1.html
主要是因为wipeout所需加载的acwipeout.arx，高版本为acismui.arx。

  (if (not (member "acismui.arx" (arx)))
    (arxload "acismui.arx")
  )


附件把出错修复了下，可以用了但任需完善，收点懒人税，版权归原作者。

2018-02-03
更新了下附件，改写了主函数，支持多列，自动缩小字体适应格子。
主函数本想加上tab，没来得及，所以暂未做防错处理，毕竟只是个过渡产品。

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

)

gason

lxdz443 发表于 2018-1-27 07:48
http://bbs.mjtd.com/thread-170165-1-1.html参考这个帖子，把G版的（gxl-makewipeout pts）函数给屏蔽掉就 ...

绘制wipeout，主要是遮盖菜单下的对象，相当于不透明的作用。对于菜单功能，遮盖还是有一定必要的。

想适应高低版本可以加个版本判断
          (if (< (atof (getvar "ACADVER")) 18.3)
                (setq wipoutarx "acwipeout.arx")
                (setq wipoutarx "acismui.arx")
        )

        (if (not (member wipoutarx (arx)))
                (arxload wipoutarx)
        )

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见一样，有重叠会看不清楚。
还是判断后加载使用好。

USER2128

能不用就不用wipeout
我推荐：菜单式选择修改文字
采用多行文本加底色方式，效果相当好

LIULISHENG

原来是这样的

gason

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

谢谢推荐！
当然，满足需求就行，引用得越少越好。
但这个美观点，有人会喜欢。

kexiya123

退出后还是有表格啊？

gason

kexiya123 发表于 2018-1-26 09:38
退出后还是有表格啊？

没了，不能从 *error* 调用command

yoyoho

谢谢! gason 分享学习!!!!

lxdz443

http://bbs.mjtd.com/thread-170165-1-1.html参考这个帖子，把G版的（gxl-makewipeout pts）函数给屏蔽掉就可以了。

ruirui999

有个问题 能不能自动根据文字多少 生成多列啊。