Forumdan
99 kategoride
17 binden fazla konu başlatıldı
bu konulara yaklaşık 90 bin cevap verildi
tüm bunlar yaklaşık 109 milyon kez görüntülendi
Bölüm indeksi
Makaleler Sık Sorulan Sorular Download
İzle Öğren Eğitim Videoları
3ds Max Videoları AutoCAD Kursu Ders Videoları AutoCAD Kursu 2 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 Revit Family 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
2D Polyline 'ı 3D... 3d polyline'ı 2d... 3D Yay çizen lisp... Artan sırayla num... Autocad içinden e... Civata ve Somun Ç... Çizgileri toplayı...
Çizime Tarih Yaza... Daire ortasına ak... Duvar çizen lisp... Harita ve pafta k... İşaretlenen 2 nok... Merdiven çizen lisp Nokta koordinatla... Noktanın koordina... Parabol çizen lisp ... 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 larAutoCAD 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ı
Demir (Donatı) Metraj LISP'i
Ç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
Benzer Sayfalar- Ekrana Tarih Bilgilerini Yazan Lisp (59.361)
- Excel Tablosunu Çizime Aktaran Lisp (100.021)
- Sırasıyla numara yazan lisp (91.684)
- Sıralı aks harfi yazan lisp (aky.lsp) (73.855)
- Noktanın koordinatlarını yazan lisp (82.188)
- Nokta koordinatlarını sayfaya yazan lisp (46.172)
- Mouse ile Açıyı Belirleyerek Yazı Yazan Lisp (59.351)
- Seçilen nesnelerin alanlarını toplayıp yazan lisp (64.888)
- Çizgi uzunluğunu çizginin üstüne yazan lisp (92.615)
- 3D Solid Objelerin Ağırlığını Hesaplayıp Yazan Lisp (19.836)
