Topic: plot : shade plot & quality

[domenicomaria]

is there a way, via lisp, to set
"shade plot" to "as displayed"
and
"quality" as "maximum" ?

[PKENEWELL]

For ShadePlot: Right from AutoCAD's Help Documentation:

https://help.autodesk.com/view/OARX/2024/ENU/?guid=GUID-911E01F5-B5A6-4331-B860-FAB1E7E124C2

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2. (defun c:Example_ShadePlot()
3.     ;; This example creates a paper space viewport,
4.     ;; makes it active, and then sets it to plot as displayed.
5.     (setq acadObj (vlax-get-acad-object))
6.     (setq doc (vla-get-ActiveDocument acadObj))
7.  
8.     (setq centerPoint (vlax-3d-point 30 30 0)
9.           width 40
10.           height 40)
11.    
12.     ;; Create a paper space Viewport object
13.     (vla-put-ActiveSpace doc acPaperSpace)
14.  
15.     (setq paperSpace (vla-get-PaperSpace doc))
16.     (setq newPViewport (vla-AddPViewport paperSpace centerPoint width height))
17.  
18.     (vla-ZoomAll acadObj)
19.     (vla-Display newPViewport :vlax-true)
20.     (vla-put-MSpace doc :vlax-true)
21.  
22.     ;; Set the viewport to plot as displayed
23.     (vla-put-ActivePViewport doc newPViewport)
24.     (vla-put-ShadePlot newPViewport acShadePlotAsDisplayed)
25. )
26.  

Not sure about Quality Yet - I'll keep looking.

[domenicomaria]

(vla-put-ShadePlot newPViewport acShadePlotAsDisplayed)

Ok
Thank you

For the quality I will wait...

[PKENEWELL]

(vla-put-ShadePlot newPViewport acShadePlotAsDisplayed)

Ok
Thank you

For the quality I will wait...

Sorry on the Shaded Viewport Quality value. I can't find much on this in relation to AutoLISP. Someone else may have more information.

[domenicomaria]

I also searched but with no useful results...

it's something about plot resolution

[VovKa]

Code: [Select]

(setq lst (entget (cdadr (member (cons 3 (getvar "CTAB")) (dictsearch (namedobjdict) "ACAD_LAYOUT")))))
(entmod (subst (cons 77 4) (assoc 77 lst) lst))

[domenicomaria]

Code - Auto/Visual Lisp: [Select]

1.    (setq lo-lst (entget (cdadr (member (cons 3 (getvar "CTAB")) (dictsearch (namedobjdict) "ACAD_LAYOUT")))) )
2.  
3.    ;   SHADEPLOT mode   :   0 = AS DISPLAYED
4.    (setq lo-lst (subst (cons 76 0) (assoc 76 lo-lst) lo-lst) )
5.  
6.    ;   QUALITY   :   4 = MAXIMUM
7.    (setq lo-lst (subst (cons 77 4) (assoc 77 lo-lst) lo-lst) )
8.      
9.    (entmod lo-lst)

thanks to VovKa too !


in any way I would like to know if it is possible to do the same (always in model space) with the vla-xxxx functions

[xdcad]

Code - Auto/Visual Lisp: [Select]

1.    (setq lo-lst (entget (cdadr (member (cons 3 (getvar "CTAB")) (dictsearch (namedobjdict) "ACAD_LAYOUT")))) )
2.  
3.    ;   SHADEPLOT mode   :   0 = AS DISPLAYED
4.    (setq lo-lst (subst (cons 76 0) (assoc 76 lo-lst) lo-lst) )
5.  
6.    ;   QUALITY   :   4 = MAXIMUM
7.    (setq lo-lst (subst (cons 77 4) (assoc 77 lo-lst) lo-lst) )
8.      
9.    (entmod lo-lst)

thanks to VovKa too !


in any way I would like to know if it is possible to do the same (always in model space) with the vla-xxxx functions

Code - Auto/Visual Lisp: [Select]

1. (setq ent (cadr (xdrx-layout-getcurrent)))
2. (setq quality 0); 0-5
3. (xdrx-setpropertyvalue ent "ShadePlotResLevel" quality)