autocad2008自定义菜单

hbswz

我用lisp语言编了一个程序，想将它放在菜单栏上，由于和04版的差别很大，不知道怎么做了，求高手赐教！谢谢！！
程序如下：
(defun C:ring()；
  (setq pt (getpoint "输入圆心坐标:"))；
  (setq r1 (getreal "输入内圆半径:"))；
  (setq r2 (getreal "输入小圆半径:"))；
$ |2 @$ k! L4 |  (setq r3 (getreal "输入外圆半径:"))；
$ ?; M* D1 m. O: s2 ~4 v4 z3 C  (setq n (getint "输入小圆个数:"))；
6 l' I" z0 Z/ G. r( W  (setq pai 6.28318)；
  (command "circle" pt r1)；
# s1 J0 }: R9 a3 q; E: Q' K- Z5 s  (command "circle" pt r3)；
% s7 e) K$ d$ T  (setq r (/ (+ r1 r3) 2))；
- `' j4 I* b9 k  (command "layer" "M" "1" "C" "BLUE" "1" "L" "CENTER" "1" "S" "1")；
  (command)；
* g& ]2 Q5 M' k6 U4 S" I  P  o  (command "circle" pt r)；
+ _- ?  S% B/ w& D  (command "layer" "M" "2" "C" "RED" "2" "S" "2")；
  (command)；
9 N5 A4 W% v6 C  H4 O% j  (setq gle 0)；
  (setq k 1)；
  (while (<= k n)；
     (setq gle (+ gle (/ pai n)))；
9 s3 `7 L8 [& P2 \# U/ W     (setq ptn (polar pt gle r))；
$ n4 N/ E) o3 [9 y' b6 ?- V7 {     (command "circle" ptn r2)；
& G+ k0 B+ R2 R/ b     (setq k (+ 1 k))；
  )；
)；

ywt880727

楼上的兄弟都用汇编了

hbswz

2# ywt880727 二次开发啊