Seçilen nesnenin layer ını kapatan lisp-1
internet - 15.09.2005 08:59
Seçtiğiniz nesnenin ait olduğu layer ı kapatır.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
(defun c:lk ()
(setq a 1 test 1)
(setvar "cmdecho" 0)
(setq sset (ssget))
(setq rpt (sslength sset))
(setq z 0)
(repeat rpt
(setq ent (cdr (assoc 8 (entget (ssname sset z)))))
(command"layer" "f" ent "")
(setq z (+ z 1))
)
(setvar "cmdecho" 1)
(princ)
)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(setq a 1 test 1)
(setvar "cmdecho" 0)
(setq sset (ssget))
(setq rpt (sslength sset))
(setq z 0)
(repeat rpt
(setq ent (cdr (assoc 8 (entget (ssname sset z)))))
(command"layer" "f" ent "")
(setq z (+ z 1))
)
(setvar "cmdecho" 1)
(princ)
)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yazar: internet
İçerik:
Tag:
Yorumlar :
betbet 18.04.2008 14:03 #7940
Bende bugün çalışırken böyle bi komut varmıdır diye düşündüm aklıma geldi lisplere bi göz atıyım dedim varmış:) emeğinize sağlık...