5 sayfanın 2. sayfası İlkİlk 12345 SonuncuSonuncu
66 sonuçtan 16 ila 30 arası gösteriliyor.

Konu: Auto Cad Koordinat aktarma

  1. #16
    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.
    :)

  2. #17
    biolight
    Merhaba @güven,
    Alıntı 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.
    En son biolight tarafından düzenlendi : 10-08-2005 00:10

  3. #18
    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.
    Eklenmiş Dosyalar Eklenmiş Dosyalar

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

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

  6. #21
    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.
    Eklenmiş Dosyalar Eklenmiş Dosyalar

  7. #22
    asteria


    Merhaba biolight,

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


  8. #23

    Thumbs up

    :)

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

  10. #25
    biolight
    Merhaba,
    Alıntı 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.

  11. #26
    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
    En son avniavni tarafından düzenlendi : 12-08-2005 17:02 Nedeni: eksik bilgi

  12. #27
    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.
    Kod:
    Cad.Application.WindowState = acMax
    satırından hemen sonra alta yazdığım kodu eklerseniz sanırım istediğiniz olacaktır.
    Kod:
    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.
    En son biolight tarafından düzenlendi : 13-08-2005 09:56

  13. #28
    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.
    Eklenmiş Dosyalar Eklenmiş Dosyalar

  14. #29
    avniavni
    biolight
    sağol.......... tam istediğim gibi olmuş.
    selamlar

  15. #30
    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.

Konu ile İlgili Bilgi

Users Browsing this Thread

1 adet kullanıcı bu konuyu ziyaret ediyor. (0 üye ve 1 ziyaretçi)

Mesaj Yazma Hakları

  • Yeni mesaj gönderemezsiniz
  • Mesajlara cevap veremezsiniz
  • Mesajlara ek yükleyemezsiniz
  • Mesajlarınızı düzenleyemezsiniz
  •