我使用insertblock时,name值给出图形地址,可不执行。语句如下:
Dim blockObj As AcadBlock
Dim insertionPnt(0 To 2) As Double
Dim t As String
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")
t = "d:\lyt\5tk5"