Visual LISP ve open DCL

Merhaba arkadaşlar,

DCL ile ilgili ilk yazıma başlarken, sizlere bundan sonra nasıl kolay ve çabuk bir şekilde arayüz tasarlama tekniğini öğretirim diye düşünüyordum. Bu nedenle bu yazımda, uzun bir zamandır Açık kaynak yazılımı (open source) olarak gündemde olan Open DCL paketine biraz açıklık getirmek istiyorum. OpenDCl, Visual LISP ile programlama yaparken DCl arayüzlerini daha kolay tasarlamanız için geliştirilmiş açık kaynak kodlu bir AutoCAD eklentisidir. Önceleri Object DCL ile satışa sunulan programı denedim, fakat hatalarla dolu olduğu icin kullanmaktan vazgeçmiştim. Open DCL projesinin başında bulunan Owen Wengerd, David Robinson ve diğer arkadaşları paketi mükemmel bir araç haline getirmişler. Kendilerine buradan Teşekkürler.

Programı kullanmak için Runtime ve Studio sürümünü indirmek zorundasınız. Runtime versiyonu AutoCAD için gerekli olan ARX programlarını “OpenDCL.16.arx” ve “OpenDCL.17.arx” barındırır. AutoCAD 2008 - 64 Bit sürümü için gerekli olan “OpenDCL.x64.17.arx” dosyasıda bulunmakta. Runtime paketin ismi “OpenDCL.Runtime.ENU.4.0.3.1.msi” olarak geçer ve Şekil.1′deki görüntüye benzer kişisel arayüzleri göstermeye yarar. OpenDCL Studio arayüz tasarımı için gerekli olan programdır. Visual Basic™ veya Microsoft Studio™ .Net kullanıcıları için yabancı gelmeyecektir.

Programın ana sayfası www.opendcl.com download için bir link bulundurur. (Not: SourceForge sitesinde hazır bulundurulan install paketleri karşınıza çıkmıyorsa Firewall ile Port 443 kapatılmış olabilir!. Bunu açık tutmalısınız)

Gelelim Orhan beyin önceden yazdığı ilkel Find-Replace uygulamasının Visual Lisp ile uyarlanmış sürümüne. Farenizin sağ tuşunda bulunan kısayol menüdeki Find komutunun bir basit uygulaması olarak düşünebilirsiniz. Maksat basit bir şekilde sizlere AutoLisp dilini öğretebilmek. Örneğin seçim seti nasıl kullanılır?. Özellikle VisuaLisp dilinde biraz tecrübe gerektiren alt fonksiyonları da hazır bir şekilde sunuyoruz. Gerisi sizlerin azminize kalmış …

Fig.1 - Ana (main) Fonksiyon “C:FR_ODCL” veya “C:X“

Kontrol nesneleri icin seçilen olaylar (Event) program tarafından şablon olarak fonksiyonların ismi oluşturulur. Aşağıda kırmızı ile yazılmış kısmı kopyalayıp AutoLisp koduna kolaylıkla ekliyebilirsiniz (Şekil.2)

Fig.2 - TextBox için gerekli olan Event - EditChanged

Form üzerinde kullanılan kontrol nesnelerini ve kullanıcının hangi olayda (Event) ne tür AutoLISP fonksiyonu ile bağlantılı oluşunu bir tablo haline getirip konuya biraz açıklık getirmek istedim (Şekil.3) Find-Replace formumuzda üç değişik nesneler bulunmakta.

• Komut butonu (Command Button)
• Metin Kutusu (Text Box)
• Etiket (Label)

Fig.3 - FR.ODCL dosyasında bulunan methodlar.

Aşağıda gördügünüz gibi “_OpenDCLUtils.lsp” programını yükleyip, LoadRuntime fonksiyonunu ilk önce devreye sokuyoruz (Şekil.4). LoadRuntime ile gerekli olan ARX dosyası böylelikle otomatikmen kullanıma hazır olacak ve Open DCL ayıt olan fonksiyonları hata vermeden kullanacağız.

