1372826956:AAFe2Py65GSQkfGiRnXuOQ-eD9yXcwMv988

AutoCAD’de Koordinatları GPS Koordinatları Olarak Etiketleme

Sekil-01

Bir Noktanın Koordinatını AutoLISP Programı Kullanarak Etiketleme isimli makalemi yayınladıktan sonra, etiketlemenin GPS Koordinatları  (Doğu-Kuzey “East-North”) koordinatları ve hemen altında yükseklik göstertilerek yapılıp yapılamayacağını soran çok fazla kullanıcı sorusu aldım. Eski kodumuzda bazı ufak değişikliklerle bu işi de hallettim tabi ki.

Aşağıdaki şekilde görüldüğü gibi bu otomatik etiketleme programı önceki programda sadece x, y ve z koordinatlarını yazan tek satırlı yazı yerine Doğu-Kuzey “East-North” ve Yükseklik “Elev” GPS koordinatlarını gösteren üç satırlık bir yazı yaratacaktır.

Sekil-02

Şimdi Not Defterini “Notepad” açın ve aşağıdaki kod satırlarını buradan kopyalayarak Not Defterinde “Notepad” açacağınız yeni bir dosya içerisine yapıştırın ve dosyanıza LB.lsp ismini vererek kaydedin.

AutoLISP programlarının yüklenmesi ile ilgili ipuçlarını AutoCAD’de AutoLISP Programını Yükleme isimli makalemde okuyabilirsiniz.

Faydalı olmasını umuyorum.

; Otomatik Koordinat Etiketleme
; Sertan Türkan
; http://autocadbeyni.com
;
; Kısıtlılık
; ———-
; Program o anki geçerli (aktif) kılavuz “leader” stilini ve o anki geçerli (aktif) birimleri kullanacaktır.
; Şayet yükseklikleri göstermek istemiyorsanız,  sonunda * işareti olan satırları yeniden düzenleyebilirsiniz.

(defun c:lb (/ p x y z ptcoord textloc)
(while
(setq p (getpoint ”
Pick Point: “))
(setq textloc (getpoint ”
Pick Label Location: “))
(setq x (rtos (car p)))
(setq y (rtos (cadr p)))
(setq z (rtos (caddr p))) ;*bu satır silinebilir
(setq x (strcat “East ” x))
(setq y (strcat “North ” y))
(setq z (strcat “Elev. ” z)) ;*bu satır silinebilir
(command “_LEADER” p textloc “” x y z “”) ;*z koordinatı silinebilir
)
)

Şayet isterseniz LISP programını burayı tıklayarak indirebilirsiniz.

 

Hakkında Sertan Türkan

AutoCAD Beyni

Bunu da Kontrol edin

Revitte Perspektif 3B “3D” Görünüş Oluşturma

Revit’te Perspektif “Perspective“ seçeneği, bir 3 boyutlu 3B “3D” görünüşün ortografik yerine perspektif olarak görüntülenip …

Bir cevap yazın

This site uses Akismet to reduce spam. Learn how your comment data is processed.