23.05.2013 06:19

73292    

Çizim sırasında mesela "8" nolu renk yani "gri" olan tüm renklerin layerini lisp ile off yapılabilirmi?
Saygılar.

23.05.2013 06:33

73296    

Alıntı

---

ozkul :


Linkleri görebilmek için ÜYE olmalısınız.

---

Yapılamazmı yani böyle bir lisp çalışması

23.05.2013 06:49

73298    

Yeni sürümlerde "Isolate" seçeneği var. Katman haricinde istenilen nesne gizlenebilir.

23.05.2013 07:03

73301    

Alıntı

---

Travaci :
Uuu güzel olmuş : ) yeni sürümlere daha geçemedik.

---

Hala R12 mi kullanıyorsun üstad.

-------------------------------------
Çizim Okulu

23.05.2013 07:26

73303    

Uyanamadım, uykulu gözlerle yarım yamalak okumuşum : D Anladığım şeyi söylersem beni banlarsınız o derece :D

01.06.2013 09:13

73567    

Alıntı

---

ehya :
"Filter" komutunu çalıştırın. "Select Filter" bölümünden "Color" seçeneğini seçin. "Select" butonuna basıp burada 249 no'lu rengi seçip ok butonuna basın. Ardından "Add to list" butonuna basarak seçilen rengin tablonun üst bölüme eklendiğinden emin olun. Daha sonra "Apply" butonuna basın. Çiziminizi toplu halde seçip enter yapın. 249 no'lu renge sahip tüm nesneler seçili duruma geçecektir.

---

bu uzun işlem basamaklarını lisp ile kısaltabilirmiyiz?

01.06.2013 10:51

73570    

Alıntı

---

ehya :
249 sayısını istediğin gibi değiştir.. komut satırına yapıştır ve seçimini yap. sdece o renk seçilecek. "previous" alt komutuyla da seçilen nesnelere istediğni işlemi uygula.

Kod:

(ssget (list (cons 62 249)))

---

abi denedim ama hiç bir şey seçmedi

01.06.2013 11:17

73576    

Alıntı

---

ehya :
nesnesnin rengi değiştirilmiş ise seçer. verilen renk numarası layer rengi ise seçim yapmaz. Nesne rengi bylayer olmayacak

---

benim nesnelerin layer renkleri değişmemiş + ben seçilen nesnelerin layerini kapamak istiyorum.
belki zor bişey istediğim ama bana gerçekten çok fayda katar abi.

01.06.2013 11:26

73584    

Linkleri görebilmek için ÜYE olmalısınız.



istediğin lisp aşağıda.... renk numarasını girdikten sonra istediğin çizimi seç. seçilen nesnelerin içinde ister sadece renk değişimi olsun ister layer'da belirtilmiş olsun. hepsini seçim setine alır.


Kod:
(defun c:cs ()
(setvar "modemacro" "Archme Design --> EhYa <--")
(if (= cs_renk nil)
(setq cs_renk 1))
(setq cs_r (getint (strcat "\nRenk numarasını girin :< " (rtos cs_renk 2 0) " >:")))
(if (= cs_r nil)
(setq cs_r cs_renk))
(setq cs_renk cs_r)
(princ "\nSeçim yapın:")
(setq cs_secim (ssget))
(if (= cs_secim nil)
(progn)
(progn

(setq cs_add (ssadd))
(setq cs_say (sslength cs_secim))
(setq cs_c 0)
(while (< cs_c cs_say)
(setq cs_tek (ssname cs_secim cs_c))
(setq cs_62 (cdr (assoc 62 (entget cs_tek))))
(if (= cs_62 nil)
(progn
(setq cs_lay (cdr (assoc 8 (entget cs_tek))))
(setq cs_layy (tblsearch "layer" cs_lay))
(setq cs_layy_r62 (cdr (assoc 62 cs_layy)))
(if (/= cs_layy_r62 cs_renk)
(progn)
(progn
(setq cs_add (ssadd cs_tek cs_add)))))
(progn
(if (/= cs_62 cs_renk)
(progn)
(progn
(setq cs_add (ssadd cs_tek cs_add))))))
(setq cs_c (+ cs_c 1)))))
(sssetfirst nil cs_add)
(princ))


abi 2008 yılındaki lispinde yapmışsın zaten :)
tek ricam seçtiğimiz nesnelerinde layerini kapayabilirmiyiz?

cizimci8 (01.06.2013 13:03 GMT)

12.06.2013 13:11

73719    

Alıntı

---

cizimci8 :

Alıntı

---

cizimci8 :


Linkleri görebilmek için ÜYE olmalısınız.

ehya

---

istediğin lisp aşağıda.... renk numarasını girdikten sonra istediğin çizimi seç. seçilen nesnelerin içinde ister sadece renk değişimi olsun ister layer'da belirtilmiş olsun. hepsini seçim setine alır.


Kod:
(defun c:cs ()
(setvar "modemacro" "Archme Design --> EhYa <--")
(if (= cs_renk nil)
(setq cs_renk 1))
(setq cs_r (getint (strcat "\nRenk numarasını girin :< " (rtos cs_renk 2 0) " >:")))
(if (= cs_r nil)
(setq cs_r cs_renk))
(setq cs_renk cs_r)
(princ "\nSeçim yapın:")
(setq cs_secim (ssget))
(if (= cs_secim nil)
(progn)
(progn

(setq cs_add (ssadd))
(setq cs_say (sslength cs_secim))
(setq cs_c 0)
(while (< cs_c cs_say)
(setq cs_tek (ssname cs_secim cs_c))
(setq cs_62 (cdr (assoc 62 (entget cs_tek))))
(if (= cs_62 nil)
(progn
(setq cs_lay (cdr (assoc 8 (entget cs_tek))))
(setq cs_layy (tblsearch "layer" cs_lay))
(setq cs_layy_r62 (cdr (assoc 62 cs_layy)))
(if (/= cs_layy_r62 cs_renk)
(progn)
(progn
(setq cs_add (ssadd cs_tek cs_add)))))
(progn
(if (/= cs_62 cs_renk)
(progn)
(progn
(setq cs_add (ssadd cs_tek cs_add))))))
(setq cs_c (+ cs_c 1)))))
(sssetfirst nil cs_add)
(princ))

---

abi 2008 yılındaki lispinde yapmışsın zaten :)
tek ricam seçtiğimiz nesnelerinde layerini kapayabilirmiyiz?

---

---

Abi yukarıdaki lispini çalıştırınca istediğim gibi seçim yapıyorum fakat seçilen renklerin layerinide kapatabilirsem çok güzel olacak