Ehya - 03.10.2005 17:01
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(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:
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?
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ı
??
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.
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..
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..
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