Bölüm indeksi
Makaleler Sık Sorulan Sorular Download
Kütüphane
Elektrik Mimari Genel İ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 Ucuna. Çizgi Çizip Ucu. Yay Çizip Ucuna. Mouse ile Açıyı. Katı cismin üze. Seçilen rakamla. Topla.lsp Yazı Hizalayan . İki nokta arası. Çizgi uzunluğun. Kanalizasyon li. Spiral çizen lisp ... Menüler Fontlar FreeMUST Eğitim Dökümanları Genel Kategori Çizim Programları IES Dökümanları AutoCADAutoCAD 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
Ekrana Tarih Bilgilerini Yazan Lisp
Tweet
Ekrana Tarih Bilgilerini Yazan Lisp, Ekranda bir menü açarak tarih bilgilerini gösterir
admin - 02.11.2004 19:38
Yazar: cizimokulu.comadmin - 02.11.2004 19:38
İç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
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
"\n\nAy" " " ay
"\n\nGün" " " g_adi
"\n\nSaat" " " 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
"\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?
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...
Çİ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 .....