Bu alıştırmada, VBA kullanarak yeni bir AutoCAD çizimi oluşturacak, bu çizime bir metin satırı ekleyecek ve ardından çizimi kaydedeceksiniz.
- AutoCAD komut isteminde, vbaide yazın .
- VBA IDE’sinde, Proje Gezgini penceresinde, ThisDrawing sınıf modülünü veya projedeki bir kod modülünü seçin.
- Menü çubuğunda, Menüyü görüntüle seçeneğine tıklayın.
ThisDrawing sınıf modülü için bir kod penceresi açmak için kullanılan kod. - Menü çubuğunda, Menü Ekle’ye tıklayın.Projede yeni bir prosedür oluşturma işlemi.
- “Prosedür Ekle” iletişim kutusunda, “Ad” metin kutusuna “HelloWorld” yazın .
- Tür bölümünde, Alt seçeneğini belirleyin.
- Kapsam bölümünde Genel’i seçin. Tamam’a tıklayın.
- Aşağıdaki kodu satırlar arasına girin. Public Sub HelloWorld()Ve Son Alt Yordamçizgiler.
'Yeni bir çizim oluştur' BuÇizim.Uygulama.Belgeler.Ekle Dim insPoint(0 To 2) As Double ' Ekleme noktasını tanımla Dim textHeight As Double ' Metin yüksekliğini tanımla Dim textStr As String ' Metin dizesini tanımla Dim textObj As AcadText ' Metin nesnesini tanımla insPoint(0) = 2 ' Ekleme noktasının X koordinatını ayarla insPoint ( 1 ) = 4 'Ekleme noktasının Y koordinatını ayarla insPoint(2) = 0 ' Ekleme noktasının Z koordinatını ayarla textHeight = 1 'Metin yüksekliğini 1.0 olarak ayarla textStr = "Merhaba Dünya!" ' Metin dizesini ayarlayın 'Metin nesnesini oluşturun Set textObj = ThisDrawing.ModelSpace.AddText _ (textStr, insPoint, textHeight) BuÇizimi "Merhaba.dwg" olarak kaydet.
- Menü çubuğunda Çalıştır menüsüne tıklayın.HelloWorld alt programını çalıştırmak için Sub/UserForm’u çalıştırın.
Alt programın yürütülmesi tamamlandığında, AutoCAD uygulama penceresine geçin. Çiziminizde “Merhaba Dünya!” metni görünmelidir. Çizim adı Hello.dwg olmalıdır .
