Ok.. Here's the portion I was working on. Thanks a heap Jeff. This will get a block definition from an external file, without opening it with AutoCAD, and add it into the current drawing.
I'll leave the figuring out of which block to bring in, and the actual insertion routine to whatever your personal preference is.
Make sure to add a reference to AutoCAD/ObjectDBX Common (ver#) Type Library
Option Explicit
Function OpenSourceFile(FileName As String) As AXDBLib.AxDbDocument
If Dir(FileName) <> "" Then
Dim SourceDWG As New AXDBLib.AxDbDocument
SourceDWG.Open (FileName)
If Err.Number <> 0 Then
If Err.Number <> -2147467259 Then 'File Moved
SourceDWG.Open (FileName)
End If
End If
Set OpenSourceFile = SourceDWG
End If
End Function
Function ImportBlock(SourceName As String, BlockName As String) As AcadBlock
Dim SourceDWG As New AXDBLib.AxDbDocument
Dim EvryBlock As AcadBlock
Set SourceDWG = OpenSourceFile(SourceName)
For Each EvryBlock In SourceDWG.Blocks
If UCase(BlockName) = UCase(EvryBlock.Name) Then
Set ImportBlock = EvryBlock
End If
Next
Dim BlockCollection(0) As AcadObject
Set BlockCollection(0) = ImportBlock
SourceDWG.CopyObjects BlockCollection, ThisDrawing.Blocks
Set SourceDWG = Nothing
End Function
Sub Palette_Helper_Blocks()
Dim SourceFile As String
Dim BlockName As String
SourceFile = "ContentMaster.dwg"
BlockName = "< Name of Block To Insert >"
ImportBlock SourceFile, BlockName
End Sub
Thanks also to jbuzzbee for pointing me down this direction.