Reklamlar

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

İş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)

)

 

Reklamlar

Hakkında Sertan Türkan

AutoCAD Beyni

Bunu da Kontrol edin

Revitte Kısıtlar “Constraint” Hakkında

Revitte Kısıtlar “Constraint” Hakkında Video: Kısıtlamaları Anlama (İngilizce) Kurs Sağlayıcı: Organization Video: Kısıtlamaları Anlama (İngilizce) …

Yardıma mı ihtiyacınız var? Chat with us
Bir görüşme başlatmak için lütfen önce gizlilik politikamızı kabul edin.