(defun c:xhd(/ dwd r)
(setq dwd(getpoint “inter dingweidian”))
(serq r 0.5)
(setq pt1 (dwd(/ pi 2.0) 1))
(setq pt2 (pt1(/ pi 2.0) 0.5))
(setq pt3 (pt2(/ pi 2.0) 0.5))
(setq pt4 (pt3(/ pi 2.0) 1))
(setq pt5 (pt2(/ pi 4.0) 0.5))
(setq pt6 (pt2(/ (* pi 3.0) 4.0) 0.5))
(setq pt7 (pt2(-(/ pi 4.0)) 0.5))
(setq pt8 (pt2(-(/ (* pi 3.0) 4.0)) 0.5))
(command “circle” pt2 r “”)
(command “line” dwd pt1 “”)
(command “line” pt3 pt4 “”)
(command “line” pt6 pt2 pt8 “”)
(command “line” pt5 pt2 pt7 “”)
)
一直提示出错，怎么改，就简单的画一个元件 在cad里面

有什么语法的错误吗，新手

有错