[求助]：为什么我的这个程序运行后不能得到想要的结果

sunstone1110

各位大虾，我是刚刚开始学lisp的，照着资料用记事本写了下面这个绘制田子格的程序，加载成功后，运行并输入相应数据，结果提示“; error: no function definition: 指令”，希望各位能给点指导
程序如下：
(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
;以下 pa、ww、hh 值须由使用者输入
(setq pa (getpoint "Enter Left/Low Point:"))
(setq ww (getdist pa "\nWidth:"))
(setq hh (getdist pa "\nHeight:"))
;以下pb、pc、pd值须由程序依据pa、ww、hh求出
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
;以下依据 pa、pb、pc、pd 点画矩形
(指令 "pline" pa pb pc pd "c")
;以下mp1、mp2、mp3、mp4值须由程序依据pa、ww、hh
;& pb、pc、pd 值求出
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
;以下依据 mp1、mp2、mp3、mp4 点画出二条线
(指令 "line" mp1 mp3 "")
(指令 "line" mp2 mp4 "")
(prin1)
)
(prompt "********** << C:PBOX >> **********")
(prin1)

firstintimate

(指令 "pline" pa pb pc pd "c")
指令改为 command
伪代码没有完全改过来

sunstone1110

谢谢指导，菜鸟纲学习，希望以后能够多指点
我这个程序加载之后，提示“; error: 参数太多”是何缘故？？
(defun c:5test2()
   ;以下 baspt、rad、num 值须由使用者输入
   (setq baspt (getpoint “请求输入基准点:”))
   (setq rad (getdist baspt “\n请求输入小圆半径:”))
   (setq num (getint “\n请求输入欲相切的小圆数量:”))
   ;只要能求得 cenpt 点,再以 array 指令配合就万事OK了
   ;以下ang1、kk、cenpt值须由程序依据baspt、rad、num求出
   (setq ang1 (/ (* pi 2) (* num 2)))
   (setq kk (/ rad (sin ang1)))
   (setq ang2 (- (/ pi 2) ang1))
   (setq cenpt (polar baspt ang2 kk))
   ;以下依据 cenpt、num 配合环形array画出多圆相切
   (command “circle” baspt rad) ;;先画一个圆,才能array
   (command “array” (entlast) “” “p” cenpt num 360 “Y”)
   (prin1)
)
   (prompt “\n << 5TEST2>>自动等圆相切绘制”)

(prin1)

lijiao

把“指令”换成“COMMAND”

yshf

;老兄，你为了使用中文提示而没有在LISP的可视化编程环境中
;编辑程序，所有双引号都是全角字符，改为半角即可。如下：
(defun c:5test2()
;以下 baspt、rad、num 值须由使用者输入
(setq baspt (getpoint "请求输入基准点:"))
(setq rad (getdist baspt "\n请求输入小圆半径:"))
(setq num (getint "\n请求输入欲相切的小圆数量:"))
;只要能求得 cenpt 点,再以 array 指令配合就万事OK了
;以下ang1、kk、cenpt值须由程序依据baspt、rad、num求出
(setq ang1 (/ (* pi 2) (* num 2)))
(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
;以下依据 cenpt、num 配合环形array画出多圆相切
(command "circle" baspt rad) ;;先画一个圆,才能array
(command "array" (entlast) "" "p" cenpt num 360 "Y")
(prin1)
)
(prompt "\n << 5TEST2>>自动等圆相切绘制")

(prin1)