19.04.2012 08:05    

Donatı projesi yaparken mecvut yaylarda ARC boyunu istediğim yerde bindirmesinin çıkması istiyordum internette fazla kaynak bulamadım kendim yaptım belki ihtiyacı olan kullanabilir



(defun c:boy ();ARC BOYU OLUŞTURMA DONATI İÇİN
(setq p (getreal "\n Arc Bindirme boyunu gir, arc üst veya altına tıkla neresinde istiyorsan ters köşesinden :"));;;
(setq sset (ssget))
(command "LENGTHEN" "t" p sset "");LENGTHEN uzunluktan arc boyunu al boyu yaz
(princ "\Arc bindirme uzunluğu tamam 2012©"))