[求助]：为什么我的程序过不去，请大侠们帮忙解决？谢谢！

andyhua5240 · 发表于 2005-12-9 21:54:10

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

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

×

程序的本意是：
如果用户的正交为开，对象捕捉为开，对象追踪为开。那么在执行程序revcloud的过程中，正交为关，对象捕捉为关，对象追踪为关。当程序revcloud执行完毕后，返回用户的正交、对象捕捉、对象追踪值。正交为并，对象捕捉为开，对象追踪为开。并且程序在执行的过程中，revcloud命令的选项：弧长，对象，样式都能够用。
谢谢！
(defun c:kk()
  (princ "\n*运行Revcloud命令关闭对象捕捉和正交*")
  (setq os (getvar "osmode"))
  (setq cm (getvar "cmdecho"))
  (setq ot (getvar "orthomode"))
  (setq au (getvar "autosnap"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setvar "orthomode" 0)
  (setvar "autosnap" 39)
  (command "revcloud")
  (setvar "osmode" os)
  (setvar "cmdecho" cm)
  (setvar "orthomode" ot)
  (setvar "autosnap" au)
  (princ)
)

程序不能达到上面所说的效果，不知道如何是好？
谢谢！

xyp1964 · 发表于 2005-12-9 21:59:34

“revcloud”命令没有执行完！
程序不完整！

andyhua5240 · 发表于 2005-12-9 22:07:54

斑竹呀，那么怎么样才能让其执行完呀？不会呀！
谢谢！

狂刀 · 发表于 2005-12-10 00:39:13

(command "revcloud")
改为：
(command "revcloud")
(while (/= 0 (getvar "cmdactive"))
(command pause)
)

xyz518mm · 发表于 2005-12-10 09:29:16

原来要这样叙述阿
若再加上线宽设定会更好喔

andyhua5240 · 发表于 2005-12-10 21:50:36

最初由狂刀发布
[B](command "revcloud")
改为：
(command "revcloud")
(while (/= 0 (getvar "cmdactive"))
(command pause)
) [/B]

刀哥，但是这样改后，程序可以达到预期的效果，但是有个问题就是revcloud命令的选项（弧长，样式，对象）不能用了，没得选的了呀？
还有什么其它的办法吗？
谢谢！

eachy · 发表于 2005-12-11 01:43:56

这样使用的程序中要将命令回显打开

(setvar "cmdecho" 1)
(command "revcloud")
(while (/= 0 (getvar "cmdactive"))
(command pause)
)
(setvar "cmdecho" 0)

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

[求助] [求助]：为什么我的程序过不去，请大侠们帮忙解决？谢谢！

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

相关帖子