Etiketler

Youtube Kanalıma Abone Olunuz

12 Mart 2020 Perşembe

AutoCAD ile VBA makro kullanımı #5-5

Autocad VBA Makro Kodlarını Çalıştırma Yöntemleri:

Yazının önceki bölümü: AutoCAD ile VBA makro kullanımı #5-4


7) Userformda komut butonu ile makro çalıştırma

Excel VBA editöründe olduğu gibi AutoCAD VBA editöründe de UserForm oluşturma imkanı vardır. UserForm; kullanıcı ile program arasında iletişimi sağlayan Windows standart uygulama penceresidir.
  • VBA Editöründe menüden Insert / UserForm tıklayın ya da Proje Ağacında; Sağ tıkla / Insert / UserForm
  • Açılan UserForm1 penceresine Toolbox Araç çubuğundaki Controls sekmesindeki CommandButton üzerinde tıklayın
  • UserForm1 üzerinde buton oluşturmak ve boyutunu ayarlamak için fare ile dikdörtgen çizin.
  • Buton üzerinde görünen metni (CommandButton1) değiştirmek için buton seçili iken Properties (Kısayol: F4) penceresinde Caption alanındaki CommandButton1 metnini silip Eksen Çiz yazıp Entere basın.
  • Eksen Çiz butonu tıklandığında işletilecek kodları yazalım.
  • Eksen Çiz butonunu çift tıklayın. Kod penceresi açılacak. Aşağıdaki kodları bu pencerede oluşturun.
Private Sub CommandButton1_Click()
    Call ThisDrawing.EksenCiz
End Sub

  • Bu kod çalıştığında ThisDrawing kod penceresindeki EksenCiz alt rutinini çalıştırır. O yüzden AutoCAD ile VBA Makro kullanımı #4-1 sayfamdaki kodu Proje Ağacındaki ThisDrawing'i çift tıklayıp açılan kod penceresine ekleyin.
  • EksenCiz kodları UserForm1 kod penceresine de eklenebilirdi ancak bazı değişiklikler yapmak gerekir.
  • Oluşturduğumuz Form'u çalıştırmak için: Form seçili iken klavyeden F5e basın
  • Form çalışacak ancak Eksen Çiz butonu tıklandığında hata oluşacak.
  • Bu hatayı gidermek için: VBA editöründe UserForm1 seçili iken Properties penceresinde ShowModal özelliğini False olarak değiştirin.

  • F5e basarak tekrar formu çalıştırın.
  • AutoCAD ekranına geçecek ve Form onun üzerinde belirecek.
  • Çalışan Formdaki Eksen Çiz butonunu tıklayın. EksenCiz makrosu çalışacak.

AutoCAD ekranında UserForm'u çalıştırma:

VBA editöründeyken F5 ile formu çalıştırmıştık ancak AutoCAD ekranında formun çalışması için bir makro kodu gereklidir.
  • VBA editöründe menüden Insert / Module tıklayın. Proje Ağacına Module1 eklenecek ve Kod alanında Module1 kod penceresi açılacak.
  • Module1 Kod penceresine aşağıdaki kodu ekleyin
Sub Komutlar()
    UserForm1.show
End Sub

Artık AutoCAD ekranında iken ALT+F8 ile Komutlar makrosunu çalıştırdığımızda UserForm da çalışır.
Aynı yolları takip ederek UserForm'a varsa diğer makro kodları için de butonlar oluşturabilirsiniz.

Hiç yorum yok:

Yorum Gönder