* E Posta Adresiniz:
* Kodu Girin:

Seçilen nesnenin layer ını kapatan lisp-2


admin - 05.10.2005 10:35
Yazar: ehya
İçerik:

(Kontrol panelinizde görünür)
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.
Yorumlar :
emrah123321   31.05.2018 16:05 #15891  

kısa yolu ne

gurbuzer   07.01.2014 15:13 #15271  

allah allah bu kodu kopyalayamıyorum.

shawshang   11.08.2007 15: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 18:28 #1840  

saol... cok isime yarıyor

white06   07.12.2006 17:04 #1216  

cok tesekkurler..

Copyright © 2004-2018 | Tüm Hakları Saklıdır | 243 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam