Auto Cad Koordinat aktarma

[53rize]

Arazide topoğfik çalışmalar sonucu topoğrafik alettteki sayısal değerleri yani bir çok koordinatı ben excele aktarıyorum. Bunları Auto Cad nasıl aktarırım. Yani bu koordinat noktaları nasıl dökerim. Bunu Net Cad yapıyor. Bunu Auto Cad de nasıl yapabilirim. Teşekkürler

[musty06]

arkadaşım anlattığınız olayı benim bildiğim kadarıyla normal autocad te yapamıyorsunuz. bunun için autocad civil desing veya autodesk land desktop kullanmalısın.......

[xxx3d]

Arazide topoğfik çalışmalar sonucu topoğrafik alettteki sayısal değerleri yani bir çok koordinatı ben excele aktarıyorum. Bunları Auto Cad nasıl aktarırım. Yani bu koordinat noktaları nasıl dökerim. Bunu Net Cad yapıyor. Bunu Auto Cad de nasıl yapabilirim. Teşekkürler

O dediğin çok kolay dostum.
eger verileri netcad den alacaksan bir püf noktası var. aldığın x ve y degerlerini yer değiştirt.
yok direkt autocata gireceksen o da çok basit
line enter de
sonra herhangi bir noktasından başlayarak poligonu oluşturmak için değerlerini girmeye başla
degerleri x, y, z sıralaması ile girmek zorundasın aradaki virgüldür aman dikkat.
sen ilk noktanı girdikten sonra o noktayı 0,0,0 oalrak kabul etmesi istersen bir sonraki koordinatı girerken başına @ işaretini koymayı unutma.eta(@) girdiğin noktayı geçici olarak 0,0,0 yapar.
yao senin ölçülerin özellikle netcadden alınanlar hepsi bir 0,0,0 noktasına göre mesefelendirilmiştir. wcs sistemi dir (world coordinate system) bu sistemde koordinat girerken direkt girilir.
inşallah yardımcı olmuşumdur. anladığım kadarı ile anlatmaya çalıştım problem yaşarsan gene yaz ama cevabını haftaya alabilirsin askerimde ( diğer çarşı izninde) kolay gelsin

[neuyuz]

slm
netcad ile olan cevabı biraz açabilirmisiniz yani autocad e atarken netcad deki dosyadaki koordinatları x,y değerlerinin yer değiştirilmesimi gerekiyor.

[biolight]

Merhaba @53rize,


Arazide topoğfik çalışmalar sonucu topoğrafik alettteki sayısal değerleri yani bir çok koordinatı ben excele aktarıyorum. Bunları Auto Cad nasıl aktarırım. Yani bu koordinat noktaları nasıl dökerim. Bunu Net Cad yapıyor. Bunu Auto Cad de nasıl yapabilirim. Teşekkürler
Koordinatların bulunduğu örnek bir EXCEL dosyasını buraya(foruma) eklemen mümkün mü acaba, vba ile otomatik yapılabilir gibi.

Kolay Gelsin.

[53rize]

Koordinatlar
X Y
511.704,81 4.260.841,25
514.944,16 4.257.606,47
508.033,54 4.252.934,02
503.426,46 4.259.044,15
505.010,15 4.263.572,83
507.745,60 4.258.397,20
508.033,54 4.252.934,02
508.825,38 4.258.397,20
508.681,41 4.262.207,04
514.080,34 4.263.716,60
520.559,04 4.261.631,97
518.759,40 4.258.684,73
513.792,39 4.261.703,85
511.704,81 4.260.841,25

Excelde burada da görüldüğü gibi X ve Y sutunlu koordinat tablom var. Bu Excel tablosundaki koordinatları auto cad nasıl birden aktarırım. Ben bu koordinatları zaten teker
teker auta cad elden girebiliyorum. benim istediğim bu excel tablodaki bu koordinatları birden auto cad otomatik nokta olarak koornitatlı yerleşmesi

[biolight]

Merhaba,
Ekteki zip dosyası içinde koordinatlar.xls dosyası var
Not: excel dosyası açılırken makroları etkinleştiriniz.

Excel sayfasındaki AutoCad butonu tıklayınca
ilk X koordinatının bulunduğu hücreyi isteyecek
Fare seçebilir veya el ile direk yazabilirsiniz
(örnek dosyada A2 hücresi) sonra Tamam tıklayınız ve bekleyiniz.
koordinatları autocad e aktarıp çizimi gösterecektir.

