Sürekli Kopya

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

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 !")

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:

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.

karizma505 27.01.2010 07:07 #12366

tşk ederim

marco1983 16.04.2009 22:52 #10944

saollll

sedatvolkan 15.02.2009 13:03 #10463

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

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

ethela 15.01.2007 15:30 #1841

ff den sonra cc de super oldu. daha once neredelermis?????

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.