AutoCAD ile VBA makro kullanımı | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 753, Üye: 1
seaseasea1

Detaylar »

Forumlar > AutoCAD > AutoCAD ile VBA makro kullanımı

Bu başlığı inceleyenler : 2 ziyaretçi, 0 üye : ---

İleti	Yazar
03.11.2016 19:00 84102	akcan Uzman 70 ileti emekli öğretmen anamur-mersin
Forumda AutoCAD VBA makro ile ilgili bir bölüm yok. O yüzden buraya yazdım. Konu ile ilgili yeni başlayanlar ve bu konuyu merak edenler için bir sayfa hazırladım. Aşağıdaki linkten inceleyebilirisiniz. https://mesutakcan.blogspot.com/p/autocad-vba.html akcan (11.03.2024 09:23 GMT) _____ Mesut Akcan Youtube kanalım \| Blog sayfam

09.11.2016 09:05 84136	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Güzel ve açıklayıcı bir bilgi olmuş. Teşekkürler.. :yes

09.11.2016 09:45 84137	CAN123 Kıdemli Uzman 120 ileti Teknik Ressam ANKARA
Elinize sağlık, teşekkürler

07.07.2018 11:38 86452	akcan Uzman 70 ileti emekli öğretmen anamur-mersin
Linkleri görebilmek için ÜYE olmalısınız. adresinde ise autocad vba makro ile ilgili videolarım var akcan (09.04.2022 15:53 GMT) _____ Mesut Akcan Youtube kanalım \| Blog sayfam

09.07.2018 17:55 86456	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Alıntı akcan : Linkleri görebilmek için ÜYE olmalısınız. adresinde ise autocad vba makro ile ilgili 3 video hazırladım. Emeğinize sağlık Teşekkürler.

09.08.2019 13:10 87514	akcan Uzman 70 ileti emekli öğretmen anamur-mersin
autocad ile vba makro kullanımı ile ilgili yeni sayfalar ekledim. https://mesutakcan.blogspot.com/p/autocad-vba.html devamı gelecek. akcan (11.03.2024 09:25 GMT) _____ Mesut Akcan Youtube kanalım \| Blog sayfam

15.11.2019 18:22 87737	coskunferhat Girişimci 7 ileti
Sub CommandButton1_Click() Dim lineObj As AcadLine Dim basla(0 To 2) As Double Dim bitir As Variant a = TextBox1.Value b = TextBox2.Value basla(0) = a: basla(1) = b NOKTA1.hide bitir = ThisDrawing.Utility.GetPoint(basla, "Bitiş noktasını belirtin:") Set lineObj = ThisDrawing.ModelSpace.AddLine(basla, bitir) End Sub Hocam burda koordinat değeri verilen noktaya gidiyor çizgi, fakat ikinci noktayı ekrandan seçmemi istiyor, ikinci noktayı da textbox1 ve textbox2 ye yazıp 3. noktaya geçmek istiyoruöm, döngü yapmak istiyorum. Bir çözümü olan var mı acaba.

16.11.2019 18:23 87742	mavi462 Uzman 60 ileti harita teknikeri trabzon
Dim basla(0 To 2) As Double Dim durum As Boolean Private Sub CommandButton1_Click() Dim lineObj As AcadLine Dim bitir(0 To 2) As Double a = TextBox1.Value b = TextBox2.Value If durum = False Then basla(0) = a: basla(1) = b End If If durum = True Then bitir(0) = a: bitir(1) = b End If If durum = True Then Set lineObj = ThisDrawing.ModelSpace.AddLine(basla, bitir) basla(0) = bitir(0) basla(1) = bitir(1) End If If durum = False Then durum = True End If TextBox1.Text = "" TextBox2.Text = "" TextBox1.SetFocus End Sub

16.11.2019 18:26 87743	mavi462 Uzman 60 ileti harita teknikeri trabzon
Linkleri görebilmek için ÜYE olmalısınız. Alternatif link: 1-deneme.dvb bu linkten dvb dosyasını da indirebilirsin. Kolay gelsin admin (18.11.2019 10:23 GMT)

17.11.2019 16:45 87745	coskunferhat Girişimci 7 ileti
mavi462 hocam teşekkür ederim alakanız için. çalışmaya devam ediyorum.Userformu komutsatırından kendi belirlediğim kısayol tuşuyla çalıştırıyorum, hatta Netcad deki gibi userform açıkken arkaplanda başka çalışmalar da yapabiliyorum. Fakat çalıştırdığım Userformdan esc tuşuyla çıkışı bir türlü yapamadım.İnternetten bulduğum kodlar işe yaramıyor. Yardımcı olursanız memnun olurum. Esen kalın.

17.11.2019 16:50 87746	coskunferhat Girişimci 7 ileti
Private Sub CommandButton2_Click() Dim plineObj As AcadPolyline Dim points(20) As Double a = TextBox3.Value b = TextBox4.Value c = TextBox5.Value d = TextBox6.Value e = TextBox7.Value f = TextBox8.Value g = TextBox9.Value h = TextBox10.Value j = TextBox11.Value k = TextBox12.Value m = TextBox13.Value n = TextBox14.Value o = TextBox15.Value p = TextBox16.Value points(0) = a: points(1) = b: points(2) = 0 points(3) = c: points(4) = d: points(5) = 0 points(6) = e: points(7) = f: points(8) = 0 points(9) = g: points(10) = h: points(11) = 0 points(12) = j: points(13) = k: points(14) = 0 points(15) = m: points(16) = n: points(17) = 0 points(18) = o: points(19) = p: points(20) = 0 Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points) plineObj.Closed = True ZoomExtents End Sub Bu kod çalışıyor, fakat 3 nokta girişi yapsam çalıştırınca hata alıyorum, istiyorum ki ister 3 nokta ister 5 nokta gireyim kapalı polyline çizsin.