Autocad dosyası excel dosyasıyla aynı klasörde ve isimde kaydedecektir.

Eğer istediğin gibiyse daha pratik olması açısından
excel eklentisine dönüştürüm tüm excel dosyalarında kullanbilirsin.

Kolay gelsin.

[53rize]

Göndermiş olduğunuz Excel dosyanın
autocad butonuna basıyorum. ( compile error; can't find project or library ) hatası veriyor.
Hemen makrolara geçiyor. yani kod sayfasına geçiyor.
benim kullandığım autocad 2004.
İlginize teşekkürler. Bu yapmış olduğunuz proğramı çalışsa çok işimi görecek teşekkürler.

[biolight]

Göndermiş olduğunuz Excel dosyanın
autocad butonuna basıyorum. ( compile error; can't find project or library ) hatası veriyor.
Hemen makrolara geçiyor. yani kod sayfasına geçiyor.
benim kullandığım autocad 2004.
İlginize teşekkürler. Bu yapmış olduğunuz proğramı çalışsa çok işimi görecek teşekkürler.
Merhaba,
İlk olarak excel dosyasını açınız ve açılışta makroları etkinleştiriniz.
sonra makro kod sayfasına geliniz (Alt+F11) kod sayfası açılınca yukarıdaki menüden

Tools - Referencess.. tıklayınız açılan pencerede 3 şık işaretli olacaktır
3. şık olan AutoCAD 2000 Type Library Seçimini İPTAL ediniz
(sizde hata oluştuğu için başında MİSSİNG : AutoCAD 2000 Type.. gibi bişi yazacak)

Sonra Çıkan listeden AutoCAD 2004 lü bişi olması gerekli onu seçili konuma getiriniz.
işlem bitince kodların bulundugu pencereyi kapatım kaydediniz.

Artık çalışması gerekir.

Kolay gelsin.

[53rize]

sağol dostum allah razı olsun çalıştı.

[53rize]

Bu konuyla ilgili bir sorumda bu koordinatları atarken çizgi olarak çizmesin sadece koordinatların değerleri ile birlikte nokta olarak yerleşsin.

[biolight]

Merhaba,

Bu konuyla ilgili bir sorumda bu koordinatları atarken çizgi olarak çizmesin sadece koordinatların değerleri ile birlikte nokta olarak yerleşsin.
Sanırım Multiple Point den bahsediyorsun.

Ekte bulunan dosyalar da yine yukarıda bahsettiğim gibi AutoCad2004 için
ilgili değişikliği yapman gerekli.

Kodları bir parça değiştirdim.
AutoCad açıkken üst üste excelde ki Makro çalıştırılırsa hata oluşuyordu o yüzden
çizimi yapıp dosyayı kapatıyorum ve dosya adresini alert olarak gösteriyorum.

Kolay gelsin.

[53rize]

Teşekkürler. Göndermiş olduğun kodları çalıştırdım. İşimi görüyor. Yanlız sizden bir isteğim daha olacak bu koordinatlar yerleşiyor. Ancak aşağıda ki tabloya göre Bunların tablodaki sıraya göre sıra numarasını ve ( Z ) değerlerinin de aktarılmasını istiyorum. Yani autocad sıra noları ve (Z) değerleri yani kotlarında olmasınıda istiyorum.
Buradaki ( Z ) değeri arazi kotları oluyor.


S.NO ( X ) ( Y ) ( Z )
1 110.21 150.12 50
2 125.25 185.45 64
3 135.85 200.45 68

[biolight]

Merhaba,

Sorunu tam olarak anlayamadım en iyisi örnek olması açısından
normal manuel olarak autocad de 2 nokta için verileri nasıl giriyorsun
command satırına yazdıklarını belirtirsen bunları vba kod şekline dönüştürmeye çalışırım.

Kolay gelsin.

[53rize]

benim msn adresim coruh65@hotmail.com sizin de varsa buradan size derdimi daha iyi anlatırım

[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,

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 (http://www.arkitera.com/forum/attachment.php?attachmentid=2915) ) ö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ı (http://www.arkitera.com/forum/showpost.php?p=30653) 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ı (http://www.arkitera.com/forum/showpost.php?p=30653) 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,

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 = acMaxsatı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/item?siteID=123112&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.

[biolight]

Merhaba,
@omr, Makaleler yabancı dil :s

Makro güvenliği için:

Excel için:
Araçlar - Makro - Güvenlik tıklayıp
Güvenliği orta seviyeye getiriniz

AutoCad için
Tools - Macro - Makros..(Alt+F8) - Options Tıklayınız
Enable macro virus protection işaretli konuma getiriniz

Artık Excel ve AutoCad dosyalarınız da makro varsa
Dosya ilk açılışta Makroları etkinleştireyim mi diye soru soracaktır
eğer güvendiğiniz bir kaynaksa etkinleştiriniz.

@omr arkadaşımızın dediği gibi web üzerinden yüklediğimiz makrolara dikkat etmek gerek.

Ama her kodu gizlenmiş makro da virus olacak diye bir şey yoktur.

mesela yukarıda yazdığım makro kodları ticari amaçlı kullanılacağı düşünülürse
bu kodlardan dolayı para talep etmem en dogal hakkım.
bu yüzden kodların kontrolsuz kullanımını engellemek için
kodları gizleye bilirdim, ama yapmadım :)

Kolay gelsin.

[taner3106]

ben burayla bir arkadas sayesinde tanistim. gördügüm kadariyla cok icerikli bir site. benim sorunum suydu: excelde koordinatlari yazip butona basinca acad de cizen bir makro olusturulmus. bana lazim olan ise tam tersi. acad de tikladigim noktanin koordinatlarinin excelde bir tablo seklinde cikmasi . cok cok tesekkurler

[biolight]

Merhaba,

...
acad de tikladigim noktanin koordinatlarinin excelde bir tablo seklinde cikmasi
...
tıkladığınız her noktanın koordinatlarının excel'e aktarılması
çok mantıklı ve olası bir yontem değil.
ama çizim içinde mevcud olan noktaların koordinatlarını
bir makro yardım ile excel e aktarmak isterseniz
kodları yazdım isterseniz
Macronun bulundugu Modulu buraya ekleye bilirim.
Kolay gelsin.

[biolight]

Merhaba,
Sanırım sorunuzu anladım kodlar aşağıda
Sub PointListeExcel()
' Function By: Biolight@mynet.com ( 2006 )
' Tools - References - Microsoft Excel ( X ) Object Library
' (X) = 9.00 or 10.0

Dim ProjeObj As AcadEntity
Dim KacPoint As Integer
KacPoint = 0

' Pojedeki eleman sayısı kadar döngü
For Each ProjeObj In ThisDrawing.ModelSpace
' eleman eğer Point se
If ProjeObj.ObjectName = "AcDbPoint" Then
' kaç Point olduğunu say
KacPoint = KacPoint + 1
End If
Next ProjeObj

' eğer projede Point yoksa
If KacPoint = 0 Then
MsgBox "Çalışmanızda henüz Nokta(Point) kullanmamışsınız", vbInformation, "Point yok."
Exit Sub
End If

Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object

' Excel i aç
Set Excel = New Excel.Application
' excel e kitap ekle
Set ExcelWorkbook = Excel.Workbooks.Add
' aktip excel kitap sayfasını belirle
Set ExcelSheet = Excel.ActiveSheet

' Excel uyarılarını yoksay
' dosya önceden varsa üzerine kaydedeyim mi sorusu iptali
Excel.DisplayAlerts = False

' Sayfa ismini Pointler yap
ExcelSheet.Name = "Pointler"

' excel kitabında bulunan sayfa sayısı kadar döngü
For Each Worksheet In Excel.ActiveWorkbook.Worksheets
' sayfa ismi Pointler değilse
If Worksheet.Name <> "Pointler" Then
' sayfası yok et
' excel alert vermesini yukarıda iptal etmiştik
Excel.Sheets(Worksheet.Name).Delete
End If
Next

Dim Dosyaismi
' dosyaismi= dwg dosyamızla aynı klasörde ve aynı isimde sadece dosya uzantısı xls(excel) oldu
Dosyaismi = Left(ThisDrawing.FullName, InStr(ThisDrawing.FullName, ".") - 1) & "Point.xls"

' excel kitabını kaydet
ExcelWorkbook.SaveAs Dosyaismi

' önce yazılan sutunları yok et
ExcelSheet.Range("A1").EntireColumn.Delete
ExcelSheet.Range("A1").EntireColumn.Delete
ExcelSheet.Range("A1").EntireColumn.Delete

Dim sutun As Integer
sutun = 2

' projede kullanılan obje sayısı kadar döngü
For Each ProjeObj In ThisDrawing.ModelSpace
' eğer obje Point se
If ProjeObj.ObjectName = "AcDbPoint" Then
ProjePoint = ProjeObj.Coordinates
ExcelSheet.Cells(sutun, 1).Value = ProjePoint(0)
ExcelSheet.Cells(sutun, 2).Value = ProjePoint(1)
ExcelSheet.Cells(sutun, 3).Value = ProjePoint(2)
sutun = sutun + 1
End If
Next ProjeObj

ExcelSheet.Cells(1, 1).Value = "X"
ExcelSheet.Cells(1, 2).Value = "Y"
ExcelSheet.Cells(1, 3).Value = "Z"

' Excel i kaydet
ExcelWorkbook.Save

' excel uyarıları çalışır duruma getir
Excel.DisplayAlerts = True

' Excel görünür yap
' Excel.Visible = True

' Exceli kapat
Excel.Application.Quit

Set ExcelSheet = Nothing
Set ExcelWorkbook = Nothing
Set Excel = Nothing

' ses çıkar
'Beep

' Excel dosyasının nereye kayıt edildiğini göster
MsgBox "Çiziminiz de bulunan noktaların(point) Koordinatları Bilgisayarınızda" & vbCrLf & vbCrLf & _
"Dosya : " & Dosyaismi & vbCrLf & vbCrLf & _
"Excel Dosyası Olarak Kaydedildi.", , "Excel KAYDEDİLDİ."


End SubKodlar çizim içerisinde ki noktaları bulup
bu noktaların koordinatlarını(x,y,z) excel dosyasına aktarıyor.
200 nokta da test ettim çalışıyor !
kodların nasıl çalıştırılacagı hakkında bilgi yazmadım
eğer ihtiyacınız olursa yazabilirim.

Not:
1- Tüm noktaları değil de sizin belirlediğiniz noktaları
excel e aktarmak isterseniz kodlar üzerinde biraz daha çalışmak gerekli.
2- Ekte ki zip dosyası içinde PointExcel.bas modül dosyası mevcudtur.

Kolay gelsin.

[taner3106]

sayin biolight, mesajinizi henüz okuyabildim. emeginiz icin tesekkurler. siz olmaz deyince ümidim kirilmis ve noktalari kendim excele yazmaya karar vermistim ve de aktardim. yazmis oldugunuz kodu acad de dosyami actiktan sonra vba kismina import ettim ve calistirmaya calistim (makrolarla aram cok iyi degildir az cok bisey bilirim ama bilgim excele yönelik) ama Dim Excel As Excel.Application satirinda hata verdi excel sayfasi actim ve tekrar calistirdim yine ayni satirda hata verdi. acaba yapmam gereken baska birsey mi var.

benim su an kullandigim acad 2006 ve onda taschenrechner (hesap makinasi) (bendeki almanca dilinde) diye bir bölüm var orayi calistirdigimda onun üzerinde koordinat al dügmesi var. o secildiginde cizimde nokta yakalama bölümü acik ise istenilen yere tiklayinca ( daireyse merkezi; cizgi ise bas, son veya orta noktasi vs vs) o noktanin koordinati hesap makinasina geciyor. ordan da kopyalayip excele yapistirabiliyorsunuz. ama burda da bir sorun var. koordinati su formatta veriyor :
[-350.1593875527,332260.60664178,0]

bunu excele iki defa yapistiriyorum biri x koordinati icin digeri y koordinati icin ve sonradan da gereksiz kismi temizliyorum.

excel noktayi binlik ayraci gibi algiliyor yani o zaman benim koordinatim daha dogrusu sayim 3501593875527,33226060664178 olmus oluyor.
bunu excelde makro yaparak düzelttim.

ama yine de eger bir makro yapabilirsek acad deki hesap makinasindaki gibi, cok güzel bir uygulama olacak yani bir user form üzerinde 3 textbox ve commandbutton. cizimde nokta yakalama acikken istedigimiz yere tiklayip onun x-koordinatini textbox1e ; y-koordinatini textbox2 ye ; z-koordinatini textbox3e yazsa commanbuttona da tiklayinca excele gönderse.

not: benim bilgisayarimda foruma giremiyorum. acaba cevabinizi ayrica benim kendi mailime gönderebilir misiniz. simdiden cok cok tesekkürler.

[biolight]

Merhaba,
Sanırım kodların ilk başında bulunan
' Tools - References - Microsoft Excel ( X ) Object Library
' (X) = 9.00 or 10.0
kısmını gözden kaçırmışsınız.
autocad vba editor açıkken Tools - References tıklayıp Excel i ekleyiniz
o zaman Dim Excel As Excel.Application satırında
hata vermeden çalışacaktır.

yazdıklarınızdan anladığım kadarı ile kodlar tam sizin istediğiniz gibi değil.
ben çizim içinde bulunan point leri bulup
bunların koordinatlarını excel e aktarmıştım
...( daireyse merkezi; cizgi ise bas, son veya orta noktasi vs vs)...sizin istediğniz yapılır ama oldukca uğraştırır.
ilk aklıma gelen en büyük problem
çizimde hedef belirleyip tıkladınızda objenin koordinatlarının
excel e direk aktarmak istiyorsunuz
bir çok hedef olacağını göz önünde bulundurursak
excel bu süre zarfında açık olacak bu da sorun demek
en sonunda aktaralım desek bu sefer
bilgileri hafızada tutma problemi var vs vs vs :)
...acad 2006 ve onda taschenrechner...bahsettiğiniz şekilde yapmak bana daha mantıklı geldi.
en azından excel de yaptığınız sitematik işlemleri
makro ile daha otomatik bir şekle sokmak daha kolay

Kolay gelsin.

[taner3106]

sayin biolight
baska bir sorum olacak
excelde makroyla bir islem yaptirmak istedigimde ve de bu islemin komutunu bilmiyorsam (bendeki almanca oldugu icin tam turkcesini bilmiyorum) bir dugme var ve o dugme yardimiyla islemi yaptiriyorum sonra vba ya gecip o islem icin hangi komutu kullandigini anliyorum. kamera fonksiyonu gibi birsey.

acadde de ayni dugmeyi buldum ve calistirmayi denedim ama birsey kaydetmedi.

bilemiyorum ne demek istedigimi anlatabildim mi

eger anlatabildimse bunun nedenini neyi nerde yanlis yaptigimi ogrenmek istiyordum.

bu arada dediginizi yaptim ve calisiyor excele koordinatlari atiyor ama ordaki problem o kadar nokta icerisinden hangi nokta nedir bunu secmesi zor. ama yine de cok guzel bir calisma olmus biraz daha gelistirilebilirse cok güzel sonuclar cikacagindan eminim.

calismalarinizda basarilar dilerim.

[biolight]

Merhaba,

Excel de bahsettiğiniz düğme
Makro Kaydet Butonu dur.
AutoCAD de böyle bir button yok malesef (AutoCAD 2000 - 2004)
2006 malesef bilmiyorum.

Kolay gelsin.

[muhhakan06]

sağolun arkadaşlar

[mehoza]

biolight arkadaşim Koordinatlar2004.zip XLA dosyasını AutoCad2007 için çevirirsen memnun olurum

[biolight]

Merhaba,

İlk olarak AutoCAD 2007 kullanan birini bulmam gerekiyor
sanırım yarın halledebilirim.

Kolay gelsin.

****************

AutoCAD 2007 ye sonunda uyarlayabildim,
amma çok değişiklik yapmışlar :K

Bir Excel eklentisi olan XLA dosyası ile ilgili kısa bilgi için Tıklayınız (http://forum.arkitera.com/showpost.php?p=30808&postcount=21)

Ekte ki zip dosyası içinde Koordinatlar2007.xla dosyası bulunmaktadır.

Kolay gelsin.

[mehoza]

Daha önceleri 1/400-1/2000 ölçekli ENH profilini çizerken çok ugraşıyordum.
ilk önce topografın arazide aldığı mesafe ve kot değerlerini 1/400-1/2000 ölçeğe çeviriyor
(örnek ekte topograf.zip dosyası) sonra bu değerleri tek tek AutoCAD'e giriyordum.
Elinize sağlık hazırladığınız koordinat.xls dosyası ile bu işlemi kısa zamanda yapıyorum.
Yalnız sizden ricam profili çizdikten sonra autocad'de örneğini gönderdiğim (profil.zip dosyası) şekilde profilin altına tablo çizip bu tabloya mesafe, kot ve kazık nolarını otomatik yazmak istiyorum .
Bu konuda bana yardımcı olursanız çok memnun olurum.

[biolight]

Merhaba,

Emin olmamak la birlikte istediğiniz yapılabilinir ama zaman ve emek gerekmekte
ve sorunuz genel forum kullanıcılarının ihtiyacına değil de daha çok kişisel yardım içermekte.
Bu yüzden bu sorunuz da size yardımcı olamıyorum özür dilerim.

Kolay gelsin.

[mehoza]

Biolight kardeş yardımların için sağol. ENH profilinde kullandığımız tabloyu kendim için değil profil çizen tüm elk. müh. arkadaşlar için istemiştim.

egehal kardeşimizin foruma koyduğu
"autocad de vba uygulaması(İçmesuyu boykesit programı)
vba ile boykesit çizen bir program
bilgileri excel den alıp autocat macrosu ile çizim yapıyor
Eklenmiş Dosyalar boykesit programı.zip (65.4 KB, 109 görünüş)
(ekte dosyayı gönderiyorum)"

program içmesularında kullanılıyor ve 1/100-1/1000 ölçek ile çizim yapıyor, çizimden sonra bunu biz 1/400-1/2000 ölçeğe çeviriyoruz. Program çizimin altına da tablosunu çizip değerleri yazıyor. Ama bu içmesularında kullanılan değerlere göre hazırlandığından ENH' ye uyarlamak için epeyce tadilat yapmak zorunda kalıyoruz ya da değerleri tek tek autoCAD'e giriyoruz.
yukarıda istemiş olduğumuz ve yukarıdaki yazı ekinde örneğini gönderdiğim formasyona uygun tablo ile mesafe+kot ve kazık no değerlerini koordinat aktarımı sırasında autocade aktarırsak benim gibi ENH profili çizen bir çok kişinin işini kolaylaştırmış olursunuz.
Saygılarımla

[biolight]

...
Bir Excel eklentisi olan XLA dosyası ile ilgili kısa bilgi için Tıklayınız (http://www.arkitera.com/forum/showpost.php?p=30808&postcount=21).

arkiteria forum yapısında ki değişiklikten dolayı
link eski sisteme göre dolayısı ile çalışmıyor
XLA ile ilgili bilgi için Tıklayınız (http://forum.arkitera.com/30808-post21.html). ( http://forum.arkitera.com/30808-post21.html )

@mehoza, inceleyeceğim ama kesin bir şey diyemem.

Not: VBA bilen arkadaşlar da konuya dahil olur ve bilgi paylaşımında bulunurlarsa sevinirim.

[Omer Yilmaz]

arkiteria forum yapısında ki değişiklikten dolayı
link eski sisteme göre dolayısı ile çalışmıyor."arkitera.com/forum/....."şeklinde verilen linklerde sorun var. Çok uzun süredir forumun web adresi "forum.arkitera.com/...". Bu şekilde verilen linklerde herhangi bir sorun yok.

İlk formatta yazılanları da sorunsuz hale getirmeye çalışıyoruz.

[mehoza]

biolight kardeş Koordinatlar2007.xla dosyası için teşekkürler.
yalnız noktalar üzerindeki yazıların hepsi x ekseni doğrultusunda aynı hizada yapılabilirmi.
Ayrıca ENH profil çizimi konusunda da yardımlarını bekliyorum.

[mehoza]

AutoCAD sayfasında oluşturduğum çizim ve yazıların tamamını seçip (ctrl+A) grup yapıp,
sonrada yaptığım bu grubu sağ tıklayarak seçeneklerden (properties)
geometriden scale x’i 0.5 , scale y’yi 0.25 yapmak istiyorum.
Bunu yapacak makroya ihtiyacım var.
Yardımlarınız için şimdiden teşekkürler

[mehoza]

AutoCAD'de oluşturduğum çizim ve yazıları seçip grup yapıp,
sonrada bu grubun scale x’ini 0.5 , scale y’sini 0.25 yapmak için gerekli olan makroyu yapacak kimse yokmu?
Bu işi lisp ile yapıyorum ancak bunu makro ile yapmak istiyorum. makro yapmak için gerekir diye ekte bu lispi de gönderiyorum
Yardımlarınız için şimdiden teşekkürler

[arch-ne]

Slm Öncelİkle Çİzİmİ SeÇİp Block Yapacaksiniz Ama Bunu Yaparken Pİck Poİntten Faydalanin.daha Sonra Insert Komutundan Bu BloĞu ÇaĞirirken X Ve Y DeĞerlerİne Scale Yapmak İstedİĞİnİz Rakamlari Yazarsaniz İstedİĞİnİz ÖlÇÜde Gelİr.

[mehoza]

arch-ne kardeş autocad makro konusunda bilgim az. Yukarıdaki söylediklerini makro şeklinde yazarsan memnun olurum.

[murathacialioglu]

Arch arkadaşın anlattığı yöntem makro değil direk olarak block komutunun kullanımı.

[orhunkeskinbicak]

lisp ile yapmak yada makro ile yapmak neyi değiştirir ki
+ konu ile ilgisiz olmuş
eğer lispte bir değişiklik istiyorsanız yapabilirim

[mehoza]

yaptığım çizimin öncesinde makro kullanıyorum.
bu istediğim makroyu da önceki kullandığım makronun içine adapte edip çizimin tamamını makro ile yapmış olacağım bu yüzden yukarıda örneğini verdiğim lispi makroya dönüştürmek istiyorum.

[biolight]

lisp ile yapmak yada makro ile yapmak neyi değiştirir ki
+ konu ile ilgisiz olmuş
eğer lispte bir değişiklik istiyorsanız yapabilirim

Merhaba,

konu ile değilde @mehoza nın kendi sorduğu soru
ENH ( Enerji Nakil Hatı (doğrumu ?)) profil çizimi sorusuyla alakalı

esasın da @mehoza ENH ı başka bir başlık altında sormalıydı.

şimdi bende biraz konuyu değiştireyim bari olmuşken tam olsun

lips konusunu bilmiyorum ama uzakdan baktığım kadarı ile
sadece AutoCAD de kullanılmakta
Excel de ki kullanıcı tanımlı fonksiyonlar gibi

macro dediğimiz ise esası VBA bir çok programda kullanabilir
kendin bizzat program oluşturabilirsin

Kolay gelsin.

[mehoza]

arkadaşlar anlaşıldı bu makro konusunu pek bilen yok

[mehoza]

İstemiş olduğum makroyu temin ettim.
Bana yrdımcı olan olmayan herkese teşekkürler.
Başka arkadaşlra da lazım olur diye ekte makroyu gönderiyorum.
Makro autocaddeki çizimi grup yapıp X ekseni ölçeğini 0,5
Y ekseni ölçeğini 0,25 ile çarpıyor

[mehoza]

grup makrosu ektedir

[savagee0]

Haritacıların kullandığı netcad dan arsanın kordinatlarını yazan arsanın biçimini gösteren bi veri cıktısından,x ve y yi girerek o arsayı autocad e tam olarak nasıl aktarabilirim.:K

[atokgoz]

arkadaşlar benim bir sorum var çizdiğim katı modelin ölçülerini excel e atmak istiyorum.
bunu aslında list komutuyla bayaa uğraşıp koordinatlarını alarak yapıyorum ama çok zor oluyor.malum list komutu belirli sayıda satırı hafızasında tutuyor bu yüzden hepsini bir alamıyorum çizimdeki kadı model sayısı yüzlerce olunca bayaa kasıyor beni.bu koordinatları excele veya text olsa bile olur almanın bir yolu yokmu?
şimdiden teşekkürler.

[anka25]

arkadaslar ben nıye bu zıplerı ındıremıyorumm
anlamadım yonetıcı ıznı mı istıyo ne bana axıl lazım dı da

[sinanarikan]

çok teşekkür ederim, işimi görüyorum.. :D

[sinanarikan]

çok teşekkür ederim sağolun, hiç bir yerde olmayan bir bilgi paylaşımı yapmışsınız..