TEXT dosyasından nokta listesi okuyup, çizime yerleştiren AutoLISP uygulaması.
 |
Yazar | Orhan Toker |
| Mesleği | Y. Mimar İTÜ | |
| Autodesk Yetkili Danışmanı | ||
| AutoLISP, SQL, PHP, VBA ve veritabanı | ||
| uzmanı |
Merhabalar,
Bu hafta Y.T.Ü. Jeodezi’den Ahmet’in bana sorduğu bir soruyu uygulama olarak seçtim. Ahmet, ofisime gelerek bir lazer koordinat okuyucudan gelen ve içinde nokta koordinatları ile RGB renk kodları bulunan bir TXT dosyasını nasıl okuyabileceğini ve bu noktaları çizime işleyebileceğini sordu. Bu uygulamada Ahmet’in sorusuna yanıt vereceğim ancak RGB renk kodları için henüz bir şey yapmadım. Renk kodlarını Autocad rengine çevirebilenler Ahmet’e yardımcı olsun.
Önce dosya içeriğine bir göz atalım. Şekil.1
Şekil.1 TEXT dosyasının içeriği
Dosyanın her satırında noktanın X,Y,Z koordinatları ve yanında RGB renk kodlarına karşılık gelen 6 adet değer var. Bu değerlerin arasındaki boşluk adetleri de düzensiz. Yapmamız gereken ilk iş satırlar içindeki bu altı değeri reel sayıya çevirerek bir listeye koyan fonksiyon yazmak. Bunu ayrı bir fonksiyon olarak hazırladım çünkü değişik amaçlarla kullanılabilir. Fonksiyonun giriş parametresi içinde boşluklarla ayrılmış sayısal değerler olan her hangi bir dize. Çıkış olarak değerleri reel sayıya döndürerek sırasıyla bir listenin içine yerleştiriyor. Burada boşlukları elimine etmek önemli. Şekil.2
Şekil.2 Satırı listeye çeviren fonksiyon
Fonksiyonu dikkatli bir şekilde elinizle yazın. Öğrenmeniz için her zamanki gibi orijinal kaynak dosyayı vermiyorum:)Şimdi ana fonksiyona geçebiliriz. Şekil.3
Şekil.3 Ana fonksiyon
Yukarıda gösterdiğim fonksiyonu ana fonksiyonun arkasına yazın. TXT dosyasının konumunun bulunduğu satırı da kendi dosyanıza göre ayarlamayı unutmayın. her şeyi doğru yaptıysanız uygulama çok işinize yarayacaktır.
Kolay gelsin.
Benzer Yazılar
3052 defa okunmuş Bu hafta: 8 defa okunmuş Bugun: 1 defa okunmuş Son okunma: 13 October 2008, 21:40
AutoLISP
(2 votes, average: 5 out of 5)
Loading ...
Loading ...
23 May 2006, Tuesday 9:37
orhan bey merhaba;
internette tesadüfen sizi buldum..bende harita mühendisiyim ve İ.T.Ü mezunuyum..Meslaktaşım Ahmet beyin problemine benzer bi problemde ben yaşıyorum..Ama bizlerde bilgi saklandıkça güzel ve kıymetli olduğu için müracaat ettiğim birkaç kişiden bu konuyla ilgili yardım alamadım.belki bana siz yardımcı olursunuz..Gaziantepte mimar arkadaşlarla eski antep evlerinin ölçümlerini yaptık.Lazerli totalstation ile yaptığımız bu ölçümler sonucunda y;x,z koordinatları elde ettik..Netcadden dxf e çevirdiğimiz bu noktalar autocadde 3 boyutlu olarak karşımıza gelmekte..ancak nokta numaraları sıfır kotunda geliyor.biz istiyoruzki bu nokta numaraları noktaların hemen yanında olsun..ben autocadden çok anlamıyorum ama sizin meslektaşlarınızdanda bu konula ilgili herhangi bir çözüm gelmedi.bize yardımcı olabilirseniz çok memnun oluruz..teşekkürler..iyi çalışmalar..
23 May 2006, Tuesday 9:55
Osman bey,
Sorunuzu yanıtlamam için, neden netcad kullandığınızı anlatmanız ya da scanner dosyasının bir örneğini bana göndermeniz gerekiyor. Ayrıca bu tip sorular için yorum kısmına değilde doğrudan bana yazarsanız daha iyi olur.
Kolay gelsin.
4 July 2006, Tuesday 21:41
Çok sağolu Orhan Bey bende İTÜ jeodezi (2003) mezunuyum netten konu hakkında araştırma yaparken rastladım çok faydalı bir yazılım ama piyasada bu txt yada bizim bildiğimiz ascıı format dosyaları bir kaç tür koordinat dosyası şeklinde olabiliyor ufak rutüşlarla bu algoritmayı kullana bilirmiyiz?
Örnek 1
Y x z
40525.25 4540380.34 25.52
Örnek 2
x Y Z
4540380.34 40525.25 25.52
Ornek 3 (Hydropro uzantılı koordinat dosayaları)
Time X Y Z
13.59,452363.25,404523.25,-12.55
** DERİNLİK ÖLÇÜMLERİ İÇİN KULLANIYORUZ****
Orhan Bey burdan soru sorulmasını istemiyorsunuz ama ben yazdım Kusura bakmazsanız çok mutlu olucam kolay gelsin
23 December 2006, Saturday 20:23
merhaba Orhan Bey Ben Makine Mühendisiyim ve Doğalgaz Sektöründe Çalışıyorum autoCad kullanıyorum ve proje çizimlerinde hesapları autocad e nasıl yaptırtabilirim.
Bana Yardımcı olursanız Sevinirim
Teşekkür Ederim
28 June 2007, Thursday 9:04
sayın hocam excel de hazırlamış olduğum dişli-dişli kutusu tasarım programından veriler alıp autocadde otomatik olarak çizime çevirmem mümkünmü mümkünse bu konuda yardımınızı bekliyorum.
bir de proje çizimlerinden otomatik ağırlık hesabı yapmak mümkün mü acele cevap bekliyorum saygılar
7 December 2007, Friday 17:15
merhaba bir kac aydır lisp calışıyorum ve yaptığım işlerde lispin yararını gördüm. ama bir yerde takıldım block altındaki attdeflerin value değerlerini nasıl değiştirebilirim lisp proğramı ile.