Z yönünde kopyalama yapan lisp


Sibay - 15.09.2005 21:39
Yazar: ehya
İçerik:

(Kontrol panelinizde görünür)
Z yönünde kopyalama yapan lisp

Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz

Kod:

(defun c:zc ()
      (princ "
Nesneleri seçiniz:")
      (command "select" "auto" pause)
      (setq zc_sec (ssget "p"))
      (if (= zc_mes nil)
(setq zc_mes "100")
      )
      (setq zc_m (getstring (strcat "
Mesafe <" zc_mes ">:")))
      (if (/= zc_m "")
(setq zc_mes zc_m)
      )
      (setq zc_birleştir (strcat "@0,0," zc_mes))
      (command "copy" zc_sec "" "0,0" zc_birleştir)
  (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 :
nzka   18.04.2009 16:36 #10954  

emeğine sağlık gerçekten yararlı bir yapıt

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