Sırasıyla numara yazan lisp

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.

Yazar:
İçerik:
Tag:

Yorumlar :

upinarbasi 25.01.2023 16:01 #16135

burda Detay-1, Detay-2 şeklinde artarak gitmesi için ne yapabiliriz.

gokmene19 23.12.2022 17:50 #16133

neden hep 0 basıyor?

yurtsan 16.09.2014 08: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 09:27 #15267

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

meyildiz 20.12.2013 13:21 #15249

ellerine sağlık

varikazan 14.11.2013 17:37 #15204

dddf

sinandarici 22.07.2013 11: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 16:26 #15125

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

balım 17.04.2013 14:06 #15075

ben neden kopyalayamiyorum kodlari

maximillien 29.08.2012 09:40 #14748

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

cakmanus 04.06.2012 16:03 #14667

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

cakmanus 04.06.2012 15:59 #14666

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

emrahtaramis 28.11.2011 13: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 08:22 #13414

çok teşekkürler

nihat41 19.08.2009 08: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 10:00 #11475

calismiyor diyen arkadaslar text ayarlarinizi kontrol ediniz...

command fonksiyonu sizin yazi ayarlarinizla ortusmuyor olabilir..

kolay gelsin...

fibula 05.12.2008 20:56 #9728

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

KÖPRÜ-YOL 19.11.2008 16: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 16:20 #9598

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

ty56 19.04.2008 16:54 #7955

lisp çalışmıyor yorumyok:)

betbet 18.04.2008 15:28 #7941

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

oguzkilic 01.04.2008 10:11 #7765

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

c_gemicioglu 14.06.2007 15:17 #4620

HEP 0 YAZİY BU

Resul_K 10.05.2007 12: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.