在 vba 中插入块时分解

krampaul82 · 发表于 2007-8-28 12:57:26

致相关人员，我是VBA·纽比，请善待我....
我正在通过VBA程序(见附件)将ACAD块加载到图纸中。然后我想分解这个加载的块。我发现一些脚本代码在vba中称为发送到命令行(见附件)，但它不工作，它发送看起来像条形码的命令行。也许我这样做太复杂了，应该让用户分解程序块？任何建议将不胜感激。非常感谢cmdrduh之前对combobox的帮助！你的建议很有效。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

krampaul82 · 发表于 2007-8-28 15:17:38

从您的代码

copy

Dim blockRefObj As AcadBlockReference
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(returnPnt, "C:\Acad_2008\2008_Blocks\Controllers\nxs0015a1007-01.dwg", 1#, 1#, 1#, 0)

blockRefObj.explode