Originally Posted by
mpair
I have also tried this code for inserting a block with no luck...
Private Sub FlexButton_Click()
Dim objBlockRef As AcadBlockReference
Dim ip As Variant
Dim ep As Variant
On Error Resume Next
ip = ThisDrawing.Utility.GetPoint(, vbCr & "Select Insertion Point: ")
ep = ThisDrawing.Utility.GetAngle(ip, "Select block rotation angle:")
Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(ip, "G:\detail\_UMEC-Toolbox\Blocks\PNIDBlocks\FlexTemp.dwg", 1#, 1#, 1#, ep)
objBlockRef = Nothing
End Sub
Compare with this code
Code:
Private Sub FlexButton_Click()
Dim objBlockRef As AcadBlockReference
Dim ip As Variant
Dim ep As Variant
Dim blkName As String
On Error GoTo Err_Control '<-- do not use On Error Resume Next
Me.Hide '<--hide form
blkName = "G:\detail\_UMEC-Toolbox\Blocks\PNIDBlocks\FlexTemp.dwg" '<-- define all variables explicitly before
ip = ThisDrawing.Utility.GetPoint(, vbCrLf & "Select Insertion Point: ")
ep = ThisDrawing.Utility.GetAngle(ip, vbCrLf & "Select block rotation angle:")
Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(ip, blkName, 1#, 1#, 1#, ep)
Set objBlockRef = Nothing '<-- this is object thus you can use Set to release them
Me.Show '<-- unhide
Err_Control:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
hth
~'J'~