Reklam

* E Posta Adresiniz:
* Kodu Girin:

Artan sırayla numara değiştiren lisp

nodegis lisp
Sibay - 03.10.2005 21:01
Yazar: Ehya
İçerik:

(Kontrol panelinizde görünür)
Bu lisp ardışık olarak (örneğin arrayla) oluşturduğunuz rakamları sırayla edit yapar.

Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz

Kod:

(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.
Yorumlar :
lazymelisa   26.12.2010 10: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 23:25 #13005  

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

tkavruk   07.09.2009 13:51 #11708  

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

onderylmz   28.05.2009 16: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 16:33 #11199  

nasıl indireceğim ??

hakan71   14.05.2009 17: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 10:25 #10707  

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

KÖPRÜ-YOL   12.03.2009 23: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   07.03.2009 00:49 #10643  

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

mehmetgrafik   04.08.2008 18: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 14:17 #7766  

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

lihannes   02.11.2007 12:39 #6234  

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

gurbetci178   04.09.2007 00:15 #5302  

sağolasın

fluxytu   12.05.2007 14: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 12: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   11.02.2007 01:49 #2469  

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

hizze   16.01.2007 12:12 #1850  

lisp nerde

Copyright © 2004-2018 | Tüm Hakları Saklıdır | 1356 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam