












































































































































































































































- 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ı
Ölçekli Türk Bayrağı çizen lisp
Sürekli Kopya
ehya - 05.09.2005 14:33
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 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:

ArkadaÅŸlar merhaba
Mehmet Şahin Güvercin hocanın autolisp kitabına nasıl ulaşırım. Yardim lütfen.

bu lisp dosyalarını nasıl alıcaz yardımcı olursanız sevinirim

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

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.

yükledikten sonra hangi komutla çağıracağımızı da söyleyebilirsen seviniriz.