pippo.poppi
Guest
il est possible de créer un lisp de fichier pour activer et désactiver toutes les couches se terminant par « ns » ou il est trop compliqué.. connaissance presque rien de lisp. J'ai essayé avec chat gpt mais me donne une erreur.. à part les parenthèses supplémentaires.
(défun c:accendispegnilyers ()
(setq couche préfixe "ns") ; prefisso dei couche da accendere/spegnere
(setq layers-to-toggle nil) ; lista dei layer da accendere/spegnere
; scansione di tutti i couche nel disegno
(vlax pour la couche (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
(si (strat-match (strcat couche préfixe "$") (strcase (vla-get-name layer)))
(setq layers-to-toggle (cons (vla-get-name layer) layers-to-toggle)
)
)
(si couche à bascule
(progrès
(pour chaque couche de calque à basculer
(s'il s'agit d'une couche de "couche" de recherche)
(si (= (cdr (assoc 70 (couche de recherche "couche"))) 0) ; se il couche ë pedo, accendilo
(vla-put-on (couche "couche" de recherche) :vlax-true)
; altrimenti, spegnilo
(vla-put-on (couche "couche" de recherche) :vlax-false)
)
)
)
(principal (principal "couche " (appliquer des "couches strcat-to-toggle) " aggiornati.")
)
(principer "nessun couche con il prefisso specificato trovato".)
)
)