11.11.2016 04:24    

alves
tesisat projesi çizimi için mimari proje bana geldiğinde ben bana gerekli olmayan yazıları layerleri silme yapıyorum çizimi sadeleştiriyorum. bunu her zaman layoff tarzı komutlarla yapamıyorum renk çalışılmışta oluyor. ben bunu her zaman quick select ile tekrar tekrar yapmak zorunda kalıyorum....


acaba ben bunu bir sefer yaparken yaptığım işlemleri kayıt etsem daha sonra bir başka dosya yine aynı işlemler yapmak yerine play düğmesi gibi bir şeye bassam kayıt ettiğim işlemleri yapabilecek lisp program v.b. birşey varmıdır.

11.11.2016 07:05    

ehya
aşağıdaki lisp size daha kolaylık sağlayacaktır.
Bir projede layer yerine rengi değiştirilmiş nesneleri layer'a dönüştürür.
layer ismi, renk numarasıdır. Bu sayede freeze komutunu kullanabilirsiniz..
Komut ismi RLY

Kod:

(defun c:rly ()
(if (setq sec_r (ssget))
  (progn
    (setq c 0 say_r (sslength sec_r))
    (while (< c say_r)
      (setq tek (ssname sec_r c)
    rrr (cdr (assoc 62 (entget tek))))
      (if rrr
(progn
   (if (tblsearch "layer" (rtos rrr 2 0))
     (progn
       (command-s "_.change" tek "" "p" "c" "bylayer" "la" (rtos rrr 2 0) ""))
     (progn
       (command-s "_.layer" "make" (rtos rrr 2 0) "color" (rtos rrr 2 0) """")
       (command-s "_.change" tek "" "p" "c" "bylayer" "la" (rtos rrr 2 0) "")
       ))))
      (setq c (1+ c)))))(princ))

11.11.2016 08:30    

alves
çok teşekkür ederim ehya bey. ama yinede ben biraz daha ayrıntı vereyim. o zaman

projede bana standart olarak geliyor tüm katmanlar. bende renkten giderek silme yapıyorum.

projedeki yazı boyutu 10 olan yazıları (bu değişiyor tabi ) siliyorum. mesela 150 renkleri siliyorum. mavi renkleri duvar layerine dönüştürüyorum. v.b. işlemler

> 1 <
Copyright © 2004-2022 SQL: 0.809 saniye - Sorgu: 48 - Ortalama: 0.01685 saniye