本帖最后由 fl202 于 2018-2-2 12:34 编辑
ruirui999 发表于 2018-1-29 16:25
这样．你看看．
原程序语句如下：
(SETQ len (p2u222 88) OLDWZ WZTXT LEN1(* 0.26 4 len)) ;;计算横向长度
LEN1 值代表的是长度，你可以修正，比如LEN1(* 0.26 7len)
如果根据文字长度来自动修正宽度，这个需要加入判断语句。
添加以下语句：
(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) ))
)
kexiya123 发表于 2018-1-26 09:03
fl202,为什么替换好后，这右键菜单表格不会消失,我也是这样的，CAD版本2010的
传个动态演示的gif文件上来。你说的不会消失是指什么时候，是最终结束后还是在循环中，还是错误什么的？
fl202 发表于 2018-1-30 09:22
原程序语句如下：
(SETQ len (p2u222 88) OLDWZ WZTXT LEN1(* 0.26 4 len)) ...
改一下嘛。我觉得很有必要。
fl202大师看下是什么情况呢，谢谢！
kexiya123 发表于 2018-2-2 08:21
fl202大师看下是什么情况呢，谢谢！
抱歉，从你的gif文件中看不出来出错原因。命令行只有三行，没看到出错信息。
我已更新程序，增加了一点功能。
请重新下载我的程序，再运行程序，把命令行的：错误信息 贴出来，我据此修改程序，谢谢！
ljwsyzf 发表于 2018-1-16 14:37
为什么替换好后，这右键菜单表格不会消失？
我已更新程序，增加了一点功能。
请重新下载我的程序，再运行程序，把命令行的：错误信息 贴出来，我据此修改程序，谢谢！
看看呢，这是更新后的程序，情况一样。
本帖最后由 fl202 于 2018-2-24 13:27 编辑
kexiya123 发表于 2018-2-2 13:46
看看呢，这是更新后的程序，情况一样。
错误显示是：无效选择。
cad2010中出错，不知道是不是这个版本的问题，未找到具体错误的原因。
fl202 发表于 2018-2-2 12:28
我已更新程序，增加了一点功能。
请重新下载我的程序，再运行程序，把命令行的：错误信息 贴出来，我据 ...
还是不行，表格依然停留在那边·~·我用1314的代码自己做了一个表格是能自动删除的。
fl202 发表于 2017-12-8 16:36
2018.2.2更新，烦请各位重新下载测试，重新下载不会反复收币。谢谢！
下载地址：
更新后的gif见下方：
...
在布局还是看不到？？这有办法解决吗