我编写的程序为什么能执行,但命令行却提示“未知命令”?
;;;;;fp多边形倒圆角(defun C:fp (/ cmdold lyold ssz osn)
(setq ssz (getvar "filletrad"))
(setq osn (getvar "osmode"))
(setq cmdold (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.undo" "_begin")
(princ "\n多段线倒圆角")
;;;这部分指定圆角半径
(if (= wszz nil) (setq wszz 0.0))
(princ (strcat "\n请指定圆角半径 <" (rtos wszz 2 3) ">: "))
(setq a (getdist))
(if (= a nil) (setq a wszz))
(setq wszz a)
;;;这部分主程序
(setvar "filletrad" wszz)
(setq ss (ssget '((0 . "lwpolyline"))) i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(command "fillet" "p" s1 "")
) ;while
(command "_.undo" "_end")
(setvar "filletrad" ssz)
(setvar "osmode" osn)
(setvar "cmdecho" cmdold)
(princ)
) ;end
这个程序为什么能执行,但命令行却提示是未知命令??
请教高手帮我看看,我一直没懂?谢谢了!!
hao3ren 发表于 2012-12-25 10:12 static/image/common/back.gif
一般应该都是command后面的空格多了
是这样的,多了个空格,谢谢你 去掉S1后面的空格看看。 一般应该都是command后面的空格多了 同意楼上意见 应该是有多余空格 zdqwy19 发表于 2012-12-25 08:24 static/image/common/back.gif
去掉S1后面的空格看看。
谢谢就是空格多了 我也遇到过这种问题,哈哈哈,长知识了,下次再有这种问题就知道了 我也遇到,原来是多了双引号,还删半天的空格 命令格式不对哈
页:
[1]
2