Harici Çizimin “XREF” Tabaka Renklerini Tek Bir Renge Değiştirme

Posted on by on Temmuz 31st, 2018 | 0 Yorum »

İşte size bir harici çizimi “xref” seçmenizi ve o harici çizimin “xref” tüm tabakalarını “layer” belirli bir renge (örneğimizde 253 nolu renk) dönüştürmenizi sağlayan harika bir Autolisp kodu.

Bu kod, çalışmamın bazı çizimlerinde çok işime yaradı; çünkü bir harici çizim “xref” olan önerilen tasarımı altlık olarak kullanmak zorundaydım. Önerilen çizimin hem taslak hem de baskı yaparken iyi bir karşıtlığa sahip olmasını sağlamak için, mevcut çizim harici çizimin “xref” 253 nolu renk haricindeki renklerini geçersiz kılmalıydım. (aşağıda gösterildiği gibi) bu AutoLISP kodu ile, tek bir tıklamayla bunu kolayca yapabiliriz.

;;; Bu kod sadece mevcut çizimde seçilen harici çizimin “xref” tabakalarının “layer” rengini AutoCAD’in 253 nolu rengine değiştirir.

;;; Altlık olarak kullanılması gereken harici çizimler “xref” için kullanışlıdır.

(defun c:XR253     (/ xr1 xr2 xr3 xr4 xr5 xr6 tx1 tb1)

(if (setq

xr1 (entsel “\nTüm tabakalarının rengi 253 nolu renge değiştirilecek harici referansı “xref” seçin: “) ;;; <—Renk numarasını istediğiniz renk numarasına değiştirebilirsiniz.     

) ; setq fonksiyonun sonu.

(progn

(setq xr2 (entget (car xr1)))

(setq tx1 (cdr (assoc 0 xr2)))      (if (and (= tx1 “INSERT”)

) ; and fonksiyonu sonu.

(progn

(setq xr3 (cdr (assoc 2 xr2)))

(setq xr4 (tblsearch “block” xr3))

(if (setq xr5 (cdr (assoc 1 xr4)))

(progn

(setq xr6 (strcat xr3 “|*”))

(command “-layer” “c” “253” xr6 “”)  ;;; <—Renk numarasını istediğiniz renk numarasına değiştirebilirsiniz.

) ; progn fonksiyonu sonu.

(prompt (strcat “\n” xr3 ” Seçilen bir harici referans “X-Ref” değildir!”))

) ; if fonksiyonu sonu.

) ; progn fonksiyonu sonu.

(prompt “\nGeçerli bir harici çizim “xref” seçilmedi “)

) ; if fonksiyonu sonu.

    ) ; progn fonksiyonu sonu.

(princ ” …Hiç bir şey seçilmedi!”)

) ; if fonksiyonu sonu.

(princ)

)

 

« Özel Şekiller Yaratmak için 2 Boyutlu 2B “2D” Şekilleri Birleştirme veya Çıkartma
AutoCAD’de Kılavuzlara Şekiller Ekleme »