Warning: file_get_contents(http://mikiurl.com/api/?url=http://www.autocadhocasi.com/forum/topic/autocad-liste-fonksiyonlari-3-4) [function.file-get-contents]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home/autocadh/public_html/forum/bb-plugins/social-it/functions.php on line 844
;entmake ile ARC cizen foksiyon
(defun arc_ciz(_merkez _ycap _to _tf _lyr)
(entmake (list (cons 0 “ARC”)
(cons 8 _lyr)
(cons 10 _merkez)
(cons 40 _ycap)
(cons 50 (angle _merkez _tf))
(cons 51 (angle _merkez _to))
) )
);_arc_ciz
;Kullanımı :
(setq m (list 10 20 0) ;merkez noktasi
r 14.14 ; yaricap
bas (list 20 30) ;başlangıç noktası
son (list 24.14 20) ; bitiş noktası
)
(arc_ciz m r bas son “deneme”)
;Sonuc :
;merkezi (10,20) baslangici (20,30) bitisi (24.14,20) noktalari olan 14.14 yaricapinda bir ARC’ı “deneme” isimli layer’da çizer.
