社区 › AutoLISP/Visual LISP 编程技术 › 【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 static/image/common/back.gif
启用后，第一个没自动切换图层

已修正此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 static/image/common/back.gif
再提一个建议：
在某些情况下，如果空选择后回车的话，可能引起某些命令的这样的错误：
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】自动切换图层工具，源码奉献