Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

cadffm
en respuesta a: leticia.campanelli

Hi,

 

not ootb, but with few lines code and the native command VPLAYER, no problem:

(defun c:AllNoPlotLayers2VPFRZ (/ a b)
  (setq b "")
  (while (setq a (tblnext "LAYER" (not a)))
    (if (zerop(cdr(assoc 290 (entget (tblobjname "LAYER" (cdr(assoc 2 a)))))))
        (setq b (strcat (cdr(assoc 2 (entget (tblobjname "LAYER" (cdr(assoc 2 a))))))"," b))
    )
  )
  (command "_.VPLAYER" "_fr" b "_all" "")
  (princ)
)

Sebastian