;     Silindir Saç Açılımı Çizim Lispi  v.1.0
;      Büküm eksenine göre açınım yapma             
;                                   
;        yazgunesi02@gmail.com                   
;        www.autocadokulu.com 

(defun c:sd1 (/ yr1 dcp sb et1)

    ; kullanıcıdan bilgi alımı
        (setq yr1 (getpoint "\n Yerlestirme noktasi :"))
        (setq dcp (getreal "\n Silindir çapı ? :"))
        (setq sb  (getreal "\n Silindir boyu ? :"))
        (setq et1 (getreal "\n Et kalınlığı ? :"))

        (setq cp1(- dcp et1))      ; Büküm eksenin hesabı
        (setq cp2(* cp1 PI))       ; Eksenin çevresi = açınımın hesabı
 
        (setq a2(list (car yr1) (+ (cadr yr1) sb)))  ; yükseklik ayarı

    ; açılım saçının kordinat hesabı
        (setq a5(list (- (car yr1) (/ cp2 2)) (cadr yr1)))
        (setq a6(list (car a5) (cadr a2)))
        (setq a7(list (+ (car yr1) (/ cp2 2)) (cadr yr1)))
        (setq a8(list (car a7) (cadr a6)))

    ; çizimi oluşturma
        (command "line" a5 a6 "")
        (command "line" a6 a8 "")
        (command "line" a8 a7 "")
        (command "line" a7 a5 "")
   )

(Princ "Lisp'i çalıştırmak için > sd1 < yazınız! [www.autocadokulu.com] ")