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
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 Eğitimi
3ds Max
Ö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ı
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
- Duvar-Lento-Kapı-Pencere Metraj Programı
Ekrana Tarih Bilgilerini Yazan Lisp
Ekrana Tarih Bilgilerini Yazan Lisp, Ekranda bir menü açarak tarih bilgilerini gösterir
admin - 02.11.2004 16:38
admin - 02.11.2004 16: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
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?
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)
)
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
Yorumlar :
mehmethanifi 27.04.2008 08: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 06:16 #7825
teşekkür ederim
beyzaa 22.11.2007 11:48 #6483
autocadin support dosyasına yüklüyoruz..
ÇİLEM 12.07.2007 09: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 08: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 .....