Yes. It works up to the point where it is supposed create the objBlockRefence object. FileSelected has the file name with path as a string and should be able to create the object using the call ThisDrawing.ModelSpace.InsertBlock command. The code is listed below. The ShowOpen is a call to the code Joe Sutphin provided in an earlier post.
I am beginning to wonder if I should use ThisDrawing.Add to first create an objBlockRef and then try to insert it?
Private Sub btnOpenFile_Click()
Dim objBlockRef As AcadBlockReference
Dim varInsertionPoint As Variant
Dim dblX As Double
Dim dblY As Double
Dim dblZ As Double
Dim dblRotation As Double
Dim usr3 As Double
usr3 = ThisDrawing.GetVariable("USERR3")
dblX = usr3
dblY = usr3
dblZ = usr3
dblRotation = 0
varInsertionPoint = "0,0,0"
' InsertBlock.Show
Dim Filter As String
Dim InitialDir As String
Dim DialogTitle As String
Dim FileSelected As String
Filter = "Drawing Files (*.dwg)" + Chr$(0) + "*.dwg" + Chr$(0) + "All Files (*.*)" _
+ Chr$(0) + "(*.*)" + Chr$(0)
InitialDir = "S:\Shared\Elec\Acade 2006"
DialogTitle = "Open a DWG file"
FileSelected = ShowOpen(Filter, InitialDir, DialogTitle)
Me.hide
'create the object
On Error Resume Next
Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(varInsertionPoint, FileSelected, dblX, dblY, dblZ, dblRotation)
If Err Then
MsgBox "Unable to insert this block."
Exit Sub
End If
objBlockRef.Update
Me.Show
End Sub
