There is nothing wrong with the snippet. The problem, though, with a
snippet is the error may be before this comes into play [such as how do
you get the layout?] or because of a corrupt ctb file. Try running this
routine and see what happens. *MAKE SURE* you use a ctb file that is the
original supplied with your AutoCAD - *DON'T* use one you have created
or edited. That's the only thing I can't check remotely.
If this routine works, start going backwards - try using your ctb file.
If it bombs, you have your problem; if it doesn't, revise how Test sets
the objLayout to whatever you are using.
Sub Test()
Dim objLayout As AcadLayout
Dim strStyleName As String
strStyleName = "monochrome.ctb"
Set objLayout = ThisDrawing.ActiveLayout
With objLayout
.PlotWithPlotStyles = True
.StyleSheet = ""
.StyleSheet = strStyleName
.RefreshPlotDeviceInfo
End With
End Sub
In article <401fccd5$1_2@newsprd01>, pleets@inovec.com says...
> Ok, others have had this problem and I havent seen a definative answer yet.
> Can anyone tell me why the following code snippet bombs when I attemp to set
> the stylesheet property?
> Setting it to an empty string works, but trying to put an actual style sheet
> name into it gives a runtime error.
> Yes, the .ctb file does exist, I tried tacking on full path, etc. no luck
> Thanks
>
>
> strStyleName = "HP1120-mono.ctb"
> With objLayout
> .PlotWithPlotStyles = True
> .StyleSheet = ""
> .StyleSheet = strStyleName
> .RefreshPlotDeviceInfo
> End With
>
>
> --
> Perry Leets
> Inovec Optimization and Control Systems
> Eugene, Oregon
>
>
>
--
___________________________
Mike Tuersley
CADalyst's AutoCAD Clinic
Rand IMAGINiT Technologies
