yüksekliği data dosyasına yazdırma | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 585, Üye: 1
admin

Detaylar »

Forumlar > AutoLISP > yüksekliği data dosyasına yazdırma

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
28.12.2014 22:19 79910	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
herkese merhabalar.ufak çaplı bir lisp yazdım data dosyası hazırlama için tıkladığım herşeyi yazdırabiliyorum fakat yükseklik değiştiği için elimle girmem gerekiyor.yardımcı olabilirseniz çok sevinirim saygılarımla...

29.12.2014 07:00 79915	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Ne yazdığını bilmezsek neye göre yardım edicez ?

29.12.2014 09:39 79917	alumina Editör 769 ileti Insaat Muhendisi Istanbul
herkese merhabalar merhaba ufak çaplı bir lisp yazdım data dosyası hazırlama için nerde o lisp? tıkladığım herşeyi yazdırabiliyorum süper. de neyi yazdiriyorsunuz? (yüksekliğin degismedigini varsayarak sordum) fakat yükseklik değiştiği için elimle girmem gerekiyor. neyi elle giriyorsunuz? koordinat mi? yardımcı olabilirseniz çok sevinirim yazdığınızı paylaşırsanız neden olmasın..

29.12.2014 11:50 79918	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
hocam affınıza sığınıyorum.aklıma programı eklemek geldi.örnek lisp aşağıda (defun c:G() (setvar "cmdecho" 0) (setq fname "D:\\metraj.dat") (setq fno (open fname "a")) (setq e1 (car (entsel "\n1.line tıkla:"))) (redraw e1 3) (setq e2 (car (entsel "\n2.line TIKLA:"))) (redraw e2 3) (setq e3 (car (entsel "\n3.line TIKLA:"))) (redraw e3 3) (setq e4 (car (entsel "\n4.line TIKLA:"))) (redraw e4 3) (setq e5 (car (entsel "\nÖLÇÜ yazısına tıkla TIKLA:"))) (redraw e5 3) (setq lst1 (entget e1)) (setq lst2 (entget e2)) (setq lst3 (entget e3)) (setq lst4 (entget e4)) (setq lst5 (entget e5)) (setq txt1 (cdr (assoc 8 lst1))) (setq txt2 (cdr (assoc 8 lst2))) (setq txt3 (cdr (assoc 8 lst3))) (setq txt4 (cdr (assoc 8 lst4))) (setq txt5 (cdr (assoc 8 lst5))) (setq txt6 (cdr (assoc 1 lst5))) (setq satir (strcat txt1 " " txt2 " " txt3 " " txt4 " "txt5" "txt6)) (write-line satir fno) (close fno) ;(redraw e1 3) ;(redraw e2 3) ;(redraw e3 3) ;(redraw e4 3) ;(redraw e5 3) (command "chprop" e1 e2 e3 e4 e5 "" "color" "red" "") ) data dosyasına yazdırdığım 6 verinin yanına 7. veri olarakta yükseklik girmeyi düşünüyorum: örneğin komut satırında yükseklik diye soracak benim girdiğim yükseklik değerini data dosyasına ekleyek.ilginiz için teşekkür ediyorum

29.12.2014 12:05 79919	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
bu arada biliyorum o kadar iyi yazılmış bir program değil ama. ProhibiT hocamın kitabını okuya okuya anca çapım bu kadara yetti.inşallah ilerde daha iyilerini yazabilirim.

30.12.2014 21:46 79933	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
YARDIM EDEBİLECEK KİMSE YOKMU :(

30.12.2014 22:09 79934	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Bukadarını yaptıysan diğerini hayli yaparsın. Kitapta kullanıcı girdi işlevleri bölümüne birdaha gözat, bu kodların biriyle yüksekliğini ilk başta sordur, daha sonra aşağıda yaptığın gibi strcat ile birleştirip yazdır. Birşey daha; dat dosyanı yaptığın gibi ilk başta açtırma, son seçimden sonra açtırki seçimden vazgeçersen dosyan açık kalmasın.

30.12.2014 22:46 79935	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
saol travacı hemen tekrardan bakıcam.şurası aklıma takıldı sadece yukarıdaki lispte değerleri assocla okutup txt lere atadım ya; manuel olarak değer girip nasıl okutacam onu çözemedim.örneğin (setq h (getreal "\nyükseklik giriniz:")) h seçim listesine atadığım bu değeri txt7 kısmına yazdıramadım bir türlü. uğraşmaya devam edecem tekrardan yardımcı olduğun için çok teşekkür ederim travacı

30.12.2014 23:07 79936	alumina Editör 769 ileti Insaat Muhendisi Istanbul
her zaman 4 çizgi, 1 text ve bir yükseklik mi yazdırıyorsun? yoksa n tane çizgi 1 text 1 yükseklik mi? Ayrica manuel olarak girilen zaten girilmiştir. Neden bir daha okutacagim diye uğraşıyorsun? direkt yazdır artik. "rtos" u incele. öğrenmek için ugrasmak güzel ama :) alumina (30.12.2014 23:24 GMT)

