不開啟圖檔 選取要 Purge、打開、解凍、解鎖所有圖層及要炸開圖的目錄夾

i小小白i

感谢楼主的源码，非常nice ! 有个问题请教，使用你这个方法，试图不开图删除图纸中多余的布局，在（vla-delete layoutname）时出错“错误: Automation 错误。 不存在可删除的布局”，纠其原因是因为vla-delete是在当前打开的图纸里执行的，如何解决这个问题，有方法吗？

i小小白i

i小小白i 发表于 2024-8-24 21:08
感谢楼主的源码，非常nice ! 有个问题请教，使用你这个方法，试图不开图删除图纸中多余的布局，在（vla-del ...

代码是这样的：
flst=(("c:\\drawing1" "A1")("c:\\drawing2" "A2")("c:\\drawing3" "A3")

(foreach x flst
        (setq f (car x) y (cadr x))
        (setq ados (LM:GetDocumentObject (vlax-get-acad-object) f))
        (setq msop (vla-get-ModelSpace  ados))
        (setq lyts (vla-get-layouts ados))
        (vlax-for lyi lyts
          (setq lyiname (vla-get-name lyi))
          (if (and (/= lyiname "Model") (/= lyiname y))
            (vla-delete lyi);;运行到这里出错
          )
        )
        (vla-saveas ados f)
        (vlax-release-object ados)
      )

饼仲郎

大哥讲究，还搞了两版，辛苦了

lee50310

i小小白i 发表于 2024-8-25 14:35
代码是这样的：
flst=(("c:\\drawing1" "A1")("c:\\drawing2" "A2")("c:\\drawing3" "A3")

我試過 情況與你相同, 很抱歉! 目前還沒有辦法解決!
在不開圖上 1f.dw 的 布局空間   新增   "配置1" "配置2"
及 開啟的圖面上 的 布局空間 也新增    "配置1" "配置2"
然後執行程式  希望不開圖情況下刪除 1f.dwg 的 "配置2"
結果居然 是刪除當下開啟圖檔的 "配置2"
並出現 "不存在可删除的布局"
所以初步判斷 (vla-delete obj)  這個刪除指令 只能針對當下的圖檔做刪除

i小小白i

lee50310 发表于 2024-8-26 14:28
我試過 情況與你相同, 很抱歉! 目前還沒有辦法解決!
在不開圖上 1f.dw 的 布局空間   新增   "配置1" " ...

的确很奇怪！但在你原始的代码里同样使用了（vla-delete  **)指令，用来删除炸开前的源物件，而当用作删除布局对象时却不能生效了~~~，似乎是这个指令的bug.

2. (vla-explode obj)                     ;1.(Vlax-Invoke-Method obj 'Explode) , 2. (vla-explode obj) 3.(vlax-invoke obj 'explode)
   
3. (vla-delete  obj)                     ;vla的炸开方法会先对来源物件进行复制然后炸开，故 之后应删除来源物件
   
4. (setq i(+ i 1))

(vla-explode obj)                     ;1.(Vlax-Invoke-Method obj 'Explode) , 2. (vla-explode obj) 3.(vlax-invoke obj 'explode)<br /> (vla-delete  obj)                     ;vla的炸开方法会先对来源物件进行复制然后炸开，故 之后应删除来源物件<br /> (setq i(+ i 1))

水洗可口可乐

lee50310 发表于 2024-8-19 15:53
可以做到 要處理 塊,弧,圓,多行文字, 文字......線段等
假如 要處理的目的資料夾 bk-test 內有一 圖檔  ...

感谢，有时间，按你的指引我自己摸索一下修改。谢谢你

yyz123121

大神你好，请问下不需要炸块，也不需要对图层操作，只是“清理”一遍并保存，应该保留哪几行代码？

lee50310

yyz123121 发表于 2024-9-15 00:04
大神你好，请问下不需要炸块，也不需要对图层操作，只是“清理”一遍并保存，应该保留哪几行代码？

可將程式中某些行 註解掉
但, 試過了!   很抱歉!
vla-purgeall 指令 並不支援 不開圖 清理圖

yyz123121

感谢回复，谢谢！

yyz123121

; 错误: 参数类型错误: fixnump: nil
我做了几个文件实验，出来这个错误，
在飞诗上提示