Reklam

* E Posta Adresiniz:
* Kodu Girin:

Rakam sıralayan lisp

Num lispi
Sibay - 01.10.2005 22:04
Yazar: MSucullu
İçerik:

(Kontrol panelinizde görünür)
Rakam sıralamak için "Num1" yazınız.

Lisple ilgili forum linki İleti #730

Bu lispi kodlayan MSucullu 'ya teşekkürler.

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

Kod:

(defun C:Num ()

(setq yazıyüksekliği (getdist (strcat "
Yazi Yuksekligini Giriniz : ")))
(setq başsayı (getdist (strcat "
Başlangıç sayısını yazınız : ")))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))

(while (> 10000)
(setq başsayı (+ 1 başsayı))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))
)
)
(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 :
tlgylmz   15.11.2013 12:42 #15208  

LİSPİ ALAMIYORUM NASIL KOPYALAMA YAPICAM ??

tlgylmz   15.11.2013 12:38 #15207  

LİSPİ ALAMIYORUM NASIL KOPYALAMA YAPICAM ??

gmzylmz06   25.10.2013 15:22 #15182  

Ben bu lispi nasıl alıcam anlamadım arkadaşlar...

tunaturgut1907   22.10.2010 12:20 #13413  

ellerine sağlık

bugraolcer   19.03.2007 12:42 #3446  

MERHABA ÇOK TEŞEKKÜR LISP İÇİN ACABA BU LISPIN YAZI FORMATINI NASIL DEĞİŞTİRECEĞİZ MESELA BEN 06.100.001,06.100.002,...... DİYE ARTIRMAK İSTİYORUM NNUMARALANDIRMAYI MAILIM bugraolcer@gmail.com BURDAN VEYA MAILDEN YARDIMCI OLURSANIZ SEVINIRIM

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