topic Re: Blocks Insertion Point in VBA Forum

Blocks Insertion Point

Anonymous — Mon, 20 Jun 2005 13:39:13 GMT

Please help me;
I would like to know how to get the insertion Point and Rotation angle of a block inserted using VBA

Thanks a lot

Re: Blocks Insertion Point

Anonymous — Mon, 20 Jun 2005 14:21:20 GMT

Check out this two properties of an AcadBlockReference object, which is the
one you inserted or you get from drawing:

AcadBlockReference.InsertionPoint
AcadBlockReference.Roration

wrote in message news:4879309@discussion.autodesk.com...
Please help me;
I would like to know how to get the insertion Point and Rotation angle of a
block inserted using VBA

Thanks a lot

Re: Blocks Insertion Point

Anonymous — Mon, 20 Jun 2005 15:05:24 GMT

Thank you for your help; But I need more help, what is the code in VBA to get the Insertion Point. I am new in this business.

Thank You Very Much

Re: Blocks Insertion Point

Anonymous — Mon, 20 Jun 2005 18:21:33 GMT

This should do the trick ...

Joe
--

Public Sub GetInsertionAndRotation()
Dim Point As Variant
Dim oEntity As AcadEntity
Dim oBlockRef As AcadBlockReference

On Error Resume Next

ThisDrawing.Utility.GetEntity oEntity, Point, "Select a block ..."

If Err Then Exit Sub

If TypeOf oEntity Is AcadBlockReference Then
Set oBlockRef = oEntity
With oBlockRef
MsgBox "Insertion point is " & .InsertionPoint(0) & ", " &
.InsertionPoint(1) & ", " & .InsertionPoint(2) & vbCrLf & _
"Rotation is " & ThisDrawing.Utility.AngleToString(.Rotation,
acDegrees, 0)
End With
End If
End Sub

wrote in message news:4879385@discussion.autodesk.com...
Thank you for your help; But I need more help, what is the code in VBA to
get the Insertion Point. I am new in this business.

Thank You Very Much

Re: Blocks Insertion Point

Anonymous — Tue, 21 Jun 2005 04:48:36 GMT

To Joe Sutphin

I would like to thank you very much for your code, it did the trick.
Thanks and have a nice day.