AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP Kodları > Layer ismini değiştirmek
31.03.2009 06:25    
yazgunesi
Komut çalıştırıldığında layer tablosundaki tüm layer'ların başına istediğiniz kelime eklenecektir..
Aşağıdaki lispte layer adlarının başına ST- yazar.

Kod:

(defun c:ld ()
  (setq elist (tblnext "LAYER" T))
  (while (/= elist nil)
    (setq ln (cdr (assoc 2 elist)))
    (if (/= ln (itoa 0))
      (progn
(setq ln1 (strcat "ST-" ln))
(print ln1)
(terpri)
(command "-rename" "layer" ln ln1)
      )
    )
    (setq elist (tblnext "LAYER"))
  )
princ miyatu
)


Bu lisp ile ilgili yazılan yazılar :



Linkleri görebilmek için ÜYE olmalısınız.
> 1 <
Copyright © 2004-2022 SQL: 1.001 saniye - Sorgu: 44 - Ortalama: 0.02275 saniye