画圈程序出错

krush13

(
defun c:xx()
(foreach cir '((3 2 1 )(4 4.5 0.5)(7 5 2)))
(setq cp (list(car cir)(cadr cir)))
(setq r (caddr cir))
(command "circle" cp r)
)

上面这个程序怎么看都感觉没问题啊
运行后出现错误提示如下
命令: XX
circle
指定圆的圆心或 [三点(3P)/两点(2P)/切点、切点、半径(T)]:
命令:
命令: nil

想问下是上面地方出现问题了。谢谢


该贴已经同步到 krush13的微博

你还真同步上来了[tthread=wangyuhan5882, 王宇涵]http://app.qlogo.cn/mbloghead/7980955882437135dc76[/tthread]

ZZXXQQ

2. (defun c:xx()
   
3. (setvar "CMDECHO" 0)
   
4. (foreach cir '((3 2 1)(4 4.5 0.5)(7 5 2))
   
5.   (setq cp (list (car cir) (cadr cir) 0.0))
   
6.   (setq r (caddr cir))
   
7.   (command "circle" cp r)
   
8. )
   
9. (setvar "CMDECHO" 1)
   
10. (princ)
    
11. )
    

(defun c:xx()<br /> (setvar "CMDECHO" 0)<br /> (foreach cir '((3 2 1)(4 4.5 0.5)(7 5 2))<br />   (setq cp (list (car cir) (cadr cir) 0.0))<br />   (setq r (caddr cir))<br />   (command "circle" cp r)<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

krush13

ZZXXQQ 发表于 2014-8-12 21:43

谢谢了。明白什么地方不对了