dbx填充求助

sniper1111 · 发表于 4 天前

想写一个，不打开CAD文件就能填充的程序，东拼西凑但是没有成功，请各位老师帮忙指导一下。不胜感激

(defun c:tt ()
(setq *DOC* (vlax-create-object (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2) )))
(vla-open *DOC* "D:\\222.dwg")
(setq gMspace (vla-get-modelSpace (vla-get-activeDocument *DOC*)))
(setq HatchObj (vla-AddHatch gMspace acHatchPatternTypePredefined "SOLID" :vlax-true))
(vlax-for dbx (vla-get-modelspace *DOC*)
(if (= (vla-Get-ObjectName dbx) "AcDbPolyline")
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbobject
(cons 0 (1- (length (list obj))))
)
(list obj)
)
)
)
(vla-saveas *DOC* "D:\\222.dwg")
(vlax-release-object *DOC*)
(princ)
)

qifeifei · 发表于 4 天前

本帖最后由 qifeifei 于 2025-12-8 21:13 编辑

推荐下载版本4进行研究
示意图是版本4的；只能达到演示效果
其他的自行修复把；

kozmosovia · 发表于 4 天前

(defun c:tt ()
(setq *DOC* (vlax-create-object
(strcat "ObjectDBX.AxDbDocument."
(substr (getvar "ACADVER") 1 2)
)
)
)
(vla-open *DOC* "D:\\222.dwg")
(setq gMspace (vla-get-modelSpace (vla-get-activeDocument *DOC*)))
(setq HatchObj (vla-AddHatch
gMspace
acHatchPatternTypePredefined
"SOLID"
:vlax-true
)
)
(vlax-for dbx (vla-get-modelspace *DOC*)
(if (= (vla-Get-ObjectName dbx) "AcDbPolyline")
(vla-AppendOuterLoop
HatchObj
(vlax-safearray-fill
(vlax-make-safearray vlax-vbobject (cons 0 0))
(list dbx)
)
)
)
)
(vla-saveas *DOC* "D:\\222.dwg")
(vlax-release-object *DOC*)
(princ)
)

(defun c:tt () 
  (setq        *DOC* (vlax-create-object 
                (strcat        "ObjectDBX.AxDbDocument." 
                        (substr (getvar "ACADVER") 1 2) 
                ) 
              ) 
  ) 
  (vla-open *DOC* "D:\\222.dwg") 
  (setq gMspace (vla-get-modelSpace (vla-get-activeDocument *DOC*))) 
  (setq        HatchObj (vla-AddHatch 
                   gMspace 
                   acHatchPatternTypePredefined 
                   "SOLID" 
                   :vlax-true 
                 ) 
  ) 
  (vlax-for dbx        (vla-get-modelspace *DOC*) 
    (if        (= (vla-Get-ObjectName dbx) "AcDbPolyline") 
      (vla-AppendOuterLoop 
        HatchObj 
        (vlax-safearray-fill 
          (vlax-make-safearray vlax-vbobject (cons 0 0)) 
          (list dbx) 
        ) 
      ) 
    ) 
  ) 
  (vla-saveas *DOC* "D:\\222.dwg") 
  (vlax-release-object *DOC*) 
  (princ) 
)

sniper1111 · 发表于 3 天前

qifeifei 发表于 2025-12-8 10:42
推荐下载版本4进行研究
示意图是版本4的；只能达到演示效果
其他的自行修复把；

大师通过您的代码，我对dbx有了深刻的认识，代码我也有了比以前更深刻的立即，只是还有一事不明，为什么我这边截图的位置(vla-AppendOuterLoop HatchObj (vlax-make-variant extLoop))无法运行。E:\Desktop\64f300bd-dca9-45f9-a7d6-81fa91661538.png

qifeifei · 发表于 4 天前

可以搞个演示吗看不懂呢

sniper1111 · 发表于 4 天前

qifeifei 发表于 2025-12-8 10:17
可以搞个演示吗看不懂呢

在新建的cad中运行命令，222.dwg内的矩形就会填充上，初步想达到这个效果。

kozmosovia · 发表于 4 天前

创建填充后，还需要给填充绑定边界
https://help.autodesk.com/view/O ... A-9E1D-A0E8220F69F4

更简单的方式是在当前doc创建（可以用command），Copyobjects进DBX，再删除

sniper1111 · 发表于 4 天前

qifeifei 发表于 2025-12-8 10:42
是这样的吗

不是，意思是不打开cad文件就能把dwg文件里面的图形填充上。

sniper1111 · 发表于 4 天前

kozmosovia 发表于 2025-12-8 11:08
创建填充后，还需要给填充绑定边界
https://help.autodesk.com/view/O ... A-9E1D-A0E8220F69F4

思路明白了，但是不会操作，也不是我想的效果，感谢大师。

sniper1111 · 发表于 4 天前

qifeifei 发表于 2025-12-8 10:42
是这样的吗

其实用来填充竖向构件参照文件用的，这样我就可以批量填充竖向构件文件了

liuhe · 发表于 4 天前

modelSpace 不对，应该是在dbx的模型空间，而不是激活文档的模型空间

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

[提问] dbx填充求助

本帖子中包含更多资源

本帖子中包含更多资源

点评

本帖子中包含更多资源