Seçilen nesnenin layer ını kapatan lisp-2
ehya - 05.10.2005 06:35
Seçtiğiniz nesnenin veya nesnelerin ait olduğu layer ı kapatır.
Bu lisp Seçilen nesnenin layer ını kapatan lisp-1 'e göre büyük dosyalarda daha hızlı çalışacaktı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.
Bu lisp Seçilen nesnenin layer ını kapatan lisp-1 'e göre büyük dosyalarda daha hızlı çalışacaktır.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
(defun ff_hata (s)
(if (/= s "Function cancelled")
(princ (strcat "
Error: " s))
)
(setq *error* olderr)
(princ)
)
(defun c:ff (/ SS1 E# ENT NAMES LYR)
(setq olderr *error*
*error* ff_hata
)
(setvar "cmdecho" 0)
(princ "
Katmanı kapatılacak nesneleri seçiniz:")
(setq SS1 (ssget)
E# (sslength SS1)
)
(if (> E# 0)
(progn
(setq ENT (ssname SS1
(setq E# (1- E#))
)
ENT (entget ENT)
NAMES (cdr (assoc 8 ENT))
E# (1- E#)
)
)
)
(while (> E# -1)
(setq ENT (ssname SS1 E#)
ENT (entget ENT)
LYR (cdr (assoc 8 ENT))
NAMES (strcat NAMES "," LYR)
E# (1- E#)
)
)
(command "LAYER" "F" NAMES "")
(princ)
)
(princ)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(if (/= s "Function cancelled")
(princ (strcat "
Error: " s))
)
(setq *error* olderr)
(princ)
)
(defun c:ff (/ SS1 E# ENT NAMES LYR)
(setq olderr *error*
*error* ff_hata
)
(setvar "cmdecho" 0)
(princ "
Katmanı kapatılacak nesneleri seçiniz:")
(setq SS1 (ssget)
E# (sslength SS1)
)
(if (> E# 0)
(progn
(setq ENT (ssname SS1
(setq E# (1- E#))
)
ENT (entget ENT)
NAMES (cdr (assoc 8 ENT))
E# (1- E#)
)
)
)
(while (> E# -1)
(setq ENT (ssname SS1 E#)
ENT (entget ENT)
LYR (cdr (assoc 8 ENT))
NAMES (strcat NAMES "," LYR)
E# (1- E#)
)
)
(command "LAYER" "F" NAMES "")
(princ)
)
(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: ehya
İçerik:
Tag:
Yorumlar :
emrah123321 31.05.2018 12:05 #15891
kısa yolu ne
gurbuzer 07.01.2014 12:13 #15271
allah allah bu kodu kopyalayamıyorum.
shawshang 11.08.2007 11:50 #5203
teşekkürler çok işe yarıyor
ehya senden bir isteğim olacak bu lispi layer kilitleme olarak nasıl düzenlenir ? yardımcı olursan sevinirim
ethela 15.01.2007 15:28 #1840
saol... cok isime yarıyor :)
white06 07.12.2006 14:04 #1216
cok tesekkurler..