10.04.2008 12:00    

serzenis
selamlar...
bu siteden aldığım numaraları sıralayan lisp i kullanıyorum.ancak bu lispi harfle başlayan sayılarda nasıl kullanılabilir hale getirebilirm acaba?(ör:B101,B102,B103...)
kendim taslak olarak kullanıp dönüştürmeye çalıştım ama olmadı:-(
ayrıca autolisp yada herhangi bi lisp hazırlaya bilen arkadaşlar ; Yazar : HÜDAYİM BAŞAK Baskı Yılı : 2006 Yayın Evi : PUSULA YAYINCILIK, AUTOCAD ORTAMINDA AUTOLISP İLE PROGRAMLAMA bu kitaptan faydalanabilirmiyim.başka önerebileceğiniz lisp kitabı varmı acaba?
autolisple vakit kaybetmeden hemen VISUALLISP mi çalışmalıyım yoksa?
teşekkür ederim şimdiden.
iyi günler...

10.04.2008 12:14    

sinanc
sitede ki lispi bulamadım linkini veya lisp kodunu buraya yazabilirmisiniz ?

10.04.2008 12:18    

k005
Alıntı
serzenis :
selamlar...
bu siteden aldığım numaraları sıralayan lisp i kullanıyorum.ancak bu lispi harfle başlayan sayılarda nasıl kullanılabilir hale getirebilirm acaba?(ör:B101,B102,B103...)
kendim taslak olarak kullanıp dönüştürmeye çalıştım ama olmadı:-(
ayrıca autolisp yada herhangi bi lisp hazırlaya bilen arkadaşlar ; Yazar : HÜDAYİM BAŞAK Baskı Yılı : 2006 Yayın Evi : PUSULA YAYINCILIK, AUTOCAD ORTAMINDA AUTOLISP İLE PROGRAMLAMA bu kitaptan faydalanabilirmiyim.başka önerebileceğiniz lisp kitabı varmı acaba?
autolisple vakit kaybetmeden hemen VISUALLISP mi çalışmalıyım yoksa?
teşekkür ederim şimdiden.
iyi günler...




bence önce autolisp ten başlamalısın. ben de yeni başladım mesela.. yeni derken şöyle bir şey var 1999 dan beri autocad kullanıyorum. o zamanlarda lisp olduğunu biliyordum ama nasıl yazılır hiç bir fikrim yoktu. daha sonra lisp içinde küçük değişiklikler yaparak anlamaya başladım. işte 2006 dan bu yana bişeyler yazmaya çalışıyorum. yani şunu söyleyeceğim: öncelikle lisp dilini çok iyi inceleyip denemeler yapmalısın. parantezlere dikkat etmen gerekiyor. ilk etap için autolisp anlatan herhangi bir kitap olabilir bence.. saygılar...

10.04.2008 12:21    

serzenis


Linkleri görebilmek için ÜYE olmalısınız.

10.04.2008 12:54    

sinanc
Autodesk'in yayınladığı Autolisp Ref. kitabı elinizin altında bulunsun..



Linkleri görebilmek için ÜYE olmalısınız.



--------------------------------------------
ehya nın hazırlamış olduğu lispe ufak ilaveler yaparak, yeni bir versyon çıkardık !

(defun c:hnodegis ()
(setq num_harf nil)
(setq tc_num (getint " Birinci Numara:"))

(setq num_harf (getstring "\nNumara'nın önüne yazılacak text?:"))
(if(= num_harf nil)(setq num_harf ""))
(if (= tc_num nil)
(progn)
(progn
(setvar "errno" 0)
(setq tc_num_uy tc_num)
(setq tc_ent nil)
(while (= tc_ent nil)
(initget "C")
(setq tc_ent (entsel "
Yazıyı Seç / Cıkış:"))
(if (= tc_ent nil)
(progn
(if (= (getvar "errno") 0)
(progn
(setq tc_ent nil)
(setvar "errno" 0)
)
)
(if (= (getvar "errno") 52)
(progn
(setq tc_ent t)
(setvar "errno" 0)
)
)
)
(progn
(setq tc_tan (cdr (assoc 0 (entget (car tc_ent)))))
(if (/= tc_tan "TEXT")
(progn
(princ "
Seçilen nesne yazı değil...")
(setq tc_ent nil)
)
(progn
(setq tc_stil (cdr (assoc 7 (entget (car tc_ent)))))
(setq tc_stil_yuk
(cdr (assoc 40 (tblsearch "style" tc_stil))
)
)
(if (= tc_stil_yuk 0.0)
(progn
(command "change" tc_ent "" "" "" "" "" "" (strcat num_harf (itoa tc_num_uy)))
(setq tc_num_uy (1+ tc_num_uy))
(setq tc_ent nil)
)
(progn
(command "change" tc_ent "" ""
"" "" "" (strcat num_harf (itoa tc_num_uy))
)
(setq tc_num_uy (1+ tc_num_uy))
(setq tc_ent nil)
)
)
)
)
)
)
)
)
)
(princ)
)
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(PRINC " Lispi çalıştırmak için komut satırına 'hNodegis' yazınız ")

sinanc (10.04.2008 13:33 GMT)

10.04.2008 13:21    

serzenis
ellerinize sağlık.süper olmuş.autolisp ref. kitabınıda indirdim saol.benim söylediğim kitabıda alacağım sanırım.çok önemli değil ancak B001 gibi ifadeleri direk kendisi yuvarlayıp B1 yapıyor.B001 gibi textlerdede yine yazı değiştirme lispiyle değiştiriyorum.
teşekkür ederim.

serzenis (10.04.2008 13:39 GMT)

10.04.2008 13:46    

sinanc
Numara'nın önüne yazılacak text?: B00 yazarsan problem olmaz , hilesini bilmek lazım :wink

10.04.2008 13:52    

serzenis
B008,B009,B010,B011,B012 gibi gitmesinden bahsetmeye çalışmıştım.
ama haklısın B00, sonrasında ise B0 iş görür.
hile konusundaysa çok haklısın:)

11.04.2008 10:01    

aslanv
Alıntı
sinanc :
Autodesk'in yayınladığı Autolisp Ref. kitabı elinizin altında bulunsun..



Linkleri görebilmek için ÜYE olmalısınız.






sinanc link için teşekkürler

11.04.2008 11:09    

blasted
Arkadaşlar int. Türkçe anlatımlı pdf kitap bulabilirmiyiz yada elinde olan varmı paylaşabilirmi..?

06.06.2008 10:21    

meteyus
bu lispin koordinat belirterek konması ve text in basamı sonamı oldugunu belirten varsa bana cok faydası olacaktır tesekkurler

20.07.2012 22:05    

busraa
LÜTFEN YARDIM YAZIYI SEÇ DEDİĞİ ZAMAN YAZIYI SEÇİYORUM FAKAT SEÇİLEN YAZI DEĞİL DİYE UYARI VERİYOR. LİPSİ NASIL KULLANACAĞIMIZ KONUSUNDA AYRINTI VEREBİLİRMİSİNİZ.

21.07.2012 00:37    

Travaci
Seçtiğiniz yazının text olduğuna emın olun, buyuk ıhtımal yazınız mtext, yazıyı patlattıktan sonra tekrar deneyın. ; =)

> 1 <
Copyright © 2004-2022 SQL: 1.181 saniye - Sorgu: 77 - Ortalama: 0.01533 saniye