help with routine vpoutline by Lee Mac

[leonucadomi]

VPOutlineV1-0.lsp

 

hello all:

This is a wonderful routine from master LEE MAC

Create viewport outlines in model space

It also creates a layer with a given name if it does not exist.

I would like to know if it is possible that when creating this layer it is modified so that it is not printable..

and be it so

 

thanks

 

All comments are welcome

 

[LanloyLisp]

(defun settononplot (lay / eng)
(setq eng (entget (tblobjname "layer" lay)))
(entmod (subst (cons 290 0)(assoc 290 eng) eng))
)

include this subfunction and call it at the end. (settononplot "YourLayer")

[leonucadomi]

thanks excellent

[BIGAL]

Another using VL

 

(vlax-put (vlax-ename->vla-object (tblobjname "layer" lay)) 'Plottable 0)

 

[Lee Mac]

Note that the latest version is 1.3