Reklam

* E Posta Adresiniz:
* Kodu Girin:

Ekrana Tarih Bilgilerini Yazan Lisp

Ekrana Tarih Bilgilerini Yazan Lisp, Ekranda bir menü açarak tarih bilgilerini gösterir
admin - 02.11.2004 19:38
Yazar: cizimokulu.com
İçerik: LSP (AutoLISP) formatında lisp yazılım kodu

(Kontrol panelinizde görünür)
Sizlere çalismalarinizda yardimci olacak ve Autolisp hakkinda fikir verecek örnek dosyadır;

Bu lisp AutoCAD ekraninda tarih bilgilerini veren bir ileti açar.



1) Dosyayı indirin ve zip dosyasini açın (extract edin).
2) Zip'in içinden çıkan Lisp dosyasını autocad dizini altına (yeri değişmeyecek başka bir dizin de olabilir) kopyalayın.
3) Lisp dosyasini çalıştırmak için Autocad command satırına "appload veya sadece ap" yazın ve açilan pencereden lsp dosyasini bulup (kopyaladiginiz yerde) load'ı klikleyin.
4) Şimdi command satirina "tarih" yazın. Ekranda tarih bilgilerini gösteren bir ileti açılacaktır...

Dosyayı not defterinde açarak inceleyebilir, kurulum bilgilerini okuyabilirsiniz.

tag: ekranda tarih bilgilerini gosteren lisp, autolisp, lsp dosyasi, ekranda menu çıkarma lisp, autolisp file

Kod:

(defun c:tarih (/ oku oku1 okux gun1 ay_adi yil cikart x2 x3 x4 oku2 saat1
       saat2 saat2_1 saat2_2 saat2_3 dakika saniye tarih saat_ilk
       bjt g1 g2 g3 g4 g5 g6 g7 gun g_adi)
  (SETQ OKU (GETVAR "CDATE")
     OKU1 (FIX OKU)
     OKUx (ITOA OKU1)   
     GUN1 (SUBSTR OKUx 7 2)
     ay_adi (substr OKUx 5 2)
     YIL (substr OKUx 1 4))
(cond
((= ay_adi "01") (setq ay "OCAK"))
((= ay_adi "02") (setq ay "SUBAT"))
((= ay_adi "03") (setq ay "MART"))
((= ay_adi "04") (setq ay "Nisan"))
((= ay_adi "05") (setq ay "MAYIS"))
((= ay_adi "06") (setq ay "Haziran"))
((= ay_adi "07") (setq ay "Temmuz"))
((= ay_adi "08") (setq ay "AGUSTOS"))
((= ay_adi "09") (setq ay "EYLUL"))
((= ay_adi "10") (setq ay "Ekim"))
((= ay_adi "11") (setq ay "KASIM"))
((= ay_adi "12") (setq ay "ARALIK"))
( t (setq ay "HATA OLUŞTU !"))
)
  (setq cikart (atoi okux))
  (SETQ x2 (- oku CIKART)
     x3 (+ (* x2 1000000) 1000000)
     x4 (fix x3)
     oku2 (itoa x4))
  (setq saat1 (substr oku2 2 1)
saat2 (substr oku2 3 1)
saat2_1 (atoi saat2)
;;;        saat2_2 (+ saat2_1 1)
        saat2_3 (itoa saat2_1)
     dakika (substr oku2 4 2)
     saniye (substr oku2 6 2))
  (setq tarih2 (strcat gun1 "." ay_adi "." YIL))
  (if (= saat1 "0")
      (setq saat_ilk "")
      (setq saat_ilk saat1)
  )
    (setq bjt (strcat saat_ilk saat2_3 ":" dakika ":" saniye))
  (setq g1 "Pazar")
  (setq g2 "Pazartesi")
  (setq g3 "Salı")
  (setq g4 "Çarşamba")
  (setq g5 "Perşembe")
  (setq g6 "Cuma")
  (setq g7 "Cumartesi")
  (setq gun (atoi gun1))
  (cond
  ((= gun 01) (setq g_adi g4))
  ((= gun 02) (setq g_adi g2))
  ((= gun 03) (setq g_adi g3))
  ((= gun 04) (setq g_adi g4))
  ((= gun 05) (setq g_adi g5))
  ((= gun 06) (setq g_adi g6))
  ((= gun 07) (setq g_adi g7))
  ((= gun 08) (setq g_adi g1))
  ((= gun 09) (setq g_adi g2))
  ((= gun 10) (setq g_adi g3))
  ((= gun 11) (setq g_adi g4))
  ((= gun 12) (setq g_adi g5))
  ((= gun 13) (setq g_adi g6))
  ((= gun 14) (setq g_adi g7))
  ((= gun 15) (setq g_adi g4))
  ((= gun 16) (setq g_adi g5))
  ((= gun 17) (setq g_adi g6))
  ((= gun 18) (setq g_adi g7))
  ((= gun 19) (setq g_adi g1))
  ((= gun 20) (setq g_adi g2))
  ((= gun 21) (setq g_adi g3))
  ((= gun 22) (setq g_adi g4))
  ((= gun 23) (setq g_adi g5))
  ((= gun 24) (setq g_adi g6))
  ((= gun 25) (setq g_adi g7))
  ((= gun 26) (setq g_adi g1))
  ((= gun 27) (setq g_adi g2))
  ((= gun 28) (setq g_adi g3))
  ((= gun 29) (setq g_adi g4))
  ((= gun 30) (setq g_adi g5))
;;;  ((= gun 31) (setq g_adi g6))
  ( t (setq g_adi "Gün adı Yanlış"))
  )
  (alert (strcat "Tarih""       " tarih2
                 "\n\nAy" "           " ay
                 "\n\nGün"  "         " g_adi
                 "\n\nSaat"  "         " bjt
)
  )
  (princ)
)




Lisp'in ne olduğunu bilmiyorsanız bu sayfayı okuyun: AutoLisp Nedir?

Lisplerin nasıl yükleneceğini bilmiyorsanız bu sayfayı okuyun: Nasıl Yüklenir?
Download sayısı: 2513, Boyut: 0.002 mb
Yorumlar :
mehmethanifi   27.04.2008 12:15 #8025  

autocad command satırına ap enter deyip browse menüsünden lipsin kayıtlı olduğum yeri bul ve load dersen yüklemiş olursun...

sdemircan   07.04.2008 10:16 #7825  

teşekkür ederim

beyzaa   22.11.2007 14:48 #6483  

autocadin support dosyasına yüklüyoruz..

ÇİLEM   12.07.2007 13:59 #4913  

merhabalar

sıtenızde bulunan bırcok lsp den faydalandım

tesekkurler

BETONARME KİRİŞ detayı cizen lisp iniz varmı

ayhan53ismail   06.02.2007 11:20 #2287  

bu lispleri autocadin neresine atıyorduk onuda derseniz iyi olur öyle vida çizimi lispi atmışdım amam şimdi nasıl olduğunu bulamıyorum .....

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