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 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ı
Demir (Donatı) Metraj LISP'i
Artan sırayla numara değiştiren lisp
admin - 03.10.2005 17:01
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(setq tc_num (getint "
Birinci Numara:"))
(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 "" "" "" "" "" "" tc_num_uy)
(setq tc_num_uy (1+ tc_num_uy))
(setq tc_ent nil)
)
(progn
(command "change" tc_ent "" ""
"" "" "" 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 'Nodegis' yazınız ")
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:
Benzer Sayfalar- Sırasıyla numara yazan lisp (91.684)
- Seçilen yazıyı değiştiren lisp (29.920)
- Seçilen yazının içinden harf değiştiren lisp (25.112)
- Ara Lisp (52.346)
- Enkesit Lisp (7.954)
- Rakam sıralayan lisp (35.888)
- Spiral çizen lisp (47.837)
- 3D Yay çizen lisp (seçenekli) (27.313)
- Parabol çizen lisp (25.093)
- Merdiven çizen lisp (47.359)
lazymelisa 26.12.2010 07:21 #13645
ÇOK GÜZEL AMA BİŞEY EKSİK BEN ATAŞMAN NUMARASI VERİYORUM T-3509 DİYE VE BUNU T-3510 T-3511 DİYE SIRALAMASINI İSTİYORUM BU NASIL OLUCAK?
tkavruk 07.09.2009 09:51 #11708
bu lipsi bir metnin devamını değiştirecek şekilde düzenleyebilirmiyiz?
Örnek: dd1, dd2,.... şeklinde yazdirabilirmiyiz?
onderylmz 28.05.2009 12:42 #11200
paylaşmışsınız madem. indirebilir hale getirseniz de teknik arkadaşlarımız daha kolay faydalanabilse daha hoş olmaz mı
??
hakan71 14.05.2009 13:19 #11110
merhaba arkadaşlar bu lispi çalıştıran var mı. ben yazdım ama çalıştıramadım. birde ben bakarak tekrar yazdım. direk lisp dosyasını alabiliyomuyuz. bende kiriş lispi yazıyorum şu anda bitme aşamasında bitince buraya bırakırım.
KÖPRÜ-YOL 12.03.2009 20:50 #10684
Faydalı bir lisp Aks no yada klasik metraj yapanlar için biçilmiş kaftan..Paylaşım için teşekkürler + rep..
mehmetgrafik 04.08.2008 14:42 #8810
slmlar ben bu lispi kullanırken bi şey aklıma geldi
örn :
benim kotum 66.90 ama değiştirmem degeken kot nosu 320.00
bunu arasında 253.1 gibi bi fark var diğer kotları işaretlediğimde bu farkı koruyan yani ekleme yapan bi lisp varmı varsa çok iyi olur ihtiyacım var
oguzkilic 01.04.2008 10:17 #7766
lisp'i merdiven yada aks sayısı verirken kullanmakta gerçekten çok faydalı emeğinize sağlık.
lihannes 02.11.2007 09:39 #6234
teşekkürler..çok kullanışlı...benim de ricam slash'lı rakamlar yazabilmek...yardımcı olursanız çok sevinirim..
fluxytu 12.05.2007 10:29 #4248
dostum eline saglik bide bugra arkadasin dedigi gibi bisey oluyosa yani aralara nokta tire veya herhangi bir ayrac koyarakta olursa eger gercekten cok harika olur. Tekrar eline saglik tesekkur ederim
bugraolcer 19.03.2007 09:45 #3447
MERHABA ÇOK TEŞEKKÜR LISP İÇİN ACABA BU LISPIN YAZI FORMATINI NASIL DEĞİŞTİRECEĞİZ MESELA BEN 06.100.001,06.100.002,...... DİYE ARTIRMAK İSTİYORUM NNUMARALANDIRMAYI MAILIM bugraolcer@gmail.com BURDAN VEYA MAILDEN YARDIMCI OLURSANIZ SEVINIRIM