entmake fonksiyonu-6

;;;Fonksiyon tanımı:
(defun text_ekle (_yazi _nokta _yuk _aci _yaslama _layer / _g72 _g73)
(setq CTEXTSTYLE (getvar "TEXTSTYLE"))
(cond ((= _yaslama "MR") (setq _g73 2 _g72 2))
((= _yaslama "ML") (setq _g73 2 _g72 0))
((= _yaslama "BC") (setq _g73 1 _g72 1))
((= _yaslama "TC") (setq _g73 3 _g72 1))
((= _yaslama "MC") (setq _g73 2 _g72 1))
((= _yaslama "C") (setq _g73 0 _g72 1))
((= _yaslama "BR") (setq _g73 1 _g72 2))
((= _yaslama "BL") (setq _g73 1 _g72 0))
((= _yaslama "TL") (setq _g73 3 _g72 0))
((= _yaslama "TR") (setq _g73 3 _g72 2))
(T (setq _g73 0 _g72 0))
) ;_ end of cond
(entmake (list (cons 0 "TEXT")
(cons 1 _yazi)
(cons 7 CTEXTSTYLE)
(cons 8 _layer)
(cons 10 _nokta)
(cons 11 _nokta)
(cons 40 _yuk)
(cons 50 (/ (* _aci PI) 180.0))
(cons 72 _g72)
(cons 73 _g73)
)
)
) ;_text_ekle
;;; Kullanımı :
(text_ekle "Derya" (list 10 20) 2.5 45.0 "BC" "deneme")
;;; Açıklama :
Yukarıdaki komut ; (10,20) noktasına, yuksekligi 2.5, açısı 45 birim olan 'Bottom Center' noktasına yaslamalı (Justified), 'deneme' layer'inda, 'Derya' yazısını yazar.

Yazar:
İçerik:
Tag: