Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 Boyut Dersleri
Proje Dökümanları
Çizimler
Mimari Çizimler
Elektrik
DoÄŸalgaz
Harita Çizimleri
Tesisat
Ferforje
Makine
3 Boyut
3ds Max
ArchiCAD
Solidworks
Diğer Çizimler
Lispler
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
Sürümler
Menüler
DWF Dosyaları
Programlama
AutoCAD Püfleri
EÄŸitim
AutoCAD EÄŸitimi
Karma 3 Boyut Dersleri
Adım Adım AutoCAD Eğitimi
01.Bölüm
02.Bölüm
03.Bölüm
04.Bölüm
05.Bölüm
06.Bölüm
07.Bölüm
08.Bölüm
09.Bölüm
10.Bölüm
11.Bölüm
12.Bölüm
Uygulamalar
Adım Adım 3 Boyut Eğitimi
Kariyer
3ds Max
Attribute lar
- aLd Fonksiyonu
- TCad Metraj
- FacadeCAD
- Cephe Kot
- HQ Library
- FreeMUST
- ALS/Pasdoc.A
- Excele Tablo Aktaran Lisp
- Nokta Koordinat Tablosu
- Plana İç Ölçü Verme
- Toplam Alanı Yazan Lisp
- Alan ve Çevre Yazan Lisp
- Koordinat, Alan ve Çevre Tablo Halinde Yazma
- AutoCAD'de Nokta Dökümü
- Hava Kanalı Metraj Fonksiyonu
- Boru Metrajı Fonksiyonu
- OptiCAD
- Özel Çizgi Tipi Oluşturmak
- AutoCAD te Koni Açılımı Nasıl Yapılır?
- PolyLine & Point Objelerinden Aplikasyon Çizelgesi
- Z değerini sıfırlama
- AutoCAD te Polyline üzerine uzunluk yazdırma
- Sıralı numaralandırma
- Yazı içindeki sayıları toplama
- Karmaşık Path ile Loft Uygulaması
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
- Duvar-Lento-Kapı-Pencere Metraj Programı
Seçilen yazının içinden harf değiştiren lisp
admin - 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:
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.
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.
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...
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?
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...
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.