求助高手解读程序

wensongwu · 发表于 2004-9-17 07:51:00

在下是VLisp的小字辈。下面是我在一本书上件到的一个标注粗糙度的程序，我看不懂。有哪位仁兄能够帮助小弟解读这个程序的总体思路流程？先谢谢了！
并且在加载此程序的事后提示：; 错误: 输入的列表有缺陷
(defun hccds(f d pt1 st angle)
   (setvar "cmdecho" 0)
   (initget 4)
   (setq a 0)
   (if (= d 2 ) (setq a ( / pi 2)))
   (if (= d 3 ) (setq a pi))
   (if (= d 4 ) (setq a (* pi 1.5)))
   (if (= d 5 ) (setq a angle))
   (if (setq pt(osnap ptq "nea"))(setq pt1 pt))
   (setq pt2(osnap pt1 "end"))
   (if (= d 0)(setq a(angle pt1 pt2)))
   (if (= a 0)(setq a1 0)(setq a1(angtos a 0 0)))
   (command "insert" f pt1 sca "" a1)
   (if (and(>a -1)(a -1)( a -1) (< a 2))
   (setq cc (polar pt1 (+ a (/ pi 2)) (* 5.4 sca)))
   (progn (setq cc (polar pt1 (+ a (/ pi 2)) (* 7.8 sca)))
   (setq a1 (angtos (+ a pi) 0 0))
   )
   )
   (command "text" "c" cc (* 2 sca) a1 st)
)