lisp绘制法兰_一个关于autolisp程序的问题，帮忙改下错误，法兰盘的，

展开全部

因为这个程序e68a84e8a2ad3231313335323631343130323136353331333335346131所有的符号是中文的，比如：“(”，“)”，“+”，“>”。所有的输入法必须是英文才可以(defun  c:bc1 ( / a ang cr d dh inc l n p1 r)

(graphscr)

(setvar "cmdecho" 0)

(setq cr (getpoint "\n请输入坐标基点"))

(setq d (getdist "\n请输入圆离基点高度"));在" "里面可以中文，其它输入不可以用中文输入

(setq n (getint "\n Number of holes In Bolt－Circle:"))

(setq a (getangle "\n Enter start angle:"))

(setq dh (getdist "\n Enter diameter of hole:"))

(setq inc (/ (* 2 pi) n))

(setq ang 0)

(setq r (/ dh 2))

(While (

(setq P1 (Polar cr (+ a inc) (* d 2)))

(command "circle" p1 r)

(setq a (+ a inc))

(setq ang (+ ang inc))

)

(setvar "cmdecho" 1)

(prin1)

);修改为英文输入法后就可以使用了。

在"\n中文"，这个格式是允许的因为在" "英文符号里面