creating viewport lisp

[rsocampo]

hi,

any way to improve below lisp?

it create new layer and new viewport but after layerp command execute the layer color goes back to white and no plot becomes plot again.

 

(defun c:vp()
(command ".layer" "M" "viewport" "C" "8" "viewport" "P" "N" "viewport" ""
"-VPORTS" pause pause ".layerp")
(princ)
)

[Steven P]

A quick and simple fix:

 

(defun c:vp()
(command
  ".layer" "M" "viewport" "C" "8" "viewport" ""
  "-VPORTS" pause pause ".layerp" ""
  "-layer" "P" "N" "viewport" ""
)