常用函数.lsp

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

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

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

支持，谢谢分享。

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

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

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

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

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

tm20038175 发表于 2012-11-22 09:48
有两个程序我用不了，你能不能发给我下，一个是比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

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

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

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

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

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

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

没钱啊。。。

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

太好了，灰常感谢

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

[函数] 常用函数.lsp

点评

浏览过的版块