Etiketler

AutoCAD (54) bedava (46) Resim (33) Dosya (32) program (21) Ziyaretçi Defteri (20) excel (18) Güncelleme (16) asgbookphp (16) Şablon (15) Qbasic (14) php (14) Eğitim (13) Nasıl yapılır (13) online (13) Freeware (12) PHP script (12) Fotoğraf (11) Kaynak kod (10) SolidWorks (10) Dos (9) Photoshop (9) VBA (9) Visual Basic (9) ürünler (9) E-book (8) tutorial (6) Ders (5) Word (5) Lisp (4) Programlama (4)

2 Mart 2017 Perşembe

AutoCAD VBA Makro: Eksen çizimi

AutoCAD VBA makro kullanımı hakkında temel bilgileriniz yoksa konuyla ilgili bir önceki yazımı okumanızı tavsiye ederim.
Bir önceki yazıda "VBA kodları ile belirtilen noktaya eksen çizgileri çizen kodları" yazacağımı belirtmiştim.
İşte bu yazıda bunun nasıl yapıldığını göreceğiz.

AutoCAD'i açın
ALT+F11 ile VBA editörünü açın
Sol bölmeden ThisDrawing'i çift tıklayın sağ bölmede kod bölmesi açılacak.
Kod bölmesine aşağıdaki VBA kodu ekleyin.



AutoCAD penceresine geçin.
Kodları çalıştırmak için 3 farklı yol var.

1) Klavyeden ALT+F8,
2) Komut satırından VBARUN,
3) Ribbon menüden Manage / Applications / Run VBA Macro
Kodlar çalıştığında "Merkez Noktası belirt." mesajıyla merkez noktası istenecek. Fare ile konum tıklanacağı gibi klavyeden koordinat da girilebilir. 200,250 gibi
Sonraki aşamada Kol uzunluğunu gir mesajıyla eksenin bir kol uzunluğu girilir ya da fare ile açıklık belirtilir.
Komut sonlandığında belirtilen konuma verilen kol uzunluğu kadar + (eksen) çizgileri çizilir.

Evet, bu eksen çiziminde bir sorun var. Eksen düz çizgiyle çizilmiş. Kodları çalıştırmadan önce çizgi tiplerinden eksen çizgisi seçilirse eksen kesik noktalı çizgiyle çizilir. Ama bu işlemi kodlarla da yapabiliriz.
Kod alanında kodların tamamını silip aşağıdaki kodları ekleyin.


Artık üstteki resimde görüldüğü gibi eksen çizgisi ile eksen çizilecek.
Komuttan çıkıldığında tekrar düz çizgi otomatik seçilsin isterseniz Ens Sub Satırından önce aşağıdaki satırı ekleyin.

Bu kadar :) Bir sonraki yazıda görüşmek üzere.

Hiç yorum yok:

Yorum Gönder

Related Posts Plugin for WordPress, Blogger...