Autocad de VBA - Otomatik çizim

[54yyh65y65]

Daha önce bu konuda yazı yazılmamış. Eksik kalmış bir konu. Birkaç örnekle
  konuya giriş yapıp; kiriş donatısını çizen kodu paylaşacağım. Kendi yazdığım koddur.
  Geliştirmek isteyen veya elinde olan  arkadaşlar varsa; kodlarını buradan paylaşabilirler..


^DİKKATLISP değildir!!!

Çizgi çizme

Kod: Linklerin Görülmesine İzin Verilmiyor Üye Ol veya Giriş Yap

Sub Example_AddLine()
'değişkenleri önceden tanımlamak zorunludur!!
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
   
'nokta tanımlaması: x, y, z şeklindedir.
'tüm noktalar bu şekilde tanımlanmak zorundadır.
'üç boyut yoksa z ye gerek yok.
    startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
    endPoint(0) = 100: endPoint(1) = 100: endPoint(2) = 0
   
'çizgiyi çizen satır
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll
   
End Sub





Yazı yazma

Kod: Linklerin Görülmesine İzin Verilmiyor Üye Ol veya Giriş Yap


Sub Example_AddText()

    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
   
    textString = "Hello, World."
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 20
   
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    textObj .Rotation = 0.7854
    textObj .Color = acRed
    ZoomAll

End Sub


Linklerin Görülmesine İzin Verilmiyor Üye Ol veya Giriş Yap


Linklerin Görülmesine İzin Verilmiyor Üye Ol veya Giriş Yap