Enable "Shaded viewport options", "Shade plot" in Model?

Enable "Shaded viewport options", "Shade plot" in Model?

Micke_ELE
Contributor Contributor
1,114 Views
3 Replies
Message 1 of 4

Enable "Shaded viewport options", "Shade plot" in Model?

Micke_ELE
Contributor
Contributor

Is there any option to enable Shaded viewport options in Model?

 

An costomer have many files probobly convertet to dwg from other software.

 

We have an LISP batch plot function that checks if the drawing is an model or layout and sends the approtiate answers to plot command.

When model behave as an layout the batch plot stops working.

 

Is it possible to check with lisp if model have "Shaded viewport options" enabled or force ti to be enabled?

 

Included:

 

svo_enabled.dwg - Shade viewport options enabled in model.

 

svo_disabled.dwg - Shade viewport options disabled in model.

 

/Micke

 

0 Likes
1,115 Views
3 Replies
Replies (3)
Message 2 of 4

pendean
Community Legend
Community Legend
One idea... How about instead of "checking" your lisp actively sets what you want to ensure you get what you want? For example, if you want to be in modelspace then use MODEL command, and to set "shade plot" settings you can use SHADEMODE and/or -PLOT command's detailed options for shade plot settings (there is a dash in that command's name).

Practice these at the commandline, see how they work.
Message 3 of 4

Micke_ELE
Contributor
Contributor

MODEL and SHADEMODE don’t change anything.

Both files are in Model and SHADEMODE is 2Dwireframe but they behave different.

Svo_disabeled.dwg have "Shaded viewport options" disabled and "Scale lineweights" enabled in plot dialogue.

I need a way to force it to be the same or a way to check the difference.

0 Likes
Message 4 of 4

Micke_ELE
Contributor
Contributor

The part of my lisp that dont work when Model behave as Layout is:

 

(if (= (getvar "CTAB") "Model")
	(command "plot" "Y" "" pc3 (caddr (cdr (assoc ram papper))) "M" (if (or (= ram "A4") (= ram "A1S"))"P" "L") "N"
	      "W" "none" ins "none" (list (+ (car ins) (* maxx skala)) (+ (cadr ins)(* maxy skala)))
	      (/ 1 skala) "CENTER" "y" ctb (if (or (= ram "A1")(= ram "A1S")(= ram "A0")) "n" "Y") "A" fnamn "N" "Y")
     (command "plot" "Y" "" pc3 (caddr (cdr (assoc ram papper))) "M" (if (or (= ram "A4") (= ram "A1S"))"P" "L") "N"
	      "W" "none" ins "none" (list (+ (car ins) (* maxx skala)) (+ (cadr ins)(* maxy skala)))
	      (/ 1 skala) "CENTER" "y" ctb (if (or (= ram "A1")(= ram "A1S")(= ram "A0")) "n" "Y")
	      "N" "N" "N" fnamn "N" "Y")
)

 The code stops at "A" when Model behaves as Layout.

 

/Micke

0 Likes