[LISP程序]：参照移动错在哪？

瀛丹 · 发表于 2005-11-6 16:05:28

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

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

×

小弟初学，想自己试编下面的程序，老是写不好，错在哪里？？那位大侠可以帮帮手改一下？

;;;;参照移动
(defun c:ss ()
(setq ss (ssget))
(setq p1 (getpoint "\n请设定移动基点"))
(command "move" ss p1 "tra"))

Underway · 发表于 2005-11-6 16:15:50

(command "move" ss "" p1 "tra")
(while (not (zerop (GetVar "cmdactive"))) (command pause))

or

(while (eq 1 (logand 1 (getvar "CMDACTIVE")))
(command pause)
)

瀛丹 · 发表于 2005-11-6 18:44:04

谢谢，问题解决了，只是用tra来实现这功能，好象有点不足，第一追踪点不能使用正交来移动。有没有别的解决方法呢？？？

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

[LISP程序]：参照移动错在哪？

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

相关帖子

浏览过的版块