












































































































































































































































AutoCAD Genel
AutoCAD EÄŸitimi
Özel Yazılımlar
- aLd Fonksiyonu
- TCad Metraj
- FacadeCAD
- Cephe Kot
- HQ Library
- FreeMUST
- ALS/Pasdoc.A
- Excele Tablo Aktaran Lisp
- Nokta Koordinat Tablosu
- Plana İç Ölçü Verme
- Toplam Alanı Yazan Lisp
- Alan ve Çevre Yazan Lisp
- Koordinat, Alan ve Çevre Tablo Halinde Yazma
- AutoCAD'de Nokta Dökümü
- Hava Kanalı Metraj Fonksiyonu
- Boru Metrajı Fonksiyonu
- OptiCAD
- Özel Çizgi Tipi Oluşturmak
- AutoCAD te Koni Açılımı Nasıl Yapılır?
- PolyLine & Point Objelerinden Aplikasyon Çizelgesi
- Z değerini sıfırlama
- AutoCAD te Polyline üzerine uzunluk yazdırma
- Sıralı numaralandırma
- Yazı içindeki sayıları toplama
- Karmaşık Path ile Loft Uygulaması
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
Duvar-Lento-Kapı-Pencere Metraj Programı
Seçilen nesnenin layer ını kapatan lisp-2
admin - 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 :

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