Well some how I broke it, ACAD 2000.
The paperspace back ground is all white and no
shadow, no margins. I went to Options/Display
unchecked & checked several times but no workie.
Thought it may be one of the system variables I
set but cant see which one. Tried to reset the
shadow etc via lisp, still no good.
Is there some system variable that can affect the
display? That's the only thing I changed.
Here is the routine I found to toggle the shadow
and the like.
;|They're not sysvars but preference settings you can access with ActiveX
(VisualLISP). Here's a helper routine you can use to manipulate any
preference setting that can only be set to true or false. In your situation,
all the preferences you're looking for are in the Display preferences object
and they all require a regen to show the change, so here's what your calls
will look like. Hope this helps
|;
(defun ax:TogglePreference (pref setting regen / p acadApp)
(vl-load-com)
(setq p
(vlax-get-property
(vla-get-preferences (setq acadApp (vlax-get-acad-object)))
pref
)
)
(vlax-put-property p setting
(if (= (vlax-get-property p setting) :vlax-true)
:vlax-false
:vlax-true
)
)
(if regen
(vla-Regen (vla-get-ActiveDocument acadApp)
acActiveViewport
)
)
)
(ax:TogglePreference "Display" "LayoutDisplayMargins" T)
(ax:TogglePreference "Display" "LayoutDisplayPaperShadow" T)
(ax:TogglePreference "Display" "LayoutDisplayPaper" T) ;;Display paperbackground
(ax:TogglePreference "Display" "LayoutCreateViewport" T) ;;Show page setup dialog for new layouts
(ax:TogglePreference "Display" "LayoutShowPlotSetup" T) ;;Create viewports in new layouts
