Hello swampers
Happy New Year! (A little early.)
I have the following code that inserts a block into the current open drawing as a block in model space which the user sees in paper space. Is there a way to now print that insert from within this code?
Public Sub PrintInsertCA_gtc_pump_hw_spyddcVFD()
PrintCA_gtc_pump1 ("V:\gtc_proj\Common_Assy\Hot_Water_Circ_Pump\ca-gtc_pump_assy_01.dwg")
End Sub
Sub PrintCA_gtc_pump1(strBlockName As String)
Dim dblInsertPt(0 To 2) As Double
Dim dblScale As Double
Dim dblRotation As Double
Dim objAcadDoc As AcadDocument
Dim objBlockRef As AcadBlockReference
GTC_comm_assy_main.Hide 'End vba Insert the selected block
dblInsertPt(0) = 0
dblInsertPt(1) = 0
dblInsertPt(2) = 0
dblScale = 1
dblRotation = 0
Set objAcadDoc = ThisDrawing
Set objBlockRef = objAcadDoc.ModelSpace.InsertBlock(dblInsertPt, strBlockName, dblScale, dblScale, dblScale, dblRotation)
'This is where I would like continue to plot the paperspace drawing with the new block insert and the program.
End Sub
can this be done? any help appreciated...
Mark