> 1 <
| Yazar | İleti |
SENDUR
[8] Yüzbaşı
219 ileti |
#38874 11.07.2008 15:26 GMT |
|
arkadaşlar malzeme listesi yaparken numara sırasını sıra ile yazmam gerekeiyor bazen
1,2,3,4,5,6 vb gibi bir rakamı array ile çoğaltıyorum sonra tek tek düzeltmek istemiyorum bunu yapan bir lisp mevcut mu acaba 
|
|
|
ehya
[70] Editör
1974 ileti |
#38875 11.07.2008 15:37 GMT |
|
Sendur bi de sitenin müdavimlerinden olacaksın.. Ama siteyi gezdiğin yok..
Bu istediğin lispi siteye 3 yıl önce eklemiştim.. ama pek gören yok anlaşılan Aşağıdaki linkten kodlarını alabilirsin. Linkleri görebilmek için ÜYE olmalısınız.
|
|
|
SENDUR
[8] Yüzbaşı
219 ileti |
#38877 11.07.2008 15:48 GMT |
|
kendimden utanıyorum
 sogol ehya
|
|
|
carbine
[5] Üsteğmen
48 ileti |
#39225 21.07.2008 10:05 GMT |
|
acaba ben bu lispte ilk 10 sayıya kadar 01,02,03,04 gibi gitsin istesem ne olur?
|
|
|
nuri_14
[5] Üsteğmen
59 ileti |
#39227 21.07.2008 10:21 GMT |
|
İlave bilgi:Express menü/text/automatic text number'dan da yapılabilir.Oradaki seçenekleri de denemenizi tavsiye ederim.
|
|
|
carbine
[5] Üsteğmen
48 ileti |
#39230 21.07.2008 11:14 GMT |
|
Güzel bir özellikmiş teşşekkür ederiz normal sıralama için oldukça uygun ayrıca istedgimiz şekilde arttırabiliyoruz 1er 10 ar x ve y koordinatlarına görede sıralama yapabiliyoruz.
Ancak istedigimi yapamadım yine lisp lazım heralde ehyadan umutluyum 
|
|
Harbi65
[10] Binbaşı
464 ileti |
#39233 21.07.2008 11:36 GMT |
Alıntı İstediğin bu galiba Kod: (defun c:NDEG ()
(setq tc_num (getint "\nBirinci Numara:")) (if (= tc_num nil) (progn) (progn (setvar "errno" 0) (setq tc_num_uy tc_num) (setq tc_ent nil) (while (= tc_ent nil) (if (> 10 tc_num_uy) (progn (setq tc_numara (strcat "0" (rtos tc_num_uy))) ) (progn (setq tc_numara tc_num_uy) ) ) (initget "C") (setq tc_ent (entsel "\nYazı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 "\nSeç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_numara) (setq tc_num_uy (1+ tc_num_uy)) (setq tc_ent nil) ) (progn (command "change" tc_ent "" "" "" "" "" tc_numara) (setq tc_num_uy (1+ tc_num_uy)) (setq tc_ent nil) ) ) ) ) ) ) ) ) ) (princ) ) (princ "\nÇalıştırmak için [NDEG]")
_________________________________________________________________________________________ |
|
|
carbine
[5] Üsteğmen
48 ileti |
#39234 21.07.2008 11:45 GMT |
|
Harbi65 sanırım ilk 10 rakamı yazamıyor yada ben yapamadım :S
01 desemde 1 desemde 10 dan başlıyor rakamları sıralamaya
|
|
|
Harbi65
[10] Binbaşı
464 ileti |
#39235 21.07.2008 11:48 GMT |
Alıntı Denedim istediğin gibi çalışıyor...
_________________________________________________________________________________________ |
|
|
carbine
[5] Üsteğmen
48 ileti |
#39237 21.07.2008 11:52 GMT |
|
Tamam tekrar kopyaladım şu anda bir sorun yok tam istedigim gibi oluyor ellerine saglık.
(az once kopyalarken bir _ işaretini silince tekrar yapim derken - işaretini koymuşum bundan dolayı sorun olmuş ) teşekkür ederim tekrardan
|
> 1 <