1372826956:AAFe2Py65GSQkfGiRnXuOQ-eD9yXcwMv988

AutoLISP Alıştırma-İlk AutoLISP Programınız

Bundan önce yayınlamış olduğum 10 numaralı Veri Girişi ve Çıkışı isimli AutoLISP dersleri makalesi ile AutoLISP ile ilgili tüm teorik bilgileri tamamlamıştık. Bu makalemde ise, sizlere öğrendiğimiz teorik bilgilerin ışığında 3 adet basit AutoLISP programını nasıl yazacağınızı anlatacağım. Programımız uygun Ölçü “Dimension” değişkenleri ayarı ile UNITS komutunu ayarlayacak.

 

Visual LISP Düzenleyicisini başlatmak için, AutoCAD‘in komut satırına VLIDE veya VLISP yazın ve Enter tuşuna basın.

Visual LISP Düzenleyicisi “Visual LISP Editor” açılacaktır.

Visual LISP Düzenleyicisinin “Visual LISP Editor” Dosya “File” menüsünden, Yeni Dosya “New File” komutunu seçin.

AutoCAD ve VLISP pencerelerini aşağıya küçültün.

Masa üstünüzde AutoCAD‘i çalıştırmak için kullandığınız simgeye sağ tıklayın ve açılan kısa yol menüsünden Özellikler “Properties” seçeneğini seçin.

Başlama Yeri: “Start In:” klasör ismini ve konumunu not edin.

VLISP penceresini tekrar açın.

Visual LISP Düzenleyicisinin “Visual LISP Editor” Dosya “File” menüsünden, Farklı Kaydet “Save As” komutunu seçin.

Başlama Yeri: “Start In:” klasörüne ismini “acaddoc.lsp” vereceğiniz bir dosya yaratın.

Şayet sisteminizde bir acaddoc.lsp dosyası daha önceden mevcutsa, Başlangıç “Start In“ klasörüne ismini acaduser.lsp olarak vereceğiniz yeni bir dosya yaratın.

Aşağıdaki 3 grup kodu kopyalayın ve VLISP programınızın içerisine yapıştırın.

;UD = Ölçüler “Dimensions” için birimleri inç (“) işaretli ondalıklı birimlere değiştirir.

(defun C:UD ()

(princ “\nOndalıklı birimler ayarlanıyor”)

(setvar “CMDECHO” 0)

(setvar “LUNITS” 2)

(setvar “LUPREC” 3)

(setvar “AUNITS” 0)

(setvar “AUPREC” 3)

(setvar “DIMPOST” (chr 34))

(princ)

)

;UA = Ölçüler “Dimensions” için birimleri inç (“) işaretsiz mimari birimlere değiştirir.

(defun C:UA ()

(princ “\nMimari Birimler ayarlandı”)

(setvar “CMDECHO” 0)

(setvar “LUNITS” 4)

(setvar “LUPREC” 5)

(setvar “AUNITS” 0)

(setvar “AUPREC” 3)

(setvar “DIMPOST” “.”)

(princ)

)

;UF = Ölçüler “Dimensions” için birimleri inç (“) işaretli kesirli birimlere değiştirir.

(defun C:UF ()

(princ “\nKesirli Birimler ayarlandı”)

(setvar “CMDECHO” 0)

(setvar “LUNITS” 5)

(setvar “LUPREC” 4)

(setvar “AUNITS” 0)

(setvar “AUPREC” 3)

(setvar “DIMPOST” (chr 34))

(princ)

)

AutoLISP program dosyasını kaydedin.

Programın Açıklaması

;UD = …..                  programı tanımlamak için kullanılan komut satırı

(defun                         tanımlama “DEFINE” fonksiyonu

C:UF                           yeni UF AutoCAD komutunu yaratır

Not c: sürücü ismi DEĞİLDİR ve gereklidir.

UF karakterlerinin AutoCAD’de ön tanımlı bir komut kısaltması olmadığına dikkat edin.

()                                 AutoLISP’in geçici değişkenler yaratması için kullanılır.

(princ                          yazıyı komut satırına yazdırır (kullanıcıya bilgi)

“\n                                yazıyı sonraki satıra yazdırır.

Ayarlanıyor….”)              yazdırılacak yazı

(setvar                        SETVAR komutu ile aynı

“CMDECHO”             SETVAR değişken ismini ayarlamak için; değişkenin ismini iki tırnak işareti () arasına yazdığınıza emin olun.

0                                  SETVAR sistem değişkeni değerini sıfır (0) olarak ayarlar. (0=Kapalı “Off”, 1=Açık “On”

(princ)                         yeni komutu sessizce tamamlar

)                                   programı sonlandıran son parantez

 

NOTLAR –

  1. Açılan her parantezi ( ( ) kapatmak zorundasınız. Parantezlerin çift olarak girilip girilmediğini araştırmak için, Ctrl- [ ve Ctrl-] tuş kombinasyonlarını kullanın.
  2. Programınızı başlatan komutu komut satırından girebilmenizi sağlamak için, c: gereklidir.
  3. Programlarda herhangi bir SETVAR sistem değişkeni kullanılabilir.
  4. Kod satırını test etmek için, o kod satırını AutoCAD’in komut satırına yazın ve Enter tuşuna basın.

 

Şayet sisteminizde bir  acaddoc.lsp dosyası daha önceden mevcutsa, her yeni çizim yarattığınız veya mevcut bir çizimi açtığınız zaman, programlarınız yüklenecektir.

 

Şayet sisteminizde bir acaddoc.lsp dosyası daha önceden mevcut ve acaduser.lsp dosyasını yarattıysanız, mevcut acaddoc.lsp dosyasını düzenlemeli ve aşağıdaki kod satırını eklemelisiniz.

(load “acaduser”)

 

Yeni bir çizim başlatın veya mevcut bir çiziminizi açın.

Komut satırına UD, UA veya UF yazıp Enter tuşuna basın.

Değişkenlerin değiştiğinden emin olmak için, SETVAR komutunu kullanın.

Hakkında Sertan Türkan

AutoCAD Beyni

Bunu da Kontrol edin

Revitte Bir Plan Görünüşü Oluşturma

Revit’te projenize başka bir görünüş ekleyebilir veya mevcut bir görünüşü çoğaltabilirsiniz. Bunun için: Görünüş “View” …

Bir cevap yazın

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

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.