Question

如何在CAD中使用VBA代码插入一个外部块

我想在cad中使用vba完成自动插入外部块，语句是否是直接使用

Call ThisDrawing.ModelSpace.InsertBlock(插入点, 块名称, 1, 1, 1, 0)
这边块名称应该如何修改？
谢谢
希望可以使用相对位置，绝对位置我已经可以插入
已经全部解决。。。

Answer 1

假设外部块是一个文件名为 bbb.dwg,可以带路径。VBA代码如下
Sub ttt()

Dim insertionPnt(0 To 2) As Double
Dim blockRefObj As AcadBlockReference

insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
blockRefObj =ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "bbb.dwg", 1#, 1#, 1#, 0)

end sub

Answer 2

把文件A.DWG作为块插入到图形，再删块。那么A.DWG中的所有块都会在本图形中定义。