How to insert block in ModelSpace through VBA?
How to insert block in ModelSpace through VBA?
(OP)
First excuse me for my english! It's posible to written stupid things some times.
I'm using VBA for Autocad from month ago. I was written a program to put block with attribute, but the command Thisdrawing.Sendcommand dos't work and do not now why.
Please help!
I'm using VBA for Autocad from month ago. I was written a program to put block with attribute, but the command Thisdrawing.Sendcommand dos't work and do not now why.
Please help!





RE: How to insert block in ModelSpace through VBA?
take a look at the InsertBlock example in the Help files
CODE
' This example creates a block containing a circle.
' It then inserts the block.
' Create the block
Dim blockObj As AcadBlock
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")
' Add a circle to the block
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 0: center(1) = 0: center(2) = 0
radius = 1
Set circleObj = blockObj.AddCircle(center, radius)
' Insert the block
Dim blockRefObj As AcadBlockReference
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "CircleBlock", 1#, 1#, 1#, 0)
ZoomAll
End Sub
This is a much better way to insert a block using VBA
http://www.resourcecad.com
RE: How to insert block in ModelSpace through VBA?