|
Public Sub aaawe()
Dim obj As AcadBlockReference
Dim str As String
Dim point(2) As Double
point(0) = 100: point(1) = 100: point(2) = 0
str = "c:\wjct\tl\dxs.dwg"
Set obj = ThisDrawing.ModelSpace.InsertBlock(point, str, 1#, 1#, 1#, 1#)
End Sub
总是提示我插入块作用于Iacadmodelspace*对象错误 |
|