[编程申请]：一个很简单的请求

oar1 · 发表于 2005-3-18 09:25:25

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

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

×

一个很简单的请求,
我只是想输入一个命令就能让选中物体在z轴上移动需要的距离.
在论坛搜了一下没有找到.
那位大侠能指点一下.

f5612140 · 发表于 2005-3-18 09:57:54

(defun c:mz()
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(setq ss (ssget))
(setq dz (getreal "\nZ軸移動距離:"))
(command "move" ss "" '(0 0 0) (list 0 0 dz))
(setvar "osmode" osm)
(prin1)
)

oar1 · 发表于 2005-3-20 14:01:31

很好用,只是有一个问题.
如果命令被取消,或者选中物体取消命令后,所有设置好的捕捉点都被清空了.
如果是正常操作就没问题.
不知是什么原因.

xyp1964 · 发表于 2005-3-21 12:54:46

[php]
(defun c:mz ()
  (setq ss (ssget)
dz (getreal "\nZ軸移動距離:")
  )
  (command "move" ss "" '(0 0 0) (list 0 0 dz))
  (princ)
)
[/php]

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

[编程申请]：一个很简单的请求

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

相关帖子