Sürekli Kopya

Sürekli kopya yapan komut
ehya - 05.09.2005 15:33
Yazar: ehya
İçerik:

(Kontrol panelinizde görünür)
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.
Yorumlar :
karizma505   27.01.2010 10:07 #12366  

tşk ederim

marco1983   17.04.2009 02:52 #10944  

saollll

sedatvolkan   15.02.2009 16:03 #10463  

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

konaknaim   10.07.2007 22: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 18:30 #1841  

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

ehya   04.06.2006 13: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 18:05 #228  

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

Copyright © 2004-2018 | Tüm Hakları Saklıdır | 1902 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam