这个工具非常实用，谢谢
为什么我用就总是死机
每次加载都跳出这个对话框，但是我已经添加了搜索路径了呀
yjtdkj 发表于 2021-8-4 17:22
每次加载都跳出这个对话框，但是我已经添加了搜索路径了呀
是添加上一级的路径。一般来说用ap加载的会自动搜索的呀。
分享一下我增加了几个过滤，分别是“是否打印图层”，“是否可见对象”（这个要配合全选才有用），“是否锁定图层”
另外建议把获取所有块名那个注释掉，没必要而且会非常影响打开速度，特别是一些块很多的文件。
("name"
"图块名称"
(vla-get-EffectiveName (vlax-ename->vla-object ent))
;(vl-remove-if
; '(lambda (a) (wcmatch a "`**"))
; (fsxm-tbl-namelist "BLOCK")
;); 这个现实块列表比较慢，而且也没有必要
)
我觉得这个东西很好用，但用了这么久，今天才知道这还是个透明命令，实在是太强了。
不知道透明命令的同学，解释一下，就是在其他命令中可以调用的命令。最常见的比如“cal”，实际演示是，输入move，这时提示选择图元，然后'ss或者'fs_ss (前面的英文单引号“'”不能漏），就是切至选择易，这样可以通过飞诗选择后，回到move命令。
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=111304&highlight=%D1%A1%D4%F1%D2%D7
因为飞诗界面默认下拉列表菜单会列出所有的线型和块名，块和线型特别多的图，可能会造成卡顿，每次显示界面都会有这个问题，可以通过不穷举块名和线型名解决卡顿。块的处理在上面115楼有了。线型那个类似，也是编辑Default.lsp文件，找到下面这些，改成只显示ByLayer和ByBlock
(6
"实体线型"
;(vl-list* "ByLayer" "ByBlock" (fsxm-tbl-namelist "LTYPE"))
("ByLayer" "ByBlock" )
)
试用了一下，CAD假死了……
当然飞诗程序，很好很强大
还是喜欢飞诗的，倒不是功能上的原因，只不过我喜好简洁一点的；现在小菜的功能非常强大了，但对话框搞的太大，不够清爽