【函数源码分享】根据G版思路写的右键菜单函数。附实例代码。

fl202

ruirui999 发表于 2018-1-29 16:25
这样．你看看．

原程序语句如下：
(SETQ len   (p2u222 88)        OLDWZ WZTXT        LEN1  (* 0.26 4 len)  )        ;;计算横向长度  

LEN1 值代表的是长度，你可以修正，比如  LEN1  (* 0.26 7  len)

如果根据文字长度来自动修正宽度，这个需要加入判断语句。

添加以下语句：
(cond
  ((<= (strlen WZtxt) 5 )(setq LEN1  (* 0.26 4 len) )  )       ;;计算横向长度  
  ((<= (strlen WZtxt) 10 )(setq LEN1  (* 0.26 7 len) )  )
  ((<= (strlen WZtxt) 18 )(setq LEN1  (* 0.26 10 len) )  )
  (t (setq LEN1  (* 0.26 15 len) )  )
  )

fl202

kexiya123 发表于 2018-1-26 09:03
fl202,为什么替换好后，这右键菜单表格不会消失,我也是这样的，CAD版本2010的

传个动态演示的gif文件上来。你说的不会消失是指什么时候，是最终结束后还是在循环中，还是错误什么的？

ruirui999

fl202 发表于 2018-1-30 09:22
原程序语句如下：
(SETQ len   (p2u222 88)        OLDWZ WZTXT        LEN1  (* 0.26 4 len)  )        ...

改一下嘛。我觉得很有必要。

kexiya123

fl202大师看下是什么情况呢，谢谢！

fl202

kexiya123 发表于 2018-2-2 08:21
fl202大师看下是什么情况呢，谢谢！

抱歉，从你的gif文件中看不出来出错原因。命令行只有三行，没看到出错信息。
我已更新程序，增加了一点功能。
请重新下载我的程序，再运行程序，把命令行的：错误信息 贴出来，我据此修改程序，谢谢！

fl202

ljwsyzf 发表于 2018-1-16 14:37
为什么替换好后，这右键菜单表格不会消失？

我已更新程序，增加了一点功能。
请重新下载我的程序，再运行程序，把命令行的：错误信息 贴出来，我据此修改程序，谢谢！

kexiya123

看看呢，这是更新后的程序，情况一样。

fl202

kexiya123 发表于 2018-2-2 13:46
看看呢，这是更新后的程序，情况一样。

错误显示是：无效选择。
cad2010中出错，不知道是不是这个版本的问题，未找到具体错误的原因。

ljwsyzf

fl202 发表于 2018-2-2 12:28
我已更新程序，增加了一点功能。
请重新下载我的程序，再运行程序，把命令行的：错误信息 贴出来，我据 ...

还是不行，表格依然停留在那边·~·我用1314的代码自己做了一个表格是能自动删除的。

lwl450

fl202 发表于 2017-12-8 16:36
2018.2.2更新，烦请各位重新下载测试，重新下载不会反复收币。谢谢！
下载地址：
更新后的gif见下方：
...

在布局还是看不到？？这有办法解决吗