載入一個Block

Sub 載入一個Block()
Dim returnPnt As Variant
Dim oBlockRef As AcadBlockReference
Dim insertionPnt(0 To 2) As Double, EndPoint(2) As Double

returnPnt = ThisDrawing.Utility.GetPoint(, "請點選插入點: ")
insertionPnt(0) = returnPnt(0): insertionPnt(1) = returnPnt(1): insertionPnt(2) = 0#

Set oBlockRef = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "xbox", 1, 1, 1, 0)
MsgBox "完成載入一個Block", vbOKOnly, "Block名稱xbox"
End Sub