Forumdan
99 kategoride
17 binden fazla konu başlatıldı
bu konulara yaklaşık 90 bin cevap verildi
tüm bunlar yaklaşık 109 milyon kez görüntülendi
Bölüm indeksi
Makaleler Sık Sorulan Sorular Download
İzle Öğren Eğitim Videoları
3ds Max Videoları AutoCAD Kursu Ders Videoları AutoCAD Kursu 2 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 Revit Family 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
2D Polyline 'ı 3D... 3d polyline'ı 2d... 3D Yay çizen lisp... Artan sırayla num... Autocad içinden e... Civata ve Somun Ç... Çizgileri toplayı... Çizime Tarih Yaza... Daire ortasına ak... Duvar çizen lisp... Harita ve pafta k... İşaretlenen 2 nok... Merdiven çizen lisp Nokta koordinatla... Noktanın koordina... Parabol çizen lisp ... 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 larAutoCAD Genel
AutoCAD Eğitimi
3ds Max
Özel Yazılımlar
- 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ı
Demir (Donatı) Metraj LISP'i
Text arama yapan lisp
Paftada belirli bir dizinin aranması
admin - 13.06.2006 20:52
admin - 13.06.2006 20:52
Bu yazılımı çalıştırmak için ara yaz aranacak dizini gir ENTER yap.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
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.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
(defun chgterr (s)
(if (/= s "function cancelled")
(princ (strcat "nerror: " s))
)
(setq p nil)
(setq *error* olderr)
(princ)
)
(defun c:ara ()
(setq olderr *error*
*error* chgterr
buyut 100
cnt 0)
(setq echostat (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq aranacak (getstring t "nAranacak dizi: "))
(setq a_uz (strlen aranacak))
(princ "Cizimdeki tum yazilarda arama yapmak icin <Enter>'e basinizn")
(setq sset (ssget))
(if (not sset) (setq sset (ssget "X" (list (cons 0 "TEXT")))))
(setq ssl (sslength sset)
devam t
)
(while (and (> ssl 0) devam)
(setq temp (ssname sset (setq ssl (1- ssl))))
(if (= (cdr (assoc 0 (entget temp))) "TEXT")
(progn
(setq yazi (cdr (assoc 1 (entget temp))))
(setq bulundu nil
pos 0
uz (strlen yazi))
(while (and (>= uz (+ pos a_uz)) (not bulundu))
(setq s (substr yazi (+ pos 1) a_uz))
(if (= s aranacak)
(setq bulundu t)
)
(setq pos (1+ pos))
) ; text içinde arama için
(if bulundu
(progn
(setq p1 (assoc 10 (entget temp)))
(command "zoom" "c" (cdr p1) buyut)
(initget "Evet Hayir")
(setq msg_str (strcat "nSonraki [" aranacak "] <Evet Hayir>? "))
(setq cevap (getkword msg_str))
(if (= cevap "Hayir") (setq devam nil))
)
)
) ; progn için
) ; eleman text 'mi ?
) ; tüm elemanlar bitene kadar
(setq *error* olderr)
(setvar "cmdecho" echostat)
(princ)
)
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(if (/= s "function cancelled")
(princ (strcat "nerror: " s))
)
(setq p nil)
(setq *error* olderr)
(princ)
)
(defun c:ara ()
(setq olderr *error*
*error* chgterr
buyut 100
cnt 0)
(setq echostat (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq aranacak (getstring t "nAranacak dizi: "))
(setq a_uz (strlen aranacak))
(princ "Cizimdeki tum yazilarda arama yapmak icin <Enter>'e basinizn")
(setq sset (ssget))
(if (not sset) (setq sset (ssget "X" (list (cons 0 "TEXT")))))
(setq ssl (sslength sset)
devam t
)
(while (and (> ssl 0) devam)
(setq temp (ssname sset (setq ssl (1- ssl))))
(if (= (cdr (assoc 0 (entget temp))) "TEXT")
(progn
(setq yazi (cdr (assoc 1 (entget temp))))
(setq bulundu nil
pos 0
uz (strlen yazi))
(while (and (>= uz (+ pos a_uz)) (not bulundu))
(setq s (substr yazi (+ pos 1) a_uz))
(if (= s aranacak)
(setq bulundu t)
)
(setq pos (1+ pos))
) ; text içinde arama için
(if bulundu
(progn
(setq p1 (assoc 10 (entget temp)))
(command "zoom" "c" (cdr p1) buyut)
(initget "Evet Hayir")
(setq msg_str (strcat "nSonraki [" aranacak "] <Evet Hayir>? "))
(setq cevap (getkword msg_str))
(if (= cevap "Hayir") (setq devam nil))
)
)
) ; progn için
) ; eleman text 'mi ?
) ; tüm elemanlar bitene kadar
(setq *error* olderr)
(setvar "cmdecho" echostat)
(princ)
)
(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:
İçerik:
Tag: Text arama yapan lisp
Benzer Sayfalar- 3 Boyutlu Yazı Yazma (3D Text Lisp) (59.575)
- Z yönünde taşıma yapan lisp (27.704)
- Z yönünde kopyalama yapan lisp (26.026)
- Seçilen nesneleri freeze yapan lisp (2.755)
- Seçilen çizgileri POLYLINE yapan lisp (43.121)
- Konik sac açınımı yapan lisp programı (41.309)
- Peşpeşe çizilen çizgileri fillet yapan lisp (19.598)
- Harita ve pafta koordinatları için karelaj yapan lisp (35.760)
- İş Arama Yöntemleri (198.386)
- 2D Polyline 'ı 3D Polyline yapan lisp (33.382)
Yorumlar :
