将图纸拆分程序，求助。

jepvyg

块的办法，不知道为什么块不赋值。
    For Each Ent In SS                     'ss是选择集，Ent 是object，
'        blockRef.AppendEntity Ent    '赋值方法1  blockRef是块
         Ent.Copy blockRef               '赋值方法2
    Next Ent
F5运行，两种办法，Ent每次都变动，但发现blockref 都是NOthing

jepvyg

最后，就是说用批量打印的兄弟，我这个是要存成DWG文件，还要每个都取名的。
我看了下你们提的批量打印文件，没看到变DWG的。

xy233

jepvyg 发表于 2024-12-18 17:15
最后，就是说用批量打印的兄弟，我这个是要存成DWG文件，还要每个都取名的。
我看了下你们提的批量打印文 ...

输出格式可以选dwg（msteel可以，其他的我，没用过不清楚）

chixun99

          Ent.Copy blockRef               '赋值方法2

这句得方法有误，copy方法没有参数的，不能接blockref。如果想要把图元复制到块应该是copyobject方法，参数是图形对象数组。可以网上找官网的帮助看看使用方法。