Çizim Okulu
  • Forum
  • Download
  • Galeri
  • AboneOl
  • Üye Ol veya GiriÅŸ Yap

Bölüm indeksi
Makaleler
Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 Boyut Dersleri
Proje Dökümanları
Çizimler
Mimari Çizimler
Elektrik
DoÄŸalgaz
Harita Çizimleri
Tesisat
Ferforje
Makine
3 Boyut
3ds Max
ArchiCAD
Solidworks
Diğer Çizimler
Lispler
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
Sürümler
Menüler
DWF Dosyaları
Programlama
AutoCAD Püfleri
EÄŸitim
AutoCAD EÄŸitimi
Karma 3 Boyut Dersleri
Adım Adım AutoCAD Eğitimi
01.Bölüm
02.Bölüm
03.Bölüm
04.Bölüm
05.Bölüm
06.Bölüm
07.Bölüm
08.Bölüm
09.Bölüm
10.Bölüm
11.Bölüm
12.Bölüm
Uygulamalar
Adım Adım 3 Boyut Eğitimi
Kariyer
3ds Max
Attribute lar
AutoCAD Genel
  • AutoCAD
  • AutoLISP
  • AutoCAD Programlama
  • AutoCAD Püfleri-1
  • AutoCAD Püfleri-2
  • AutoCAD Komutları
  • AutoCAD Terimler Sözl.
AutoCAD EÄŸitimi
  • AutoCAD EÄŸitim Videoları
  • AutoCAD EÄŸitimi
  • AutoCAD Dersleri
  • AutoCAD EÄŸitim Notları
  • AutoCAD 3 Boyut Dersleri
3ds Max
  • 3ds Max Nedir?
  • 3ds Max Model ve Çizim
Ö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ı
Program Ekle
Ziyaretçi: 274, Üye: 1
admin
Detaylar »
> AutoLISP > Örnek Lispler > Seçilen nesnenin layer ını kapatan lisp-2

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

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 !")

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..

Copyright © 2004-2022 | Tüm Hakları Saklıdır | 1385 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 0.049 saniye - Sorgu: 35 - Ortalama: 0.00139 saniye