[编程申请]：移动物体1000

baihc798 · 发表于 2005-9-12 14:53:37

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

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

×

move物体向下1000，LPS应该怎么写？
(defun c:V1(/ ss)
(setq ss (ssget))
(command "move" ss "" "@0,-1200" "")
(prin1)
)
这个移动后的位置不对的，应该怎么改呢。请高手指教！

其实最好是我的鼠标向那边，就向那边偏移1000，不过这个功能好像比较难实现。

zxq0220 · 发表于 2005-9-12 16:19:53

没给基点。应按下面改。
(COMMAND "MOVE" SS "" "0,0" "@0,-1200" "")

xyp1964 · 发表于 2005-9-12 20:05:07

为什么是1200？

[FONT=courier new](defun c:V1 (/ ss)
(princ "\n选择物体 : ")
(setq ss (ssget))
(command "move" ss "" (list 0 0)(list 0 -1000))
(princ)
)[/FONT]

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

[编程申请]：移动物体1000

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

相关帖子

浏览过的版块