06-05-2024
03:27 AM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
06-05-2024
03:27 AM
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