Artan sırayla numara değiştiren lisp

(defun c:nodegis ()
(setq tc_num (getint "
Birinci Numara:"))
(if (= tc_num nil)
(progn)
(progn
(setvar "errno" 0)
(setq tc_num_uy tc_num)
(setq tc_ent nil)
(while (= tc_ent nil)
(initget "C")
(setq tc_ent (entsel "
Yazıyı Seç / Cıkış:"))
(if (= tc_ent nil)
(progn
(if (= (getvar "errno") 0)
(progn
(setq tc_ent nil)
(setvar "errno" 0)
)
)
(if (= (getvar "errno") 52)
(progn
(setq tc_ent t)
(setvar "errno" 0)
)
)
)
(progn
(setq tc_tan (cdr (assoc 0 (entget (car tc_ent)))))
(if (/= tc_tan "TEXT")
(progn
(princ "
Seçilen nesne yazı değil...")
(setq tc_ent nil)
)
(progn
(setq tc_stil (cdr (assoc 7 (entget (car tc_ent)))))
(setq tc_stil_yuk
(cdr (assoc 40 (tblsearch "style" tc_stil))
)
)
(if (= tc_stil_yuk 0.0)
(progn
(command "change" tc_ent "" "" "" "" "" "" tc_num_uy)
(setq tc_num_uy (1+ tc_num_uy))
(setq tc_ent nil)
)
(progn
(command "change" tc_ent "" ""
"" "" "" tc_num_uy
)
(setq tc_num_uy (1+ tc_num_uy))
(setq tc_ent nil)
)
)
)
)
)
)
)
)
)
(princ)
)
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(PRINC " Lispi çalıştırmak için komut satırına 'Nodegis' 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: Ehya
İçerik:
Tag:

Yorumlar :

lazymelisa 26.12.2010 07:21 #13645

ÇOK GÜZEL AMA BİŞEY EKSİK BEN ATAŞMAN NUMARASI VERİYORUM T-3509 DİYE VE BUNU T-3510 T-3511 DİYE SIRALAMASINI İSTİYORUM BU NASIL OLUCAK?

katmerius 07.07.2010 19:25 #13005

çalıştıramadım.
yada çalıştıysa ben kullanamadım.
yardım?

tkavruk 07.09.2009 09:51 #11708

bu lipsi bir metnin devamını değiştirecek şekilde düzenleyebilirmiyiz?
Örnek: dd1, dd2,.... şeklinde yazdirabilirmiyiz?

onderylmz 28.05.2009 12:42 #11200

paylaşmışsınız madem. indirebilir hale getirseniz de teknik arkadaşlarımız daha kolay faydalanabilse daha hoş olmaz mı
??

onderylmz 28.05.2009 12:33 #11199

nasıl indireceğim ??

hakan71 14.05.2009 13:19 #11110

merhaba arkadaşlar bu lispi çalıştıran var mı. ben yazdım ama çalıştıramadım. birde ben bakarak tekrar yazdım. direk lisp dosyasını alabiliyomuyuz. bende kiriş lispi yazıyorum şu anda bitme aşamasında bitince buraya bırakırım.

blabla 17.03.2009 07:25 #10707

teşekkürler lips çok iyi...

KÖPRÜ-YOL 12.03.2009 20:50 #10684

Faydalı bir lisp Aks no yada klasik metraj yapanlar için biçilmiş kaftan..Paylaşım için teşekkürler + rep..

prf 06.03.2009 21:49 #10643

Tsk...............

mehmetgrafik 04.08.2008 14:42 #8810

slmlar ben bu lispi kullanırken bi şey aklıma geldi
örn :
benim kotum 66.90 ama değiştirmem degeken kot nosu 320.00
bunu arasında 253.1 gibi bi fark var diğer kotları işaretlediğimde bu farkı koruyan yani ekleme yapan bi lisp varmı varsa çok iyi olur ihtiyacım var

oguzkilic 01.04.2008 10:17 #7766

lisp'i merdiven yada aks sayısı verirken kullanmakta gerçekten çok faydalı emeğinize sağlık.

lihannes 02.11.2007 09:39 #6234

teşekkürler..çok kullanışlı...benim de ricam slash'lı rakamlar yazabilmek...yardımcı olursanız çok sevinirim..

gurbetci178 03.09.2007 20:15 #5302

sağolasın

fluxytu 12.05.2007 10:29 #4248

dostum eline saglik bide bugra arkadasin dedigi gibi bisey oluyosa yani aralara nokta tire veya herhangi bir ayrac koyarakta olursa eger gercekten cok harika olur. Tekrar eline saglik tesekkur ederim

bugraolcer 19.03.2007 09:45 #3447

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

ehya 10.02.2007 22:49 #2469

eee üstte görmüyormusun????

hizze 16.01.2007 09:12 #1850

lisp nerde