CAD去除图层过滤信息代码(给你的dwg文件瘦身)

  1. (defun C:mypu ()
    (vl-Load-Com)
    (vl-Catch-All-Apply
    ‘(lambda ()
    (vla-Remove
       (vla-GetExtensionDictionary
       (vla-Get-Layers
       (vla-Get-ActiveDocument
       (vlax-Get-Acad-Object)
       )
       )
       )
       “ACAD_LAYERFILTERS”
    )
    )
    )
    (command “_.PURGE” “a” “*” “N”)
    (princ “\n所有图层过滤器已经被删除。”)(princ)
    )
  2. 将上面代码复制到文本文件中区,另存为li.lsp,进入cad用lispload或者直接加载
  3. 加载完毕后使用 mypu命令即可使用,mapgis转成的dwg文件一般都比较大,你不妨试试!

发表评论

电子邮件地址不会被公开。 必填项已用*标注