[编程交流] 需要一点帮助

; -------------------------------------------------------
; profa.lsp
; Profilio braižymas
; DB0/3 gr. stud. G., Sveikataitė
; D. Kalisinskas
; KTU, Inžinerinės grafikos katedra.
; --DTR funkcijos įvedimas į programą-----
(defun dtr (alfa)
       (* pi (/ alfa 180.0))
   )
;Duomenų įvedimas: p0, L, L1, H, c, b, R1, W, Fi
   (defun duom ()
       (setq p0 (getpoint "\nPazymekite bazini taska p0:"))
       (setq L (getdist "\nProfilio plotis L <30>:"))
       (if (null L) (setq b0 30))
       (setq L1 (getdist "\nprofilio plotis L1 <9>:"))
       (if (null L1) (setq L1 9))
       (setq H (getdist "\nprofilio aukstis H <30>:"))
       (if (null H) (setq h0 30))
       (setq c (getdist "\nprofilio aukstis c <3>:"))
       (if (null c) (setq c 3))
       (setq b (getdist "\nprofilio aukstis b <6>:"))
       (if (null b) (setq b 6))
       (setq R1 (getdist "\nuzapvalinimo spindulys R1 <10.5>:"))
       (if (null R1) (setq R1 10.5))
       (setq w (getdist "\npolilinijos plotis <0.5>:"))
       (if (null w) (setq w 0.5))
       (setq Fi (getdist "\nprofilio pasukimo kampas Fi <0.0>:"))
       (if (null Fi) (setq Fi 0.0)) 
        )
;--Taškų Koordinačių paskaičiavimas-----
(defun piont ()
       (setq p1 (polar p0 (dtr 90) H))
       (setq p2 (polar p1 0 L1))
       (setq p3 (list (car p2) (- (cadr p2) c)))
       (setq p4 (polar p3 (dtr 315)(* R1(sqrt 2)))
(setq p5 (polar p4 (dtr -315)(* R1(sqrt 2)))      
       (setq p6 (polar p5 (dtr -90) b0))
 )
;--Profilio braizymas--
(defun braiz ()
       (command "PLINE" p0 "w" w "" p1 p2 p3 "ARC" "ANGLE" "-90" p4 "ARC" "ANGLE" "90" p5 "b0" p6 p0 "")
       (setq PL1 (entlast)) 
       (command "ROTATE" PL1 "" p0 Fi)
       (steq PL2 (entnext PL1))
       (command "hatch" "ansi31" 1 0 PL1 "")
        )
;--Pagrindine programa-------------------------------------------
  --Pagrindine programa--
(defun C:PROF1 ()
      (dtr)
      (duom)
      (braiz)

; -------------------------------------------------------
; profa.lsp
; Profilio braizymas
; DB0/3 gr. stud. G., Sveikataite
; D. Kalisinskas
; KTU, Inzinerines grafikos katedra.
; --DTR funkcijos ivedimas i programa-----
(defun dtr (alfa)
(* pi (/ alfa 180.0))
)
;Duomenu ivedimas: p0, L, L1, H, c, b, R1, W, Fi
(defun duom ()
(setq p0 (getpoint "\nPazymekite bazini taska p0:"))
(setq L (getdist "\nProfilio plotis L <30>:"))
(if (null L) (setq b0 30))
(setq L1 (getdist "\nprofilio plotis L1 <9>:"))
(if (null L1) (setq L1 9))
(setq H (getdist "\nprofilio aukstis H <30>:"))
(if (null H) (setq H 30));was ho
(setq c (getdist "\nprofilio aukstis c <3>:"))
(if (null c) (setq c 3))
(setq b (getdist "\nprofilio aukstis b <6>:"))
(if (null b) (setq b 6))
(setq R1 (getdist "\nuzapvalinimo spindulys R1 <10.5>:"))
(if (null R1) (setq R1 10.5))
(setq w (getdist "\npolilinijos plotis <0.5>:"))
(if (null w) (setq w 0.5))
(setq Fi (getdist "\nprofilio pasukimo kampas Fi <0.0>:"))
(if (null Fi) (setq Fi 0.0)) 
)
;--Tasku Koordinaciu paskaiciavimas-----
(defun piont ()
(setq p1 (polar p0 (dtr 90) H))
(setq p2 (polar p1 0 L1))
(setq p3 (list (car p2) (- (cadr p2) c)))
(setq p4 (polar p3 (dtr 315)(* R1(sqrt 2))))
(setq p5 (polar p4 (dtr -315)(* R1(sqrt 2)))) 
(setq p6 (polar p5 (dtr -90) b0))
)
;--Profilio braizymas--
(defun braiz ()
(command "PLINE" "_non" p0 "w" w "" "_non" p1 "_non" p2 "_non" p3 "ARC" "ANGLE" "-90" "_non" p4 "ARC" "ANGLE" "90" "_non" p5 "L" "_non" p6 "_non" p0 "")
(setq PL1 (entlast)) 
(command "ROTATE" PL1 "" p0 Fi)
(setq PL2 (entnext PL1))
(command "hatch" "ansi31" 1 0 PL1 "")
)
;--Pagrindine programa-------------------------------------------
(defun C:ROF1 ()
(duom)
(piont)
(braiz)
(princ)
)
(C:ROF1);<-- autorun for debug