AutoCAD 12 ve üzeri, MS EXCEL 2003

Merhabalar,

Bugün; VBA ile AutoCAD için yazılım geliştirme tekniklerini anlatmaya devam edeceğim. Bir önceki makalemde görsel tasarımını ve kod yazımını anlattığım programa birlikte yeni bir fonksiyon ekleyelim. Şimdi tasarladığımız programdan bahsedelim ve sonuç olarak nerede kaldığımızı hatırlayalım.

Tasarladığımız program; birinci işlevde, AutoCAD’in grafiksel ortamından cursor yardımı ile kullanıcının gösterdiği noktaları işaretleyip, eş zamanlı olarak kullanıcının belirlediği seçenekler doğrultusunda seçilen noktalara, seçim sırasını belirten sıra no ve kullanıcı tarafından girilen metin ekliyordu. İkinci işlevde ise kullanıcı tarafından seçilen noktaların koordinat bilgilerini içeren bir tablonun AutoCAD’in grafiksel ortamına eklenmesi işlemini gerçekleştiriyordu. Programa yeni dâhil edeceğimiz seçilen noktaların koordinat bilgilerini Ms Excel programına gönderilmesi fonksiyonu ise üçüncü işlevi oluşturacaktır.

İlk adım olarak, projeyi AutoCAD ortamına “Tools\Macro\Load Project…” yolunu izleyerek yüklüyoruz ve ardından “Tools\Macro\Visual Basic Editor” yolundan da VBA editörünü çalıştırıyoruz.

Programımız ana yapısını oluşturan UserForm nesnesine yeni bir CommandButton kontrol nesnesi ekliyoruz. CommandButton nesnesinin özelliklerini Tablo-1 deki gibi değiştirelim. Tasarım aşamasındaki UserForm’un görünümü Şekil-1 de verilmiştir.

Şekil -1 Tasarım halindeki UserForm Görünümü

Tasarladığımız programlar, eğer harici bir program üzerinden veri alışverişi gerçekleştirecek ise, bağlantı kurulacak olan programın alt yapısını, projemize entegre etmemize olanak sağlayacak bir takım referans dosyalara ihtiyaç duyarlar. Bu referans dosyaları, “Tools\Referances…” yolu izlenerek projemize dahil edilir. Tasarladığımız programda Microsof Excel ile bağlantı kurulacağından ilgi referans dosyasını Şekil-2 deki gibi seçerek projemize dahil edelim. (Çalıştığım bilgisayarda Ms Excel 2003 sürümü yüklü olmasından dolayı, Microsoft Excel 11.0 Object Library referansı var. Bu referans dosyası yüklü olan Ms Excel sürümüne göre farklılık gösterebilir). Kod açıklamalarını, yine kod yazımı ile birlikte yaptım. Böylelikle açıklamaların altında yer alan kodlarla neyin yapılmak istendiği daha açık bir şekilde anlaşılabiliyor.

Şekil -2 References Diyalog Kutusunun Görünümü

Send to Excel Butonu kodları

Form Aktive (yüklenirken) edilirken kullanılacak kod, Form Aktive yordamına sadece sarı renk ile markalanmış kodları ekleyeceğiz.

İlgili kodların yazımını gerçekleştirdikten sonra programımızı tamamlamış bulunuyoruz. Programın çalışır durumdaki son form görünümü Şekil-3 deki gibidir. Programın Ms Excel çıktısı ise Şekil-4 de görülmektedir. Programlama ile uğraşan arkadaşlar için umarım bu bilgiler yaralı olur. Yeni bir yazıda buluşmak üzere şimdilik hoşakalın…

Şekil 3: Tasarımı Tamamlanmış UserForm Görünümü

Şekil 4: Programın Ms Excel çıktı görüntüsü

İlgili Dosyalar:

•   Project1.zip
   
  »(17 KB, 129 hits, 2008 March 4),
   
  Örnek VBA uygulaması - Suphi TUNALI / (c)2007 AutoCAD Günlüğü

İlgili Yazılar:

• VBA İle AutoCAD için yazılım geliştirme
• AutoCAD VBA üzerine
• VBA ile Box Çizdirme ve Taşıma
• VBA for AutoCAD nesne modeli kullanımına bir örnek
• AutoCAD’de ilk VBA programım
• AutoCAD Programlama Yöntemleri
• AutoCAD Programlama Dilleri

Rastgele bir yazı

• Paftalarda Render ve Çizimi Birlikte Basmak

438 defa okunmuş Bu hafta: 13 defa okunmuş Bugun: 3 defa okunmuş Son okunma: 16 May 2008, 23:04

AutoCAD, Programlama, VBA

(1 oy, ortalama: 5)

 Loading ...