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
Ortak Türk Alfabesi 34 harf destekli fontlar
Yazıyı referans gösterilen nesneye göre döndüren lisp
admin - 04.10.2005 14:36
Bu lispi kodlayan ehya 'ya teşekkürler.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(if (/= s "Function cancelled")
(princ (strcat "
Error: " s))
)
(setq *error* olderr)
(princ))
(defun rt_uygula ()
(setq rt_sec_say (sslength rt_sec))
(setq c 0)
(while (> rt_sec_say c)
(setq e_rt_sec (ssname rt_sec c))
(setq ee_rt_sec (entget e_rt_sec))
(setq ee_rt_sec (append ee_rt_sec (list (cons 50 secim_aci))))
(entmod ee_rt_sec)
(setq c (+ c 1))
(setq rt_e t)
)
)
(defun c:rty ()
(prompt "[cizimokulu.com]")
(setq olderr *error*
*error* rt_hata)
(setq
rt_sec (ssget
'((-4 . "<OR") (0 . "TEXT") (0 . "MTEXT") (-4 . "OR>"))
)
)
(if (= rt_sec nil)
(progn
(princ)
)
(progn
(setq rt_e nil)
(setvar "errno" 0)
(while (= rt_e nil)
(setq rt_ent (entsel "
Referans nesneyi seçiniz:"))
(if (= rt_ent nil)
(progn
(if (= (getvar "errno") 7)
(progn
(setq rt_e nil)
(setvar "errno" 0)
)
)
(if (= (getvar "errno") 52)
(progn (setq rt_e t) (setvar "errno" 0))
)
)
(progn
(command "select" rt_sec "")
(setq rt_ent_tan (cdr (assoc 0 (entget (car rt_ent)))))
(if (and (/= rt_ent_tan "LINE")
(/= rt_ent_tan "XLINE")
(/= rt_ent_tan "RAY")
(/= rt_ent_tan "TEXT")
)
(progn
(princ
"
Bu komut seçtiğiniz nesne türü için geçerli değildir..."
)
(setq rt_e t)
)
)
(if (= rt_ent_tan "TEXT")
(progn
(setq secim_aci (cdr (assoc 50 (entget (car rt_ent)))))
(rt_uygula)
)
)
(if (or (= rt_ent_tan "LINE")
(= rt_ent_tan "XLINE")
(= rt_ent_tan "RAY")
)
(progn
(setq secim_bas (cdr (assoc 10 (entget (car rt_ent))))
secim_son (cdr (assoc 11 (entget (car rt_ent))))
)
(setq secim_aci (angle secim_bas secim_son))
(if (and (> secim_aci (angtof "0.0000"))
(< secim_aci (angtof "90.0000"))
)
(setq secim_aci secim_aci)
)
(if (and (> secim_aci (angtof "91.0000"))
(< secim_aci (angtof "180.0000"))
)
(setq secim_aci (+ secim_aci (angtof "180.0000")))
)
(if (and (> secim_aci (angtof "181.0000"))
(< secim_aci (angtof "270.0000"))
)
(setq secim_aci (+ secim_aci (angtof "180.0000")))
)
(if (and (> secim_aci (angtof "271.0000"))
(< secim_aci (angtof "360.0000"))
)
(setq secim_aci secim_aci)
)
(rt_uygula)
(setq rt_e t)
)
)
)
)
)
)
)
(princ)
)
(princ)(PRINC " --> 'cizimokulu.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:
Benzer Sayfalar- Seçilen yazıyı değiştiren lisp (29.938)
- Dış referans dosyasını hızlı açmak (16.227)
- Text Explode ile Yazıyı Patlatmak (88.727)
- A4 Antet (TS 6700 ve 7015'e Göre Yazı Alanı) Çeşitleri (65.011)
- AutoCAD Render Eğitimi - Render malzeme seçimi videosu (objenin rengine göre materyal atamak) (31.652)
- Ara Lisp (52.370)
- Enkesit Lisp (7.975)
- 3D Yay çizen lisp (seçenekli) (27.327)
- Yer Belirtici Ok Çizen Lisp (58.050)
- Makine-Eleman-Lisp (85.820)
dnd 01.01.2015 09:35 #15486
Merhaba; Yazıyı referans nesneye dik olacak şekilde bu lkispi düzenleyebilir misiniz acaba?Ben biraz uğraştım ama olmadı :(
halilozcakir 29.03.2010 12:05 #12669
bu komut mtext ler için de işe yarasa süper olacak + referasn noktaları pline da seçebilsek tamamdır.
smyrna15 27.10.2009 16:23 #11924
bu komutu kopyalayamıyorum "bu fonksiyon geçersiz" diye bi msj çıkıyooo:( daha evvel kopyalamışdım, formatta uctu, tekrar istiyorum bunuuuu:P teşekkürler
ehya 04.05.2009 12:07 #11050
engelleme gibi bir durum söz konusu değil. Seçim yapıp CTRL+C ile kopyalayın. Boş bir metin belgesine CTRL+V yapın.
nsimsek 04.05.2009 11:44 #11049
Bu lispe emeği gecenlere teşekkürler. Buraya üyeyim ama ilk defa bir lispi copylayamıyorum. Forum içinde belli bir seviyede olanmı bu lisp i alma hakkı veriliyor ? Fleshget arkadaşımız da bu konuda hayıflanmış. Haklıda. Varsa bir kota veya sınırlama bilelim ki başkasının emegine saygısızlık ediyor pozisyonuna düşmeyelim. Alındım valla. Yukarıdaki listelenen kodları almanın başka yolları da var. Ama eger istenmiyorsa almak da istemem. Emeğe saygımız var. Yok bu lisp herkeze acıksa nasıl bilgisayarımıza indirecegimizide acıklarsanız memnun oluruz.
Saygılarımşla.
nsimsek
fleshget 04.04.2009 22:40 #10876
kopyalayamıyorum bile lisp'i, nasıl bir sistem yapmışsınız anlamadım gitti :/
Sessiz Kabus 19.09.2007 08:44 #5629
güzel olmuş parmaklarına sağlık.
line ve bloklu nesnelerde kullanabilsek daha güzel olurdu.
teşekkürler
yazgunesi 01.07.2006 08:31 #388
Bu lisp cad 2004 te çalışıyor.
Yüklemek için:
Tools açılır menüsü altından Load Application tıklıyoruz.
Ekrana gelen dialog penceresinden lispimizi kaydetiğimiz dizinden çağrıyoruz.
Command: _appload pp.lsp successfully loaded.
Command: --> 'www.autocadokulu.com' Çizim yardımları yüklendi ! EKRANA BÖYLE BİR YAZI GELMESİ GEREK.
Bu lispi çalıştırmak için Command satırından rty yazıyoruz.
İlk önce döndürülecek objeyi seçiyoruz ardından referens alacağımız obje seçmemiz isteniyor.Tıkladıktan sonra seçtiğimiz metin seçtiğimiz çizgiye göre hizalanıyor...
ehya 01.07.2006 08:00 #387
Arkadaşlar, lisplere özel bi foksiyon yazılmadığı sürece autocad'in farklı versiyonlarında çalışmama gibi bi durumu olamaz.Kodlara tekrar baktım ama çalışmaması gibi bu durum söz konusu değil. eğer yükleme esnasında bi hata veriyorsa o hatayı yazarsanız o zaman tam olarak yardım edebilirim.
id 22.03.2006 18:33 #264
selam
komut satırndan "rty" yazıp, enter'ledikten sonra "Command: rty
[www.autocadokulu.com]" bilgisi yazlıyor ve işlem son buluyor. AutoCAD2006 kullanıyorum.
ehya 19.02.2006 08:21 #225
Bu komutu kullanmak için, lispi yükledikten sonra komut olarak rty yazın.