|
25.06.2012 16:52
mavi462
|
autocad 2007 üst sürümlerinde autocad sitesinden uygun vba sürümlerini indirin
linkteki dosyayı indirin sürükleyip autocad ekranına bırakın
xyz koordinat yazdır
nokta at
seri nokta at
Linkleri görebilmek için ÜYE olmalısınız.
mavi462 (02.07.2012 11:31 GMT)
|
|
27.06.2012 10:16
mantık85
|
|
[_bu nasıl kullanılıyor?
|
|
27.06.2012 10:28
mavi462
|
Linkleri görebilmek için ÜYE olmalısınız.
Adresinde işletim sistemine ve autocad sürümüne uygun olanı yükle. Sonra bu dosyayı ekrana sürükle bırak . Ekranın herhangi bir yerinde çift tıklarsan çalışır .
|
|
27.06.2012 14:55
mantık85
|
|
aa başta 2007 üst sürüm demişsiniz zaten :( ben 2007 kullanıyorum, yine de denedim. çift tıkladığımda sorun yok fakat koordinat at dediğimde hata veriyor. sürümü yükselteceğim. bu arada her Autocad açışta sürükleme işini yapmamız gerekiyor mu? teşekkürler yardımınız için
|
|
27.06.2012 19:41
mavi462
|
|
32 bit işletim sistemiyle alakalı bir sorundu linki düzelttim tekrar indir dosyayı . 2007 de hiç bir işlem yapmadan sürükle bırak ile çalıştırabilirsin .
Sürekli sürükleyip bırakmana gerek yok devamlı kullanıcak arkadaşlar "tools" menüsünden "load application" seçin çıkan menüde "contents" butonuna tıkla "add" butonuna tıkla dosyayı seç . Artık her autocad çalıştığında sadece ekrana çift tıklaman yeterli olacaktır . Kolay gelsin.
|
|
28.06.2012 13:09
mantık85
|
|
Evet başarılı sonuç elde ettim :) Teşekkür ederim
|
|
10.01.2013 09:26
serter1402
|
|
Autocad 2007 de sorunsuz calısıyor. Harita mühendisiyim benım ıcın cok faydalı bir paylasım oldu. tesekkurler.
|
|
10.01.2013 12:59
 memitanli
|
Alıntı
mantık85 :
Evet başarılı sonuç elde ettim :) Teşekkür ederim
dostum selamlar ben bunu kurdum fakat çalıştırma komutları yok yardımcı olursanız sevinirim
|
|
06.02.2013 08:31
serter1402
|
Alıntı
memitanli :
dostum selamlar ben bunu kurdum fakat çalıştırma komutları yok yardımcı olursanız sevinirim
İndirdigin dosyayı aç ve içindeki koor_son adlı dosyayı aktıf olan autocad projesine surukle bırak.
aktıf projeye ıkı kere tıklarsan çalısıcak.
|
|
28.04.2015 05:32
xdzr
|
|
linkleri bi güncelleyin
|
|
28.04.2015 10:12
mavi462
|
Linkleri görebilmek için ÜYE olmalısınız.
güncel
|
coskunferhat
|
|
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 textbox lara yazıp döngü yapmak istiyorum. Bit çözümü olan var ı acaba.
|
