自己组合的正交拉伸命令，如何在命令结束后自动返回极轴？已解决

669423907 · 发表于 2011-5-25 22:34:32

本帖最后由 669423907 于 2011-5-27 13:18 编辑

按下 ss 切换到正交后自动激活 s 命令，求助如何改写才能在命令结束后自动返回极轴？
(defun c:ss()(setvar"orthomode"1)(command "stretch"))

yshf · 发表于 2011-5-25 23:09:15

(defun c:ss()
(setq orth (getvar "orthomode"))
(setvar "orthomode" 1)
(command "stretch" pause)
(setvar "orthomode" orth)
(princ)
)

669423907 · 发表于 2011-5-26 21:02:47

回复 yshf 的帖子

首先非常感谢你的帮助，只是程序还有有点小问题：
1：在极轴模式下按下快捷键能自动切换到正交，但选择对象后（还没拉伸）
就马上关闭了正交；
2：在正交模式下不能关闭正交；
3：不能激活极轴。

我的想法是：
无论在是在正交或极轴的模式下，拉伸动作结束后能自动切换到极轴模式。
阁下是否方便再改改呢？

Andyhon · 发表于 2011-5-26 21:32:12

Try this
(defun c:ss()
(setq orth (getvar "orthomode"))
(setvar "orthomode" 1)
(command "stretch" "C")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))
(setvar "orthomode" orth)
(princ)
)

669423907 · 发表于 2011-5-26 21:47:17

回复 Andyhon 的帖子

谢谢你，第一个问题解决了，第2和第3个问题依然存在！

669423907 · 发表于 2011-5-26 21:50:04

回复 Andyhon 的帖子

上了个图片

Andyhon · 发表于 2011-5-26 22:08:01

本帖最后由 Andyhon 于 2011-5-26 22:11 编辑

只是关闭正交模式
(setvar "orthomode" 0)

未异动极轴模式

669423907 · 发表于 2011-5-26 22:15:54

回复 Andyhon 的帖子

非常感谢你！

只剩第3个问题啦！！

Andyhon · 发表于 2011-5-27 12:45:09

您所要的是不是如下的效果
(setvar "AutoSnap" 63)

669423907 · 发表于 2011-5-27 13:05:54

回复 Andyhon 的帖子

非常感谢你的热情帮助！昨晚改了一下：

(defun c:s()
(setq orth(getvar"orthomode"))
(setvar"orthomode"1)(setvar"autosnap"55)(setvar"osmode"16383)
(command"stretch""C")
(while(=(logand(getvar"CmdActive")1)1)(command pause))
(setvar"autosnap"63))
正交捕捉拉伸后自返回极轴捕捉

再次感谢Andyhon 和yshf 的热情帮助！
论坛有你更精彩！

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

[源码] 自己组合的正交拉伸命令，如何在命令结束后自动返回极轴？已解决

本帖子中包含更多资源

本帖子中包含更多资源