Question

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

（defun c：bc1（）
（graphscr）
（setvar“cmdecho”0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:”)）
（setq d（getdist“\n Dia of Bolt－Circle：”））
（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）
（set r(/ dh 2））
（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
（setq ang（＋ ang inc））
）
（setvar“cmdecho” l）
（Princ）
）
大哥们，求解答一下啊。。我这个程序不知道为什么在CAD上就是用不了。。

Answer 1

因为这个程序所有的符号是中文的，比如：“（”，“）”，“+”，“>”。所有的输入法必须是英文才可以

(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 (< ang (* 2 pi) )
     (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中文"，这个格式是允许的因为在" "英文符号里面