Sub Example_InsertBlock()
' This example creates a block containing a line and an arc
' and adds it to the Blocks collection. It then inserts the block.
' Create the block and add it to the Blocks collection
Dim blockObj As IntelliCAD.Block
Dim insPt As IntelliCAD.Point
Dim BlkName As String
BlkName = InputBox("Type a block name")
Set insPt = Library.CreatePoint(4, 3, 0)
Set blockObj = ThisDocument.Blocks.Add(insPt, BlkName)
' Add a a line and an arc to the block
Dim lineObj As IntelliCAD.Line
Dim myStartPt As IntelliCAD.Point
Dim myEndPt As IntelliCAD.Point
Dim arcObj As IntelliCAD.Arc
Dim cenPt As Point
Dim radius As Double
Set lineObj = ThisDocument.ModelSpace.AddLine(Library.CreatePoint(4, 4), Library.CreatePoint(7, 1))
Set cenPt = Library.CreatePoint(3, 4, 0)
radius = 1
Set arcObj = blockObj.AddArc(cenPt, radius)
' Insert the block
Dim blockRefObj As IntelliCAD.BlockInsert
Set blockRefObj = ThisDocument.ModelSpace.InsertBlock(insPt, BlkName, 1, 1, 0)
MsgBox "The block " & BlkName & " has been inserted."
End Sub