ehya - 12.11.2005 18:03
Lisple ilgili forum linki İleti #921
Bu lispi kodlayan ehya 'ya teşekkürler.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(setq harfdeg_sec (ssget (list (cons 0 "TEXT"))))
(if (= harfdeg_sec nil)
(progn
(princ "
Seçim Yok!!!")
)
(progn
(setq harf_ara (getstring "
Aranacak harfi girin:"))
(setq deg_harf (getstring "
Yeni harfi girin:"))
(setq harfdeg_say (sslength harfdeg_sec))
(setq c 0)
(while (< c harfdeg_say)
(setq harfdeg_tek (ssname harfdeg_sec c))
(setq harfdeg_ne (cdr (assoc 1 (entget harfdeg_tek))))
(setq harfdeg_yeni ""
hc 1
)
(repeat (strlen harfdeg_ne)
(setq tek_tek (substr harfdeg_ne hc 1))
(if (= tek_tek harf_ara)
(progn
(setq ss_harf deg_harf)
)
(progn
(setq ss_harf tek_tek)
)
)
(setq harfdeg_yeni (strcat harfdeg_yeni ss_harf))
(setq hc (+ hc 1))
)
(setq dd_yazi (entget harfdeg_tek))
(setq dd_yazi (append dd_yazi (list (cons 1 harfdeg_yeni))))
(entmod dd_yazi)
(setq c (+ c 1))
)
)
))
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yazar: ehya
İçerik:
Tag:
istanbul61 02.11.2010 15:56 #13454
Emeğe saygı "shark" bey yıllarca kullandın kimseye faydası yok ne yazar. Ehya kardeşim teşekkür ederim. Bu lisp benim inanılmaz işime yaradı. Bir zamanlar netcadden autocade dönüşümde tükrçe harf sorunu vardı ve ben bu lispli uyarlıyarak o sorunu hallettim. Hiç bir bilgi boş değildir paylaşıldığı sürece.
kabus_solmyr 05.06.2007 19:09 #4538
emege saygıdan yanayımm,usta elin degmısken atuutocad kullananıcalarını cook rahatlacak bir cad ten excele hızlı ve duzgun veri aktaracak bir program yazzsak.o kadar aradım ama bu basit lisp yoooook yahuuu.
ehya 04.06.2006 09:37 #336
Walla ben bilmem. ister koy ister koyma. ben yazdım koydum. ve benim autocad'da olmayan birçok komutum var ama onları daha siteye vermedim. program haline getirdim. sadece burada daha hızlı kullanılsın diye gönderdim. hem sen madem o kadar lisp yazdın. autocad'de olan veya olmayan. daha hiç bi lispini sitede görmedim. yazmışsan bile iki nokta arasına çizgi çizdirmişsindir. hadi bakalım bir de lisp içinde program yap da, site sakinleri bu yazdıklarından faydalansın...
shark 24.03.2006 13:37 #265
Burada saygisizlik eden sensin farkindaysan. Sen benim kac yasinda oldugumu biliyor musun ki ya da ne zamandan beri autocad ile ugrastigimi?
Ayrica ben senin ya da bu isle ugrasanlarin emegine olan saygimdan dolayı:
"Lutfen autocad'de olan degil de olmayan komutlar/islevler icin kafa yoralim" dedim emegimizi bosa harcamayalım diye. Senin icin bu lispin manevi degeri olup olmadigini bilemem, bilmeme de gerek yok.
Ben de bundan 11 sene once bir cok lisp yazmistim autocad 12'de. Tutup onları siteye koymalı mıyım sence?
ehya 08.02.2006 16:45 #211
bende askerde iken düşünüyordum. bu shark adlı üye daha hangi lispime karşı gereksiz yazılar yazacak diye. Emeğe saygı göster shark. sen daha autocad falan bilmez iken ben bunu 17 yaşında iken autocad 12 de yazdım. bu sitede de daha kullanışlı olduğu için arkadaşlarla paylaşmak istedim. eğer hoşuna gitmiyorsa ve kullanmak istemiyorsan kullanmazsın. SAYGI SAYGI SAYGI...
shark 22.11.2005 08:01 #148
Arkadaslar Autocad'de zaten var olan komutlar icin neden lisp yazilir anlamiyorum. Bu lispin yaptigini (ve daha fazlasini) Find-Replace komutu zaten yapiyor. Lutfen autocad'de olan degil de olmayan komutlar/islevler icin kafa yoralim.