画圈程序出错
(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
想问下是上面地方出现问题了。谢谢
http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 krush13的微博 你还真同步上来了http://app.qlogo.cn/mbloghead/7980955882437135dc76 (defun c:xx()
(setvar "CMDECHO" 0)
(foreach cir '((3 2 1)(4 4.5 0.5)(7 5 2))
(setq cp (list (car cir) (cadr cir) 0.0))
(setq r (caddr cir))
(command "circle" cp r)
)
(setvar "CMDECHO" 1)
(princ)
)
ZZXXQQ 发表于 2014-8-12 21:43 static/image/common/back.gif
谢谢了。明白什么地方不对了
页:
[1]