Private sub InsertBlock()
Dim BlockName As String'块名
Dim insertP As Variant
With ThisDrawing.Utility
insertP = (.GetPoint(, "请指定插入点:"))
If IsEmpty(insertP) Then Exit Sub
End With
ThisDrawing.SendCommand "-insert" & vbCr & BlockName & vbCr & insertP & vbCr & vbCr & vbCr
End Sub