|
28.12.2014 22:19
kaan0624
|
|
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
 Travaci
|
|
Ne yazdığını bilmezsek neye göre yardım edicez ?
|
|
29.12.2014 09:39
 alumina
|
|
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
kaan0624
|
|
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
kaan0624
|
|
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
kaan0624
|
|
YARDIM EDEBİLECEK KİMSE YOKMU :(
|
|
30.12.2014 22:09
Travaci
|
|
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
kaan0624
|
|
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
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 :)
alumina (30.12.2014 23:24 GMT)
|
|
31.12.2014 06:44
Travaci
|
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
kaan0624
|
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
alumina
|
|
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
kaan0624
|
|
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
alumina
|
|
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
kaan0624
|
|
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
alumina
|
|
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
kaan0624
|
|
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
alumina
|
|
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
kaan0624
|
|
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
|
alumina
|
|
:):) Allah bozmasin. Yardim istersen burdayiz.
|
Sonraki Sayfa
