Çizim Okulu
  • Forum
  • Download
  • Galeri
  • Video
  • Kariyer
  • AboneOl
  • Üye Ol veya GiriÅŸ Yap

cizimokulu bülten aboneliği
*  E-posta adresiniz:
 


*  Güvenlik kodu:
 
Bölüm indeksi
Makaleler
Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 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
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
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
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
AutoCAD Genel
  • AutoCAD
  • AutoLISP
  • AutoCAD Programlama
  • AutoCAD Püfleri-1
  • AutoCAD Püfleri-2
  • AutoCAD Komutları
  • AutoCAD Terimler Sözl.
AutoCAD EÄŸitimi
  • AutoCAD EÄŸitim Videoları
  • AutoCAD EÄŸitimi
  • AutoCAD Dersleri
  • AutoCAD EÄŸitim Notları
  • AutoCAD 3 Boyut Dersleri
3ds Max
  • 3ds Max Nedir?
  • 3ds Max Model ve Çizim
Ö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ı
  • Ölçekli Türk Bayrağı çizen lisp
Program Ekle
Ziyaretçi: 388, Üye: 3
devrim22, feelslikeg6, mttlp
Detaylar »
> AutoLISP > Örnek Lispler > Sürekli Kopya

Sürekli Kopya

Sürekli kopya yapan komut
ehya - 05.09.2005 14: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

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 12: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 09:07 #12366  

tÅŸk ederim

marco1983   17.04.2009 01:52 #10944  

saollll

sedatvolkan   15.02.2009 15:03 #10463  

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

konaknaim   10.07.2007 21: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 17:30 #1841  

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

ehya   04.06.2006 12: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 17:05 #228  

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

Copyright © 2004-2020 | Tüm Hakları Saklıdır | 3190 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 0.047 saniye - Sorgu: 24 - Ortalama: 0.00194 saniye