pippo.poppi
Guest
"ns" で終わるすべてのレイヤーをオン/オフするファイル lisp を作成するか、複雑すぎる。 ほとんど何も lisp の知識。 私はチャットgptを試してみましたが、私にエラーを与えます。 追加の括弧とは別に。
(defun c:accendispegnilayerns ())
(setq 層プレフィックス "ns"); prefisso dei 層 da accendere/spegnere
(setq の層-toggle nil); lista dei の層 da accendere/spegnere
; scansione di tutti i 層 nel disegno
(vlax-for レイヤー (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))))))))))
(文字列マッチ (strcat レイヤープレフィックス "$") (strcase (vla-get-name レイヤー))))))
(setq層からトグル(cons(vla-get-name層)レイヤーをトグル))))
)
)
(レイヤーからトグルまで)
(progn)
(foreach層層-toggle)
(tblsearch "layer"レイヤー)
(= (= (= (=) (acoc 70 (tblsearch "layer"層))))))) 0); se il の層 ë の intero, accendilo
(vla-put-on (tblsearch "layer"レイヤー) :vlax-true)
; altrimenti、spegnilo
(vla-put-on (tblsearch "layer"レイヤー) :vlax-false)
)
)
)
(princ (strcat "layer" (apply 'strcatlayer-toggle) " aggiornati."))
)
(princ "nessun 層 con il prefissospecificato trovato".)
)
)