Ç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
Copyright © 2004-2022 SQL: 0.069 saniye - Sorgu: 39 - Ortalama: 0.00178 saniye