OpenDCLUtils.lsp isimli programı \Program Files\Open DCLStudio\Examples dosyasında görmek mümkün (Not: Önek “_” karaketrini ben ilave ettim. Diğer dosyalardan ayırabilmek için işime yarıyor).

Fig.4 - Ana (main) Fonksiyon “C:FR_ODCL” veya “C:X“

AutoCAD ekranında arayüz görüntülenmeden önce değişkenler için gerekli olan verileri girmeniz gerekir. Form için gerekli olan Initialize methodu bu işe yarar. (Şekil.5)

Fig.5 - Alt Fonksiyon “C:FR_frmFndRep_OnInitialize“

Metin kutusunda veriler herhangi bir değişikliğe uğradığı takdirde EditChanged olayı kullanılır (Şekil.6)

Fig.6 - Alt Fonksiyon “C:FR_frmFndRep_txtRep_OnEditChanged“

Farenizle Tamam dügmesine (OK-Button) tıkladığınız zaman devereye giren alt fonksiyon (Sekil.7)

Fig.7 - Alt Fonksiyon “C:FR_frmFndRep_cmdOK_OnClicked“

İptal / vazgeç düğmesine bağlı olan olay OnClicked (Şekil.8)

Fig.8 - Alt Fonksiyon “C:FR_frmFndRep_cmdCancel_OnClicked“

C:FR_LispExe fonksiyonu tüm TEXT nesnelerini filtreler ve değiş tokuş işlevini görur. Eğer işlem başarıyla bitirilmiş ise ne kadar nesnelerin değerleri değistiğini bir sayı olarak geri verir (Return Value).

Fig.9 - Alt Fonksiyon “C:FR_LispExe”

Bazen arayüzü kullanmak işimize yaramaz ve komut satırı ile girilmesi daha uygun olur. Örneğin AutoCAD Script’i ile otomatik şekilde bir uygulamanız var ise. C:FR komutu (Şekil.10) yukarıdaki C:FR_ODCL (Şekil.4) gibi ortak bir yönü vardır. Her ikiside alt fonsiyonu C:FR_LispExe‘yi kullanır. Komut satırı veya arayüz ile çalısmak istiyorsanız sistem değişkeni FILEDIA‘nın değerini kontrol edip ona göre programı yönlendirmek mümkün (1=Arayüz,0=Satır komutu).

Fig.10 - Ana Fonksiyon “C:FR”

AutoLisp’de bulunan getstring‘e benzer bir alt fonsiyon (UTL:GET:STRING)

Visual Lisp olarak uyarlanmışdır (Sekil.11).

Fig.11 - Alt Fonksiyon “UTL:GET:STRING“

Bundan önceki yazdığım C:DelPtX programında bulundurulan alt fonsiyonları aşağıda tekrar görülmekte. UTL:ADD:SELECTIONSET (Şekil.12) ve UTL:SEL:SET-FILTER (Şekil.13) bugünkü örneğimizde yine kullanacağız.

Fig.12 - Alt Fonksiyon “UTL:ADD-SELECTIONSET“

Fig.13 - Alt Fonksiyon “UTL:SEL:SET-FILTER“

Programda kullanılan VisualLisp komutları:

• vl-catch-all-error-p, vl-catch-all-apply
• vlax-for, vla-Add, vla-item
• vlax-Select, vla-SelectOnScreen, vla-Highlight
• vlax-SafeArray-Fill, vlax-Make-SafeArray

Kolay gelsin,

Technorati Tags: Visual LISP, Open DCL, AutoCAD 2008

Benzer Yazılar

• Visual LISP: TXT dosyasından nokta listesi okuma uygulaması
• Visual LISP: Nesne özellikleri ve metodları
• Çizimdeki noktaları silen AutoLISP uygulaması
• POLYLINE genişliğini değiştiren AutoLISP uygulaması
• Visual Lisp: AutoLISP ile İki Nokta Arasındaki Eğimi Ölçmek

1128 defa okunmuş Bu hafta: 17 defa okunmuş Bugun: 4 defa okunmuş Son okunma: 12 October 2008, 17:44

AutoCAD, AutoLISP, Programlama, Visual LISP

(No Ratings Yet)

 Loading ...