Auto Cad Koordinat aktarma

[güven]

sayın bioligth böyle bir makro hazırladığınız için çok teşekkürler çok işimize yarayacak dediğiniz gibi excelden autocade x ve y kordinatlarını nokta olarak atabiliyoruz sonra bu noktaları birleştirip line ile arazinin sınırını çizmek istiyorum noktalara nasıl numara verebiliriz noktaların sırasına göre line ile birleştirmek istiyorum.

[biolight]

Merhaba @güven,

Orijinal metin güven tarafından gönderilmiş

sayın bioligth böyle bir makro hazırladığınız için çok teşekkürler çok işimize yarayacak dediğiniz gibi excelden autocade x ve y kordinatlarını nokta olarak atabiliyoruz sonra bu noktaları birleştirip line ile arazinin sınırını çizmek istiyorum noktalara nasıl numara verebiliriz noktaların sırasına göre line ile birleştirmek istiyorum.

İlk olarak Haritacı olmadığım için dediklerinizi gözümde tam olarak canlandıramıyorum o yüzden özür
line ile birleştirmek istemişsiniz linkteki ( KoordinatLine.zip ) örnek dosya bunu yapıyor olması gerek

nokta numaralama olayını ise @53rize arkadaşımızla messenger da mulakatımız sonucunda anladım sanırım
yarın örnek dosyayı buraya ekleyeceğim.

Not : AutoCad 2000 haricin de başka versiyon kullanan arkadaşlar
Lütfen Açıklamayı okuyunuz.

Kolay gelsin.

[biolight]

Merhaba,
Ekteki örnek dosya
Koordinatları verilen herbir noktayı 0(sıfır) Layerine yerleştiriyor
SiraNo, X, Y, Z değerliri Text olarak Farklı Layerlara Yerleştiriliyor.
default olarak SiraNo ve 0 Layer ı açık diger Layerlar Kapalıdır
SiraNo Text Height değeri 50 Diger Textlerin Height değeri 100 dür

Not : AutoCad 2000 haricin de başka versiyon kullanan arkadaşlar
Lütfen Açıklamayı okuyunuz.

@güven, Örnek dosya istediğin gibi mi, farklı birşey soruyorsanız soruyu biraz detaylandırabilirmisiniz.

Kolay gelsin.

[avniavni]

biolight'nin vermiş olduğu örnekler çok işime yaradı *vba örnekleri ayrı bir başlıkta toplansa diyorum

[güven]

işte bu aynen böyle istiyordum .Bilgi paylaşım budur eline koluna sağlık çok teşekkürler

[biolight]

Merhabalar,

Kodların işe yaramasına sevindim.

Kodları excel eklentisine XLA dosyasına çevirdim
(AutoCad2000 ve AutoCad2004 için ayrı ayrı)
Bu Dosya sayesinde Excel En üsteki Ana Menünün En sağına (Yardım ın yanı)
AutoCad menusu ekleyecek Bunu tıklayınca Koordinatlar butonu çıkacak
Koordinatlar tıklayınca kodlar çalışacaktır.


Not : Excel Eklenti Ekleme
Boş bir Excel açınız Araçlar - Eklentiler Tıklayınız
Gözat butonu Tıklayınız Bilgisayarınız da dosyaları bulup onaylayınız
Eklentiler penceresinide onayladıktan sonra kapatınız.
Artık tüm excel dosyalarınızda kodları çalıştırabilirsiniz

Kolay gelsin.

[asteria]

Merhaba biolight,

Çok teşekkürler ve iyi çalışmalar

[güven]

[avniavni]

çizdiğim lineleri renlendirmek ve çizgi kalınlıklarını değiştirmek istiyorum vba kodları ile yardımcı olurmusunuz

[biolight]

Merhaba,

Orijinal metin avniavni tarafından gönderilmiş

biolight'nin vermiş olduğu örnekler çok işime yaradı *vba örnekleri ayrı bir başlıkta toplansa diyorum

@avniavni, Arkiteria Forumda VBA konusu çok yeni sanırım,
konuya ilgi ve bilgi paylaşımı artığı zaman yönetici arkadaşlar sanırım forum için gerekli değişikligi yaparlar.
ama bence şuan için pek gerek yok gibi.

Line Renk ve kalınlıklarını değiştirmek istemişsin hangi çizimden bahsediyorsun
örnek dosyayı ekleye bilirmisin.
Bende AutoCad de Vba ya yeni yeni ısınıyorum elimden geldiğince yardım etmeye çalışırım.

@asteria, @güven teşekkürler

Kolay gelsin.

[avniavni]

dosya ekte yardımlarınız için şimdiden sağolun
ekte dedim ama ne .rar ne de .xls dosyasını kabul ediyor ataç olarak, kodlarını yazacağım
oluşan çizimde arka plan olarak kullanmak istediğim karaleri açık mavi, koordinatlarını excelden aldığı çizimi biraz kalın ve kırmızı yapmak istiyorum.

