AutoCAD VBA ile yaptığımız makroların kısayol komutları olarak çalıştırmak.

Bu makalemizde konumuz makroları Autocad komut satırından nasıl çağıracağımız.

3 aşamalı bir çözümümüz var.

1. VBA Editörü ile Makrolarımızı Oluşturmak
2. Not Defteri ile Yönlendirme işlemi için Lisp Oluşturmak.
3. Makromuzu ve Yönlendirme Lisp' imizi bütün Autocad dosyalarında çalıştırabilir yapmak.

Aşama 1 : Makro Oluşturmak:

Daha önceki dersimizde Merhaba Dünya makromuzu oluşturmuştuk. Aynı makroyu kullanacağız.

Sub mesaji_goster()

MsgBox ("deneme")

End Sub

Makromuzu Kaydediyoruz.

Makro Kaydetme

Aşama 2 : Yönlendirme Lisp' inin Oluşturulması:

Not Defteri Uygulmasını açarak aşağıdaki formatta yönlendirme lispimizi yazıyoruz.

(defun c:(hangi kod ile çağırmak istiyorsak)()
( (command "-vbarun" "(makro içindeki koda hangi ismi verdiysek)") (princ) ) )

Benim örneğimde:

(defun c:lgoster()

( (command "-vbarun" "goster") (princ) ) )

Aşama 3 : Kodlarımızın Bütün Autocad dosyalarında başlangıçta yüklenmesi :

• Menü üzerinden Manage > Load Application yolu ile karşımıza uygulama yükleme diyalog kutusu çıkacak

Manage > Load Application > Uygulama Yükleme İletişim Kutusu

• Lisp ve Makromuzu içeren dvb uzantılı dosya için seçtikten sonra Load tuşu ile yükleyeceğiz. Yükledikten sonra kutunun sol alt bölümünde .....successfully loaded. mesajını görmeliyiz.

Uygulama Yükleme İletişim Kutusu

• Diyalog kutusunun alt bölümündeki Contents bölümüne tıkladığımızda karşımıza çıkan menüden yine Lisp ve Makromuzu içeren dvb uzantılı dosyayı Add tuşu ile ekleyeceğiz.

Başlangıçta Yüklenecek Uygulama İletişim Kutusu

İşlemlerimiz bu kadar. Bundan sonra Autocad içinde benim örneğime göre lgoster komutu ile ekranda deneme mesajı çıkmalı.

Örnek Çalışma