感谢楼主的源码，非常nice ! 有个问题请教，使用你这个方法，试图不开图删除图纸中多余的布局，在（vla-delete layoutname）时出错“错误: Automation 错误。 不存在可删除的布局”，纠其原因是因为vla-delete是在当前打开的图纸里执行的，如何解决这个问题，有方法吗？
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-ModelSpaceados))
(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 于 2024-8-26 17:59 编辑
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)這個刪除指令 只能針對當下的圖檔做刪除
lee50310 发表于 2024-8-26 14:28
我試過 情況與你相同, 很抱歉! 目前還沒有辦法解決!
在不開圖上 1f.dw 的 布局空間 新增 "配置1" " ...
的确很奇怪！但在你原始的代码里同样使用了（vla-delete**)指令，用来删除炸开前的源物件，而当用作删除布局对象时却不能生效了~~~，似乎是这个指令的bug.(vla-explode obj) ;1.(Vlax-Invoke-Method obj 'Explode) , 2. (vla-explode obj) 3.(vlax-invoke obj 'explode)
(vla-deleteobj) ;vla的炸开方法会先对来源物件进行复制然后炸开，故 之后应删除来源物件
(setq i(+ i 1))
lee50310 发表于 2024-8-19 15:53
可以做到 要處理 塊,弧,圓,多行文字, 文字......線段等
假如 要處理的目的資料夾 bk-test 內有一 圖檔...
感谢，有时间，按你的指引我自己摸索一下修改。谢谢你
大神你好，请问下不需要炸块，也不需要对图层操作，只是“清理”一遍并保存，应该保留哪几行代码？
本帖最后由 lee50310 于 2024-12-19 17:20 编辑
yyz123121 发表于 2024-9-15 00:04
大神你好，请问下不需要炸块，也不需要对图层操作，只是“清理”一遍并保存，应该保留哪几行代码？
可將程式中某些行 註解掉
但, 試過了! 很抱歉!
vla-purgeall 指令 並不支援 不開圖 清理圖
感谢回复，谢谢！
; 错误: 参数类型错误: fixnump: nil
我做了几个文件实验，出来这个错误，
在飞诗上提示