Kusura bakmayın form .rar ve excel dosyalarını kabul etmeyin dağıldım. aşağıya a ve b sütunlarındaki bilgileri de ekledim

X Y
831.50 0.00
831.50 110.00
1,010.00 110.00
1,180.00 210.00
1,225.00 210.00
1,410.00 360.00
1,490.00 360.00
1,490.00 430.00
1,575.00 430.00
1,575.00 3,500.00
1,395.00 3,805.00
690.00 4,650.00
-690.00 4,650.00
-1,395.00 3,805.00
-1,575.00 3,500.00
-1,575.00 430.00
-1,490.00 430.00
-1,490.00 360.00
-1,410.00 360.00
-1,225.00 210.00
-1,180.00 210.00
-1,010.00 110.00
-831.50 110.00
-831.50 0.00

Sub KoordinatCizimi()
On Error GoTo Hata
Dim koordinat
Dim xkoordinat
Dim ykoordinat
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
xkoordinat = Replace(ActiveCell.Value, ",", ".")
koordinat = koordinat & xkoordinat & ","
ActiveCell.Offset(0, 1).Activate
ykoordinat = Replace(ActiveCell.Value, ",", ".")
If ykoordinat = "" Then
ykoordinat = 0
End If
koordinat = koordinat & ykoordinat & ",0 "
ActiveCell.Offset(1, -1).Activate
Loop
Range("a2").Select
Dim Cad As AutoCAD.AcadApplication
Set Cad = New AutoCAD.AcadApplication
Cad.Application.ActiveDocument.SaveAs ActiveWorkbook.Path & "/" & _
Replace(ActiveWorkbook.Name, ".xls", ".dwg")
Cad.Visible = True
Cad.Application.WindowState = acMax
Cad.ActiveDocument.SendCommand "Line " & koordinat & " "
For i = 0 To 48
Cad.ActiveDocument.SendCommand "Line " & "-2000," & i * 100 & ",0 2000," & i * 100 & ",0 " & " "
Next
For e = -20 To 20
Cad.ActiveDocument.SendCommand "Line " & e * 100 & ",0,0 " & e * 100 & ",4800,0 " & " "
Next
Cad.ActiveDocument.SendCommand "Zoom Extents "
Cad.Application.ActiveDocument.Save
Set Cad = Nothing
Hata:
Exit Sub
End Sub

[biolight]

Merhaba,
Benim uyguladığım yöntem şu şekilde
çizim yapmadan önce layer ayarlarını yapıyorum
bu sayede yapılan cizime istedigim özelliği verebiliyorum.

belirttiğim yönteme göre sizin kodlarınız da ise şöyle bir ayarlama yapmanız gerekir.

Cad.Application.WindowState = acMax

satırından hemen sonra alta yazdığım kodu eklerseniz sanırım istediğiniz olacaktır.

Cad.ActiveDocument.Layers("0").Color = acRed
Cad.ActiveDocument.Layers("0").Lineweight = acLnWt050

bu kodları nereden biliyorsun dersen eğer
editörde kod yazarken her nokta ve = den sonra editor yazılabileceklerin listesini sana sunacaktır.
(eğer editör yardım sunmuyorsa kod yarken Ctrl+J tıkla)

esasında detaylı işlerde yani her bir line farklı renk verebilmek için
çizimde ki her line ı yakalamak gerekir
ama ben daha mevcud çizimdeki objeleri vba ile yakalamasını bilmiyorum

Not :
Foruma Zip formatında dosya ekleye bilirsin.
Futbol sahasımı çizmeye çalışıyorsun doğru tahmin mi ?

Kolay gelsin.

[biolight]

Merhaba,
Sorunun içeriğini değiştirmişsin sanırım yeni sorunla ilgili dosya ekte

Farklı layerlar oluşturdum renk ve kalınlık ayarlarını yaptım

Kolay gelsin.

[avniavni]

biolight
sağol.......... tam istediğim gibi olmuş.
selamlar

[omr]

sanırım buraya yazmak yanlış olmaz; autodesk in web sayfalarinda excel-vba iletisimi ile ilgili 6 bolumluk makale var, cok net ve orneklerle anlatilmis. http://usa.autodesk.com/adsk/servlet...112&id=2671851
link bi sekilde calismazsa baslik:
VBA: Integrating with Microsoft Excel - Part 1
By dave-espinosa aguilar

Bu arada bir not: biolight' tan ya da bu forumdaki herhangi birisinden suphe etmeye gerek var demiyorum, fakat internetten makro indirirken dikkatli olunmalidir, cunku kod kaynagi gizlenebilir ve virus tasiyabilirler.