30.03.2021 14:08    

ozkul
Arkadaşlar merhaba,

"Index colordaki" renkler hariç özel renkler (181.356.133 vb. şeklindeki) çıktıda monchrome/grayscale seçsek dahi renkli çıkıyor. Projedeki tüm bu tip renkleri siyah beyaza çevirecek bir lisp/komut var mıdır?

30.03.2021 16:19    

alumina
Alıntı
ozkul :


Secilen ozel renklere sahip nesnelerin renklerini indexcolor a cevirir..
Kod:

(defun c:cl (/ dc ss k)
            (vl-load-com)
  (if (setq dc (vla-get-ActiveDocument
          (vlax-get-acad-object))
        ss (ssget))
    (progn (vla-StartUndomark dc)
      (repeat (setq k (sslength ss))
        (setq k (1- k))
        (entmod (vl-remove-if '(lambda(a)
          (or (= (car a) 420) (= (car a) 430)))
            (entget (ssname ss k)))))
      (vla-EndUndomark dc)
    )
  ) (prin1)
)

31.03.2021 06:23    

ozkul
eyvallah üstad.

çok işimi görecek.

31.03.2021 07:02    

ehya
Merhaba Özkul,

Bahsettiğin durum sorun gibi görünse de bu bir seçenek olup, Autolisp'den öte Autocad'de bununla ilgili bir çözüm var.

Sırası ile anlatmak gerekirse;

- CONVERTCTB komutunu çalıştırın. Bu komut ile mevcutta kullandığınız CTB uzantılı dosyanın STB formatını elde edeeceksiniz.
- CONVERTPSTYLES komutunu çalıştırın.
Ekrana gelen uyarda TAMAM dediğinizde ekrana gelen tabloda çevirisini yaptığınız STB dosyasını seçin.
- PLOTkomutunu çalıştırın.
Kalem kalınlığı seçeneklerinin hazırladığınız STB dosyasını seçin ve baskınızı alın.


STB seçeneğini eskisi gibi CTB yapmak için, CONVERTPSTYLES komutunu çalıştırın ve Tamam butonuna basın.

31.03.2021 07:37    

ozkul
üstad teşekkürler.

şöyle bir sorunum var.
işverenden gelen projeye kendi çizimlerimizi ekliyoruz. gelen çizimlerin tamamının rengi siyah olacak. bizim eklediklerimiz kırmızı olacak. hali ile çıktıda iki renk olacak. siyah ve kırmızı.

senin dediğin yöntemle yaptığımda bu renkleri ayıramıyorum. ya tamamı renkli ya da tamamı siyah çıkıyor. style de oluştursam olmuyor nedense.

> 1 <
Copyright © 2004-2022 SQL: 1.706 saniye - Sorgu: 56 - Ortalama: 0.03047 saniye