pippo.poppi
Guest
es ist möglich, eine Datei lisp erstellen, um alle Schichten, die mit "ns" enden, ein- und ausschalten oder es ist zu kompliziert. Wissen fast nichts von lisp. Ich versuchte mit chat gpt, aber gibt mir Fehler. abgesehen von den zusätzlichen Klammern.
(defun c:accendispegnilayerns ()
(setq layer-prefix "ns"); prefisso dei layer da accendere/spegnere
(setq layer-toggle nil) ; lista dei layer da accendere/spegnere
; scansion di tutti i layer nel disegno
(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
(wenn (String-Match (Strcat Layer-Prefix "$") (Strcase (vla-get-name layer)))
(setq-Schichten-to-to-ggle (cons (vla-get-name-Schicht) Schichten-to-ggle)))
)
)
(wenn Schichten zu Knien
(Prog.)
(jede Schichtschichten-zu-Verknüpfung
(falls (tblsearch "layer" layer)
(if (= (cdr (assoc 70))) 0)
(vla-put-on (tblsearch "layer" layer) :vlax-true)
; Altrimenti, spegnilo
(vla-put-on (tblsearch "layer" layer) :vlax-false)
)
)
)
(princ (strcat "layer " (apply 'strcat layers-toggle) " aggiornati.")
)
(princ "nessun layer con prefisso specificato trovato.")
)
)