- 03.10.2005 17:05
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(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:
upinarbasi 25.01.2023 16:01 #16135
burda Detay-1, Detay-2 şeklinde artarak gitmesi için ne yapabiliriz.
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.
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?
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.
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
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...
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..
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.