Randall,
Here's the code.
Private Sub insertBlock(blkName As String)
Dim oInsPt As Variant 'User selected insertion point
Dim vAttributes As Variant 'Insertion Block Attributes
Dim vScale As Variant
Dim oBlock As AcadBlockReference
Dim oLine As AcadLine
On Error Resume Next
vScale = ThisDrawing.GetVariable("ltscale")
Me.Hide
oInsPt = ThisDrawing.Utility.GetPoint(, vbCr & "Select Insertion
Point: ")
If Err.Number = 0 Then
Set oBlock = ThisDrawing.ModelSpace.insertBlock(oInsPt, blkName,
vScale, vScale, 1, 0)
vAttributes = oBlock.GetAttributes
vAttributes(0).TextString = txtTop.Text
vAttributes(1).TextString = TxtBottom.Text
Set oLine = ThisDrawing.ModelSpace.AddLine(TB_Curbs.oPt, oInsPt)
End If
Set oInsPt = Nothing
Set vAttributes = Nothing
Set vScale = Nothing
Set oBlock = Nothing
Set oLine = Nothing
End Sub
I can't see a way of interrupting Set oBlock in order to get user
input. There is some mention in the Help about using the \
character with macros but I couldn't make that work either.
- Tom
Randall Rath wrote in message
news:88rq2d$pko9@adesknews2.autodesk.com...
> From the Visual Basic help files of VB Design
> http://vbdesign.hypermart.net/cadpages/
>
> Hi Tom,
> Without seeing the code you have so far, I offer you this:
>
> ThisDrawing.Utility.GetAngle
