I have written a pagesetup routine.
In here in can choose scale and papersize and its makes layers, dimstyles and text styles and inserts a stamp if wanted.
But....... this only works in modelspace.
So now i am in the proces of trying to improve this routine by adding a toggle in my dcl (This part is already working)that when activated it will show 4 popuplists (not activated greyed-out)in which i can choose all availabele plotters,its papersizes,all availabele plotstyles and scale.I know this can be done with visual lisp but it much more difficult than lisp.So can somebody help me in the right direction how to make the 4 listings and show me how to assign the selected items to the new layout.
I know i am asking a lot but in advance thanks for your collaboration.
MvdP
Some pieces of code i found on the net...
; Return a list of all Plotter configurations
(defun PlotDeviceNamesList ()
(vla-RefreshPlotDeviceInfo (ActLay))
(vlax-safearray->list
(vlax-variant-value
(vla-GetPlotDeviceNames
(ActLay)
)
)
)
)
; Return a list of all Plot style tables
(defun PlotStyleTableNamesList ()
(vla-RefreshPlotDeviceInfo (ActLay))
(vlax-safearray->list
(vlax-variant-value
(vla-GetPlotStyleTableNames
(ActLay)
)
)
)
)
