[求助]：LISP程序

阿勇 · 发表于 2003-1-13 21:27:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

……
……
（setq clayer (getvar "clayer"))
(setq ss (ssget "x" (list (cons 8 clayer))))
(command "-layer" "s" "0" "") //设零层为当前层
（command "copy" ss "" "@" "@" "change" ss "" "p" "la" 001 "") //复制所选对象到另一个层，不移动其原始位置(说明：001层已经存在)

运行时，上面最后两行（即两行command)老是报错。请高手指点

zhynt · 发表于 2003-1-13 21:50:02

(command "copy" ss "" "@" "@" "change" ss "" "p" "la" "001" "")
001不是变量，要用引号括起来，如果前面定义了001变量就不需要了。
能问一下，复制对象到另一个层，而又不改原来的位置是什么用意吗？

阿勇 · 发表于 2003-1-14 23:51:33

多谢zhynt！小弟我刚开始学 LISP ，

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：LISP程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子