31.12.2014 06:44 79938	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
kaan0624 Çünkü girdiğin değer string (text) değil sayı, ya string girmelisin yada getreal ile girdiğin değeri text e çevirmelisin.

31.12.2014 12:07 79940	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
Alıntı alumina : her zaman 4 çizgi, 1 text ve bir yükseklik mi yazdırıyorsun? yoksa n tane çizgi 1 text 1 yükseklik mi? Ayrica manuel olarak girilen zaten girilmiştir. Neden bir daha okutacagim diye uğraşıyorsun? direkt yazdır artik. "rtos" u incele. öğrenmek için ugrasmak güzel ama :) her zaman 4 çizgi 1 text 1'de yükseklik girmem gerekiyor alumina.neyse inşallah çözerim biliyorum çoook çalışmam lazım çookkkkk :D

31.12.2014 14:24 79944	alumina Editör 769 ileti Insaat Muhendisi Istanbul
calisacagini dusundugun kodun calismadigini görmeden, defalarca düzelttiğini sandığın halde düzelmediğini görmeden, bazen 2 satir için 3-4 gun ugrasmadan, o kodlarin arasinda kaybolmadan, uykusuz geceler geçirmeden.... olmuyor bu isler kaaaan :) devam...

31.12.2014 21:11 79959	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
haklısın valla ne deyim.ama allaha şükür ki sizin gibi yardımcı olabilecek insanlar var burada.autocadokulunu bu yüzden çok seviyorum işte hergün yeni şeyler öğrenip sizin gibi dostlar kazanıyorum. bu arada yeni yılınızı kutluyorum allah sevdiklerinizle sağlıklı mutlu huzurlu uzun bir ömür versin :))

31.12.2014 21:59 79960	alumina Editör 769 ileti Insaat Muhendisi Istanbul
herkese :) sen bu lispi öğrenmek için mi yazdın, yoksa gerçekten böyle bir veri dosyasini alip kullaniyor musun?

31.12.2014 22:09 79961	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
iş yerinde ihtiyacım olduğu için kullanıyorum.bu kadarını yazana kadar bile en az 15 gün uğraştım alumina yav.ama bu kadarını bile yapabildiğimi görmek beni gerçekten çok heveslendirdi.:))

31.12.2014 22:42 79962	alumina Editör 769 ileti Insaat Muhendisi Istanbul
cok güzel:) ama yukardaki gibi ezbere gitme. fonksiyon mantıklarını öğrenmeden böyle bodoslamadan lisp yazmaya kalkarsan ne ogrenebilisin nede aklında kalır. once autocad nesne modellerini anla ogren, sonra fonksiyonlara basla. her fonksiyonla ilgili basit basit ornekler yap. bırak 1 sene sonra gerçekten ise yarayan kodlar yazmaya basla.

05.01.2015 20:24 80026	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
günlerim dertli gecelerim uykusuz sanki bir deryanın içindeyim bahtsız bir bedevi gibi seni çölün ortasında arar oldum nerdesin nerdesin ey güzel gözlü nur yüzlü lisp kodum... vay be lisp yazmaya aşık olmak böyle birşeymiş demekki şu lispi tamamlamak için mecnun oldum her yerde o kodu arar oldum yavvvvv...:):):):):):):):):):):)

05.01.2015 20:33 80027	alumina Editör 769 ileti Insaat Muhendisi Istanbul
demek lispe asik oldun. e artik bugun itibariyla aramiza hos geldin :) Ama farkındasın değil mi? Artik istesende dönemezsin. Paylas bakalım su yazdığın kod ne alemde? alumina (05.01.2015 20:39 GMT)

05.01.2015 20:43 80028	kaan0624 Gold üye 35 ileti inşaat teknikeri ankara
hocam aynen öyle oldu valla.ya yemin ediyorum bi oturuyorum yerimden kalkamıyorum.hep şu kod ne işe yarıyormuş bu ne işe yarıyormuş diye diye kitaba bi dalıyorum sonra çıkamıyorum bi bakıyom gece 3 olmuş :D :D ama gayet halimden memnunum :D

05.01.2015 20:45 80029	alumina Editör 769 ileti Insaat Muhendisi Istanbul
:):) Allah bozmasin. Yardim istersen burdayiz.

> 1 < [2]

Sonraki Sayfa