pippo.poppi
Guest
Bu, "ns" ile sonlanan ve kapatılacak bir dosya lisp oluşturmak mümkündür veya neredeyse hiçbir şey lisp değildir. Chat gpt ile denedim ama bana hata verir. ekstra ebeveynlerden ayrı.
(defun c:accendispegnilayerns ()
(setq tabakası-prefix "ns"); prefisso dei tabakası da birccendere /spegnere
(setq katmanları-toggle nil) ; listea dei tabakası da birccendere /spegnere
; tarama di tutti i katman nel disegno
(vlax-for katmanı (vla-get-layers (vla-get-get-acad-object))))
(If (string-match (strcat tabakası-prefix "$") (strcase (vla-get-name katmanı))))
(setq katmanları-toggle (kons (vla-get-name katmanı) katmanları-to-toggle))
)
)
(Eğer katmanlar-toggle
(progn
(Öğretmen tabakaları-toggle
(If (tblsearch "layer" katmanı)
(= (cdr (assoc 70 (tblsearch "kat" tabakası))) 0); se il tabakası ë harcandı, başarılı bir
(vla-put-on (tblsearch "layer" katmanı) :vlax-gerçek)
; sunrimenti, spegnilo
(vla-put-on (tblsearch "layer" katmanı) :vlax-false)
)
)
)
(princ (strcat " katmanlı " (gerçekten 'strcat katmanları-toggle) " birggiornati".)
)
(princ "nessun katmanı con prefisso specificato trovato.")
)
)