Autocad'deki Metraj Tablolarını Excele Aktarma Yöntemi ile Kolay Metraj

Başlatan ismailma95Forumun Hakediş ve Metraj

Yanıt: 0
Gösterim: 1475
Son İleti 15 Mayıs 2021, 18:56:44
Gönderen: ismailma95
Autocad 2015 Eğitim Seti Türkçe İndir Ses + Video

Başlatan sherlock holmesForumun AutoCAD

Yanıt: 6
Gösterim: 8303
Son İleti 30 Haziran 2016, 11:51:11
Gönderen: THE_LİDER
Autocad Civil 3D 2012 Eğitimi

Başlatan acagrikForumun AutoCAD

Yanıt: 5
Gösterim: 5750
Son İleti 14 Ekim 2017, 10:21:36
Gönderen: Medeniyet Mühendisi

Autocad de VBA - Otomatik çizim

54yyh65y65 · 2170

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı 54yyh65y65

  • Azimli Çaylak
  • ***
    • İleti: 46
    • +0/-0
: 14 Şubat 2019, 22:22:35
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
« Son Düzenleme: 15 Şubat 2019, 15:06:45 Gönderen: 54yyh65y65 »