18.11.2019 07:49 87747	mavi462 Uzman 60 ileti harita teknikeri trabzon
Alıntı coskunferhat : mavi462 hocam teşekkür ederim alakanız için. çalışmaya devam ediyorum.Userformu komutsatırından kendi belirlediğim kısayol tuşuyla çalıştırıyorum, hatta Netcad deki gibi userform açıkken arkaplanda başka çalışmalar da yapabiliyorum. Fakat çalıştırdığım Userformdan esc tuşuyla çıkışı bir türlü yapamadım.İnternetten bulduğum kodlar işe yaramıyor. Yardımcı olursanız memnun olurum. Esen kalın. Bu kodu formun keypress yordamına yaz If KeyAscii = 27 Then MsgBox "esc ye basıldı" End End If

18.11.2019 07:52 87748	mavi462 Uzman 60 ileti harita teknikeri trabzon
Alıntı coskunferhat : Private Sub CommandButton2_Click() Dim plineObj As AcadPolyline Dim points(20) As Double a = TextBox3.Value b = TextBox4.Value c = TextBox5.Value d = TextBox6.Value e = TextBox7.Value f = TextBox8.Value g = TextBox9.Value h = TextBox10.Value j = TextBox11.Value k = TextBox12.Value m = TextBox13.Value n = TextBox14.Value o = TextBox15.Value p = TextBox16.Value points(0) = a: points(1) = b: points(2) = 0 points(3) = c: points(4) = d: points(5) = 0 points(6) = e: points(7) = f: points(8) = 0 points(9) = g: points(10) = h: points(11) = 0 points(12) = j: points(13) = k: points(14) = 0 points(15) = m: points(16) = n: points(17) = 0 points(18) = o: points(19) = p: points(20) = 0 Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points) plineObj.Closed = True ZoomExtents End Sub Bu kod çalışıyor, fakat 3 nokta girişi yapsam çalıştırınca hata alıyorum, istiyorum ki ister 3 nokta ister 5 nokta gireyim kapalı polyline çizsin. polyline objesi kac nokta alacaksa redim komutu ile point değişkenini o boyuta getir .Mesela 3 nokta gireceksen point değişkeni 6 ,4 nokta gireceksen 8 olması gerekir ne fazla ne eksik ..

18.11.2019 07:54 87749	mavi462 Uzman 60 ileti harita teknikeri trabzon
Ayrıca internetten veri araştırırken excel ve ya autocad vba için visual basic 6.0 komutları kullanılabilir . visual basic .net komutlarını kullanamazsın..

18.11.2019 12:13 87751	coskunferhat Girişimci 7 ileti
polyline objesi kac nokta alacaksa redim komutu ile point değişkenini o boyuta getir .Mesela 3 nokta gireceksen point değişkeni 6 ,4 nokta gireceksen 8 olması gerekir ne fazla ne eksik .. mavi462 hocam bu komutu nasıl yazacağım hakkında bilgim yok, internetten de bulamadım.Yardımcı olurmusun.

19.11.2019 07:10 87754	mavi462 Uzman 60 ileti harita teknikeri trabzon
Alıntı coskunferhat : polyline objesi kac nokta alacaksa redim komutu ile point değişkenini o boyuta getir .Mesela 3 nokta gireceksen point değişkeni 6 ,4 nokta gireceksen 8 olması gerekir ne fazla ne eksik .. mavi462 hocam bu komutu nasıl yazacağım hakkında bilgim yok, internetten de bulamadım.Yardımcı olurmusun. Çoşkun bey internette her tür kodu bulamazsınız. Bulduğunuz kodları kopyalayıp yapıştırırsanız yaptığınız program sizin olmaz. vba ile kod yazmak istiyorsanız bence önce visual basic dilinin basit ce üstünden geçin .Sonra vba ya başlayın sizin için daha kolay olacaktır . Sadece autocad değil excel vba ya da ufak ufak hakim olduğunuzu göreceksiniz. Siz önce kendi yorumunuzla bir kodu yazmayı deneyin. Sonra üzerinde tartışarak ben size yardımcı olayım bence sizin için daha verimli olacaktır . İyi çalışmalar:)

19.11.2019 08:32 87756	coskunferhat Girişimci 7 ileti
Merhaba mavi462 hocam; Yazdıklarınıza katılıyorum tabi ön bilgi ya da az bir tecrübeyle işe başlamak lazım.Kopyala yapıştır daha yapmadım aslında.Okulda ve iş hayatında başlangıç düzeyinde kodlar öğrendim tabi.Bulduğum kodun ne işe yaradığını anlamadan kullanmıyorum. Şu anda altyapı projelerinde baca koordinatı, akar ve üst kotu girdiğimde ekrana çizdir komutuyla profili çizdiren bir makro için uğraşıyorum. Şu anda herşey yolunda iyi gidiyor.Bu benim işimi çok hafifletecek.Sadece şu boş textbox olayını geçemedim. Alakan için teşekkür ederim.

> 1 <