社区 › AutoLISP/Visual LISP 编程技术 › 小菜版选择易，欢迎使用并提出完善建议

whybry 发表于 2011-9-6 11:47:04

选择易很实用的工具啊，找了很久源码了

zhongzilei 发表于 2011-9-6 14:28:53

命令: (setq acaddoc (vla-get-activedocument (vlax-get-acad-object)) acadlay
(vla-get-Layers acaddoc)))
输入中含有多余的闭括号
命令: (ss-getcolor (car(entsel)))

选择对象: 7

命令: (ss-dxf 39 (car(entsel)))

选择对象: 3000.0

命令: (ss-dxf 40 (car(entsel)))

选择对象: nil

命令: (ss-dxf 41 (car(entsel)))

选择对象: 150.0

命令: (setq acaddoc (vla-get-activedocument (vlax-get-acad-object)) acadlay
(vla-get-Layers acaddoc))
#<VLA-OBJECT IAcadLayers 074241a4>
第一行的说是有多余的闭号，在最后又去掉了多余的括号

小菜123 发表于 2011-9-6 14:59:02

本帖最后由 小菜123 于 2011-9-6 15:05 编辑

40组码，附图中的"左侧宽度"，你的怎么会是nil？
一楼的程序更新过了，墙厚不存在就不计算墙总厚，试试能不能用

mj0000 发表于 2011-9-6 15:27:47

图层下拉列表好慢，CAD已经为这个崩溃好几次了，不建议图层下拉，还是图层多选好用。

小菜123 发表于 2011-9-6 15:47:19

本帖最后由 小菜123 于 2011-9-6 16:10 编辑

是不是图层太多了？我在很旧的电脑上测试也没有任何延迟，更没有崩溃。不知道其他人使用起来如何？
一楼的源程序是没有图层下拉列表的多选版。编译版有两个，一个是有图层下拉列表的，一个是没有的，可以选择下载。
同时也请其他朋友反馈哪一个好些？

mj0000 发表于 2011-9-6 16:10:05

估计是文件问题，刚才运行的那个文件里面很多错误，图层名里面也有好多不是文字的字符存在，估计也是个原因。不过还是觉得列表分开比较稳定些，崩溃了，连补救措施都没的了。再说了，选择不同的图层毕竟还是比较少用（呵呵，不知道别人是不是常用），稳定第一吧，而且还能保证速度。

小菜123 发表于 2011-9-6 16:59:52

多选图层有点用，选择不同的图层我觉得没有用处，只是作为程序的一种尝试而已

飞诗(fsxm) 发表于 2011-9-6 17:24:47

过来帮顶

zhongzilei 发表于 2011-9-6 20:12:40

可以了，少了一个一功能

zhongzilei 发表于 2011-9-6 20:19:40

另外在通用那一项能不能再增加一个线型选择，同一个图层也有不同线型的情况，通过线型来选择也比较常用

查看完整版本: 小菜版选择易，欢迎使用并提出完善建议