Çizim Okulu
  • Forum
  • Download
  • Galeri
  • Video
  • Kariyer
  • AboneOl
  • Üye Ol veya Giriş Yap

Çizim Okulu Kariyer

↑ Grab this Headline Animator

iş ilanları aboneliği

E-posta adresiniz:

Destekleyen FeedBurner

cizimokulu bülten aboneliği
*  E-posta adresiniz:
 


*  Güvenlik kodu:
 
Bölüm indeksi
Makaleler
Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 Boyut Dersleri
Proje Dökümanları
Çizimler
Mimari Çizimler
Elektrik
Doğalgaz
Harita Çizimleri
Tesisat
Ferforje
Makine
3 Boyut
3ds Max
ArchiCAD
Solidworks
Diğer Çizimler
Lispler
Ekrana Tarih Bi.
Excel Tablosunu.
Yer Belirtici O.
Yer Belirtici Y.
Yay Çizip Ucun.
Çizgi Çizip U.
Yay Çizip Ucun.
Mouse ile Açı.
Katı cismin ü.
Seçilen rakaml.
Seçilen Arc ve.
Yazı Hizalayan.
İki nokta aras.
Çizgi uzunluğ.
Kanalizasyon li.
Spiral çizen lisp
...
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Sürümler
Menüler
DWF Dosyaları
Programlama
AutoCAD Püfleri
Eğitim
AutoCAD Eğitimi
Karma 3 Boyut Dersleri
Adım Adım AutoCAD Eğitimi
01.Bölüm
02.Bölüm
03.Bölüm
04.Bölüm
05.Bölüm
06.Bölüm
07.Bölüm
08.Bölüm
09.Bölüm
10.Bölüm
11.Bölüm
12.Bölüm
Uygulamalar
Adım Adım 3 Boyut Eğitimi
Kariyer
3ds Max
Attribute lar
AutoCAD Genel
  • AutoCAD
  • AutoLISP
  • AutoCAD Programlama
  • AutoCAD Püfleri-1
  • AutoCAD Püfleri-2
  • AutoCAD Komutları
  • AutoCAD Terimler Sözl.
AutoCAD Eğitimi
  • AutoCAD Eğitim Videoları
  • AutoCAD Eğitimi
  • AutoCAD Dersleri
  • AutoCAD Eğitim Notları
  • AutoCAD 3 Boyut Dersleri
3ds Max
  • 3ds Max Nedir?
  • 3ds Max Model ve Çizim
Özel Yazılımlar
  • aLd Fonksiyonu
  • TCad Metraj
  • FacadeCAD
  • Cephe Kot
  • HQ Library
  • FreeMUST
  • ALS/Pasdoc.A
  • Excele Tablo Aktaran Lisp
  • Nokta Koordinat Tablosu
  • Plana İç Ölçü Verme
  • Toplam Alanı Yazan Lisp
  • Alan ve Çevre Yazan Lisp
  • Koordinat, Alan ve Çevre Tablo Halinde Yazma
  • AutoCAD'de Nokta Dökümü
  • Hava Kanalı Metraj Fonksiyonu
  • Boru Metrajı Fonksiyonu
  • OptiCAD
  • Özel Çizgi Tipi Oluşturmak
  • AutoCAD te Koni Açılımı Nasıl Yapılır?
  • PolyLine & Point Objelerinden Aplikasyon Çizelgesi
  • Z değerini sıfırlama
  • AutoCAD te Polyline üzerine uzunluk yazdırma
  • Sıralı numaralandırma
  • Yazı içindeki sayıları toplama
  • Karmaşık Path ile Loft Uygulaması
  • Ölçekli Türk Bayrağı çizen lisp
Program Ekle
Ziyaretçi: 474, Üye: 6
ali47kaya, at1512, huseyinkus, kbrkara, ranayildirim-01, safiya
Detaylar »
Download > Lispler > Ekrana Tarih Bilgilerini Yazan Lisp

Ekrana Tarih Bilgilerini Yazan Lisp

Ekrana Tarih Bilgilerini Yazan Lisp, Ekranda bir menü açarak tarih bilgilerini gösterir
admin - 02.11.2004 18:38
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
                 "nnAy" "           " ay
                 "nnGün"  "         " g_adi
                 "nnSaat"  "         " 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?

Yazar: cizimokulu.com
İçerik: LSP (AutoLISP) formatında lisp yazılım kodu
Tag: ekrana tarih bilgilerini yazan lisp, autolisp, örnek lisp, lsp file, autolisp file

Download sayısı: 2577, Boyut: 0.002 mb
Şifre Nedir?  |  Nasıl Açılır?  |  Hata Bildir
Yorumlar :
mehmethanifi   27.04.2008 11: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 09:16 #7825  

teşekkür ederim

beyzaa   22.11.2007 13:48 #6483  

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

ÇİLEM   12.07.2007 12: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 10: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-2020 | Tüm Hakları Saklıdır | 3543 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 0.066 saniye - Sorgu: 27 - Ortalama: 0.00244 saniye