* E Posta Adresiniz:
* Kodu Girin:

Sırasıyla numara yazan lisp

noyaz lisp
admin - 03.10.2005 21:05
Yazar:
İçerik:

(Kontrol panelinizde görünür)
Bu lisp sizden yazı yüksekliği ve hangi numaradan başlamak istediğinizi sorarak tıkladığınız her noktaya ardışık olarak numara yazmanızı sağlar. Yatay veya düşey toblolarda rakamların yerleştirileceği yerlere array komutu ile referans çizgiler oluşturmak işinizi kolaylaştıracaktır.

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

Kod:

(defun C:Noyaz ()

(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 !")
(PRINC " Lispi çalıştırmak için komut satırına 'Noyaz' yazınız ")

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 :
yurtsan   16.09.2014 12:54 #15422  

acil kot verme lipsi istiyom ama kodu ben belirlicem ondan sonra yuksekliğe gore artıcak projelerimde kullancam yardım acillll.

tangry34   04.01.2014 12:27 #15267  

elinize sağlık güzel olmuş.

meyildiz   20.12.2013 16:21 #15249  

ellerine sağlık

varikazan   14.11.2013 20:37 #15204  

dddf

sinandarici   22.07.2013 15:40 #15132  

Merhabalar;
Bir sorum olacak. Acaba bu sayıları aynı anda daire içine alarak yazan bir lisp var mıdır? Yada yazılabilir mi?

grimgod   08.07.2013 20:26 #15125  

neden hep sıfır yazıyo ?
hangi ayarı yapmam lazım ?
teşekkürler

balım   17.04.2013 18:06 #15075  

ben neden kopyalayamiyorum kodlari

maximillien   29.08.2012 13:40 #14748  

aynen bu kodlama P1 P2 ... gibi giderse hiç değilse demir pozlaması yapabiliriz

cakmanus   04.06.2012 20:03 #14667  

bu kodlamayı mesala A11 A12 A13 gibi yapabilrseniz çok memmun olurum.

cakmanus   04.06.2012 19:59 #14666  

Güzel bir çalışma. ellerinize sağlık . sorunsuz

emrahtaramis   28.11.2011 16:30 #14392  

lisp güzel çalışıyor peki admin şöyle sadece rakam şeklnde değilde yazılan rakamı şöyle daire içine falan alsa daha iyi olur sanırım. yani o konuda da yardımcı olursanız sevinirim

tunaturgut1907   22.10.2010 12:22 #13414  

çok teşekkürler

nihat41   19.08.2009 12:26 #11635  

lisp i calıstırdıkdan sonra yazı yukseklıgı ve baslangıc sayısını verıyorum,ilk yazıyı koyması gereken yere tıklıyorum ama hep sıfır rakamını koyuyor ne kadar tıklarsan o kaadar sıfır oluyo ?

miyatu   19.07.2009 14:00 #11475  

calismiyor diyen arkadaslar text ayarlarinizi kontrol ediniz...

command fonksiyonu sizin yazi ayarlarinizla ortusmuyor olabilir..

kolay gelsin...

fibula   05.12.2008 23:56 #9728  

lisp sorunusuz çalışıyor.çok teşekkürler .

KÖPRÜ-YOL   19.11.2008 19:21 #9599  

"At sahibine göre kişner"..Bu lafım çalışmıyor diyen arkadaşlaradır..Kimse yapamıyorum demez olmuyor der..

KÖPRÜ-YOL   19.11.2008 19:20 #9598  

Üstad sorunsuz çalışıyor..Metraja sonradan ilave için biçilmiş kaftan..Ellerin dert görmesin..

ty56   19.04.2008 20:54 #7955  

lisp çalışmıyor yorumyok

betbet   18.04.2008 19:28 #7941  

neden rakamlar hep "0" oluyor yardımcı olur musunuz?

oguzkilic   01.04.2008 14:11 #7765  

güzel çalışıyor teşekkür ederim.

c_gemicioglu   14.06.2007 19:17 #4620  

HEP 0 YAZİY BU

Resul_K   10.05.2007 16:41 #4221  

bu lisp çalışmıyomu yoksa banamı öyle geliyo.yeni bir lisp dosyası yaratıp support klasörünün içindeki yere attım ama çalıştıramadım.

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