急急！！请高手帮一下修改一个粗糙度的程序，谢谢1

ptfjr2003

(defun c:rough(/ v1 v2 p0 p1 p10 p2 p3 h h1 s a1 alf alf1))
(setq v1 (getvar"cmdecho"))
(setq v2 (getvar"blipmode"))
(setvar"cmdecho"0)
(setq p0 (getpoint"插入点："))
(setq p10 (osnap p0"\n粗糙度数值的字高〈3.5〉:"))
(if (not h) (setq h 3.5)
(setq h1(* h 1.61658))
(if p10)
(progn
(setq alf1 (angle p10 p0))
(setq p0 p10)
(setq alf(- alf(* 0.5 pi)))
)
(progn
(setq alf(getangle p0"\n旋转角〈0〉："))
(if (not alf) (setq alf 0.0))
)
)
(setq al (+ alf (/ pi3)))
(setq p1 (polar p0 a1 (* 2 h1)))
(setq p2 (polar p0 a1 h1)
(setq a1 (+ alf(/ pi 1.5)))
(setq p3 (polar p9 a1 h1))
(setq a1 (+ alf (* 0.5 pi)))
(setq p4 (polar p0 a1 (* 1.4 h1)))
(setq s(getstring"\n输入表面粗糙度的值〈6.3〉："))
(if (= 0 (strlen s)) (setq s"6.3"))
(setq alf (/ (* alf 180) pi))
(setq alf (cond ((and (> alf 90) (<= alf 270)) (- alf 180))
((> alf 270) (- alf 360))
((= alf - 90)90)
(t alf)
)
)
(setvar"blipmode" 0)
(if (=s "0")
(progn
(setq p4(polar p0 a1 (* 0.93333 h)))
(command "line" p1 p0 p3"")
(command "circle" p4 (* 0.46666 h))
)
(progn
(command "line" p2 p3 p0 p1"")
(if (>(strlen s) 3)
(setq p4(polar p4 (+ a1 (* 0.5 pi)) (* 0.4 h)))
)
(command "text" "m" p4 h alf s)
)
)
(setvar "cmdecho" v1)
(setvar "blipmode" v2)
(princ)
)