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
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
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
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
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
Ö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ı
Çizime Tarih Yazan Lisp
Bu lisp kodları çizim alanına tarih bilgisini yazar.
Travaci - 15.01.2014 22:15
Travaci - 15.01.2014 22:15
Bu lisp AutoCAD çizim alanına tarih bilgisini yazar.
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çılan pencereden lsp dosyasını bulup (kopyaladığınız yerde) load'ı klikleyin.
4) Şimdi command satırına "tarih2" yazın. Çizimde var olan bir text objesine tıklayın veya boş bir enter yapıp ekranda bir noktaya tıklayın. Tarih bilgisi yazılacaktır.
Not: Text boyutunu textsize ile deÄŸiÅŸtirebilirsiniz.
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?
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çılan pencereden lsp dosyasını bulup (kopyaladığınız yerde) load'ı klikleyin.
4) Şimdi command satırına "tarih2" yazın. Çizimde var olan bir text objesine tıklayın veya boş bir enter yapıp ekranda bir noktaya tıklayın. Tarih bilgisi yazılacaktır.
Not: Text boyutunu textsize ile deÄŸiÅŸtirebilirsiniz.
Kod:
(defun c:tarih2 (/ ts dt date ss pn) (vl-load-com)
(setq ts (getvar "textsize") dt (rtos (getvar "cdate") 2 0)
date (strcat (substr dt 7 2) "." (substr dt 5 2) "." (substr dt 1 4)))
(princ "nTarih girilcek yazıyı seçin yada yazdırmak için boş geçin: ")
(if (setq ss (ssget ":s" (list (cons 0 "*text"))))
(vla-put-Textstring (vlax-ename->vla-object (ssname ss 0)) date)
(if (setq pn (getpoint "\nYazı yerleştirilecek nokta: "))
(entmake (list (cons 0 "text") (cons 10 pn) (cons 11 pn)
(cons 1 date) (cons 40 ts) (cons 72 1) (cons 73 1)))
(princ "\nProgram sonlandırıldı. ! "))) (prin1)
) (terpri) (write-line "Hazırlayan: Erkan Travaci")
(setq ts (getvar "textsize") dt (rtos (getvar "cdate") 2 0)
date (strcat (substr dt 7 2) "." (substr dt 5 2) "." (substr dt 1 4)))
(princ "nTarih girilcek yazıyı seçin yada yazdırmak için boş geçin: ")
(if (setq ss (ssget ":s" (list (cons 0 "*text"))))
(vla-put-Textstring (vlax-ename->vla-object (ssname ss 0)) date)
(if (setq pn (getpoint "\nYazı yerleştirilecek nokta: "))
(entmake (list (cons 0 "text") (cons 10 pn) (cons 11 pn)
(cons 1 date) (cons 40 ts) (cons 72 1) (cons 73 1)))
(princ "\nProgram sonlandırıldı. ! "))) (prin1)
) (terpri) (write-line "Hazırlayan: Erkan Travaci")
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: Travaci
İçerik: LSP (AutoLISP) formatında lisp yazılım kodu
Tag: çizim alanına tarih bilgilerini yazan lisp, autolisp, örnek lisp, lsp file, autolisp file