【求帮助】不开图，分解填充图案

lizhaojun45

(vla-Explode x);;;分解不了，填充图案，只能分解块，不知道：还有什么其它的办法，比如 API ，ObjectARX，C++之类的方法。大佬们，请指点一二。
(defun C:XH (/ dwg_mc)
                (defun WJ (dwg_mc / dbxdoc)
                                (if (< (atof (getvar "ACADVER")) 16.0)
                                          (setq DBXDoc "ObjectDBX.AxDbDocument")
                                          (setq DBXDoc (strcat "ObjectDBX.AxDbDocument." (substr (getvar "acadver") 1 2))    )
                                )
                          (setq DBXDoc (vlax-invoke (vlax-get-acad-object) 'GetInterfaceObject DBXDoc)   )
                          (vla-open  DBXDoc  dwg_mc)


                                (vlax-for x (vla-get-modelspace DBXDoc)
                                                  (if (= (vla-get-ObjectName x) "AcDbHatch")
                                                                                          (vla-Explode x);;;分解不了，填充图案，不知道还有什么其它的办法，比如 API ，ARX之类的方法。
                                                                                )
                                )
        (vla-SaveAs DBXDoc dwg_mc)
                          (vlax-release-object DBXDoc)
                )
          (vl-load-com)


          (if (SETQ dwg_mc (getfiled "查找文件"  "D:/"  "dwg"  8))
              (wj dwg_mc)
                )
                (princ)
)

tzfcn

期待着高手出手

lijiao

能不能复制到当前文档中,炸开后再复制回去?

lizhaojun45

lijiao 发表于 2021-10-6 15:17
能不能复制到当前文档中,炸开后再复制回去?

用插入块参照的方式，解决的：插入图形文件→炸开→保存块参照的修改→解绑（可以批量操作）

lijiao

我的想法是用vla-CopyObjects

lizhaojun45

lijiao 发表于 2021-10-9 10:03
我的想法是用vla-CopyObjects

我历来，只注重结果，不再忽过程，一条路子不通，就换一条。