社区 › AutoLISP/Visual LISP 编程技术 › 常用函数.lsp

lj2000new 发表于 2012-11-16 09:12:21

支持楼主l希望楼主多发精品好帖.....

ptime 发表于 2012-11-20 16:14:02

支持，谢谢分享。

tm20038175 发表于 2012-11-21 20:57:48

很多都不能使用，譬如清理图层的程序！…

tm20038175 发表于 2012-11-22 09:48:02

有两个程序我用不了，你能不能发给我下，一个是比purge好的清理图层的，一个是提取某个目录下所有文件名的，不知道是不是缺少子函数还是怎么的，我购买你的程序后运行就是出不了成果！

自贡黄明儒 发表于 2012-11-22 09:55:28

tm20038175 发表于 2012-11-22 09:48 static/image/common/back.gif
有两个程序我用不了，你能不能发给我下，一个是比purge好的清理图层的，一个是提取某个目录下所有文件名的， ...

;;28.2 [功能] 删除未使用的图层,比purge彻底
(defun MJ:LayerDelete ()
(vl-Load-Com)
(vl-Catch-All-Apply
    '(lambda ()
       (vla-Remove
       (vla-GetExtensionDictionary
           (vla-Get-Layers
             *DOC*
           )
       )
       "ACAD_LAYERFILTERS"
       )
   )
)
(princ)
)
;;这个你要加载2，即*DOC*

dshshi 发表于 2012-11-24 16:33:01

没币呀，呜..................

mp3_2004 发表于 2012-11-24 23:39:43

感谢楼主分享..........

vvcd 发表于 2012-11-25 00:25:18

这个是各好东西，谢谢分享

675241162 发表于 2012-11-27 23:18:47

没钱啊。。。

xyz002 发表于 2012-11-30 21:08:38

太好了，灰常感谢

查看完整版本: 常用函数.lsp