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
Ortak Türk Alfabesi 34 harf destekli fontlar
Sürekli Kopya
Sürekli kopya yapan komut
ehya - 05.09.2005 11:33
ehya - 05.09.2005 11:33
Seçtiğiniz nesneleri yön ve mesafe girerek, ard arda kopya yapan komut. Özellikle 2005 ten eski sürümlerde işinize yarayacaktır.
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 cc_hata (s)
(if (/= s "Function cancelled")
(princ (strcat "
Error: " s))
)
(setq *error* olderr)
(princ))
(defun c:cc ()
(setq olderr *error*
*error* cc_hata)
(setvar "cmdecho" 0)
(grtext -1 "Archme Design")
(princ "
Kopyalanacak nesneleri seçiniz:")
(while (= nil
(setq bgroup (ssget))
)
(princ "
Seçim Yok!..")
)
(initget 1)
(setq ang (getangle "
Açıyı giriniz: "))
(initget 1)
(setq dist (getdist "
Mesafeyi giriniz: "))
(setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4)))
(while (/= temp "C")
(setq ent (entlast))
(command "copy" bgroup "" "0,0" temp)
(initget "C")
(setq
temp (getdist (strcat "
Mesafe/Cıkış <" (rtos dist) ">: "))
)
(if (and temp (/= temp "C"))
(setq dist temp)
)
(if (/= temp "C")
(progn
(setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4))
bgroup (ssadd)
)
(while (setq ent (entnext ent))
(if ent
(setq bgroup (ssadd ent bgroup))
)
)
)
)
)
(setq bgroup nil
temp nil
ang nil
dist nil
ent nil
)
(princ)
)(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(if (/= s "Function cancelled")
(princ (strcat "
Error: " s))
)
(setq *error* olderr)
(princ))
(defun c:cc ()
(setq olderr *error*
*error* cc_hata)
(setvar "cmdecho" 0)
(grtext -1 "Archme Design")
(princ "
Kopyalanacak nesneleri seçiniz:")
(while (= nil
(setq bgroup (ssget))
)
(princ "
Seçim Yok!..")
)
(initget 1)
(setq ang (getangle "
Açıyı giriniz: "))
(initget 1)
(setq dist (getdist "
Mesafeyi giriniz: "))
(setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4)))
(while (/= temp "C")
(setq ent (entlast))
(command "copy" bgroup "" "0,0" temp)
(initget "C")
(setq
temp (getdist (strcat "
Mesafe/Cıkış <" (rtos dist) ">: "))
)
(if (and temp (/= temp "C"))
(setq dist temp)
)
(if (/= temp "C")
(progn
(setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4))
bgroup (ssadd)
)
(while (setq ent (entnext ent))
(if ent
(setq bgroup (ssadd ent bgroup))
)
)
)
)
)
(setq bgroup nil
temp nil
ang nil
dist nil
ent nil
)
(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: ehya
İçerik:
Tag:
Benzer Sayfalar- Cd ve Dvd Kopya Koruma Yontemleri (17.278)
Yorumlar :
akocak 31.03.2021 09:08 #16069
Arkadaşlar merhaba
Mehmet Şahin Güvercin hocanın autolisp kitabına nasıl ulaşırım. Yardim lütfen.
konaknaim 10.07.2007 18:50 #4898
arkadaslar lısıp ın calıstırma komutunu degıstırmek ıcın defun konutundan sonra gelen yere cc yerın aa gırersenız lısıbı aa dıyerek calıstırabılırsınız veya herhangıbı kelıme zaten lısıbı yukledıkten sonra hangı komutla calısacagı diyalog penceresınde yazıyor
ehya 04.06.2006 09:41 #337
komutu "cc" yazarak çalıştırabilirsiniz.
ek bilgi olarak, bir lispi hangi komutla çalıştıracağınızı bilmiyorsanız, lisp dosyasını açın ve içinde yazılı olan
(Defun c:...
bölümünü arayın. burad mutlaka "c:" bölümü olanını bulun. c: yazısından sonraki yazı komutu çalıştırır.
Kolay gelsin.
kirshof 21.02.2006 15:05 #228
yükledikten sonra hangi komutla çağıracağımızı da söyleyebilirsen seviniriz.