【Gu_xl】自动切换图层工具，源码奉献

brige2009 · 发表于 2011-10-16 17:16:40

OK了，非常感谢

fundoll · 发表于 2011-10-16 22:22:54

我想下载试用一下！

谢谢版主

lohas1118 · 发表于 2011-10-19 14:48:41

不错，支持

Jalinnet · 发表于 2011-10-20 07:27:47

启用后，第一个没自动切换图层

Gu_xl · 发表于 2011-10-20 12:57:37

Jalinnet 发表于 2011-10-20 07:27
启用后，第一个没自动切换图层

已修正此BUG,请在一楼重新下载使用！

highflybir · 发表于 2011-10-20 14:17:52

本帖最后由 highflybir 于 2011-10-20 14:19 编辑

再提一个建议：
在某些情况下，如果空选择后回车的话，可能引起某些命令的这样的错误：
Command: _dimbaseline
Select base dimension: -----此处空回车
; error: bad argument type: lselsetp nil
暂时未检测是哪个地方的bug

Gu_xl · 发表于 2011-10-20 15:00:22

highflybir 发表于 2011-10-20 14:17
再提一个建议：
在某些情况下，如果空选择后回车的话，可能引起某些命令的这样的错误：
Command: _dimba ...

找到问题所在啦，在初始空白图下，会出现此错误提示！问题出在 gxl-sel-entnextall 函数
修正如下：

(defun gxl-Sel-EntNextAll (ent / ss)
(if (not ent)
(progn
(setq ent (entnext)) ;_ 当图内空无一物，该函数返回nil,(setq ss (ssadd ent))
就出错啦！
(if ent ;_ 过滤ent为nil的情况
(setq ss (ssadd ent))
(setq ss (ssadd))
)
)
(setq ss (ssadd))
)
(while (setq ent (entnext ent))
(if (not (member (cdr (assoc 0 (entget ent))) '("ATTRIB" "VERTEX" "SEQEND")))
(ssadd ent ss)
)
)
(if (= 0 (sslength ss))
nil
ss
)
)

Jalinnet · 发表于 2011-10-20 22:05:41

能否加个错误处理函数？
不要出现这样的提示”错误: 参数类型错误: lselsetp nil“

Jalinnet · 发表于 2011-10-20 22:18:19

个人觉得fsxm老大的图层自动跳转程序就很不错！
Gu_xl楼主能否也山寨一个，提供源码学习学习？！

zzc83 · 发表于 2011-10-20 22:29:51

关于自动图层工具有个建议，就是可以设置多种状态：线在状态1中是A图层，线在状态2中是B图层，线在状态3中是C图层，.状态123之间的转换最好是组合键CTRL+Q(任意键)，这样就可以适用很多图了。期待您的大作

账号		自动登录	找回密码
密码			注册

[【Gu_xl】] 【Gu_xl】自动切换图层工具，源码奉献

点评

本帖子中包含更多资源

点评

点评