pen assignments

[Hmo]

hello,

i've written an vba-program for automatic plotting in autocad. The only thing i don't know how to do is programming for assigning a ctb-file.

does anyone know how it works?

mvgr

 

[borgunit]

Here is a snippet of ours, it may be a help...

If ThisDrawing.ActiveSpace = acModelSpace Then
Set acObjSpace = ThisDrawing.ModelSpace
Else
Set acObjSpace = ThisDrawing.PaperSpace
End If

Set acLayout = acObjSpace.Layout
acLayout.RefreshPlotDeviceInfo 'Needed since we changed the plotter support paths

With acLayout
.ConfigName = strPrinter 'set printer first so options exist
.StyleSheet = strStyle
.CanonicalMediaName = strPaperName
.PlotType = acPltType 'must be set before centerplot property
.PlotOrigin = dblPltOrigin 'this must come before centerplot
.CenterPlot = blnCtr
.PaperUnits = acMillimeters 'default----
.PlotRotation = acPlotRota
.StandardScale = dblPaperScl
.UseStandardScale = True
SetPlotParameters = True
End With

"Everybody is ignorant, only on different subjects." — Will Rogers