请大师给拉伸添加记忆功能

669423907 · 发表于 2011-7-21 11:20

哪位大师方便，帮忙给以下拉伸程序添加记忆功能。谢谢了。
(defun c:s()
(setvar"orthomode"1)
(command"stretch"(ssget)"")
(while(=(logand(getvar"CmdActive")1)1)(command pause))
(setvar"autosnap"63)(princ))

669423907 · 发表于 2011-7-21 23:18

搜过了，自己不会弄。
解禁了，自己顶起！

669423907 · 发表于 2011-7-24 00:11

这个不能做吗？

puzb2001 · 发表于 2012-3-9 13:24

同样问题，
我来顶一下

langjs · 发表于 2012-3-9 20:23

运行顶楼程序和单独运行stretch命令有啥不同？我这边怎么效果一样的？

puzb2001 · 发表于 2012-3-9 21:25

langjs 兄，楼主是请求能加主记忆功能。上述就是stretch，不过加了一些系统变量改来改去而已

langjs · 发表于 2012-3-9 22:03

那几个系统变量起到啥作用搞不明白。记忆功能记忆啥？拉伸的长度？下次拉伸其它东西默认上一次的拉伸长度？

puzb2001 · 发表于 2012-3-10 08:51

本帖最后由 puzb2001 于 2012-3-10 08:52 编辑

回langjs 兄：只要用鼠标指定方向，下次拉伸其它东西默认上一次的拉伸长度

langjs · 发表于 2012-3-10 09:57

试着编了一下，结果失败了。主要是一个问题没解决，就是采用了pause和grread，结果右键得到的拉伸方向不是十分的准确

puzb2001 · 发表于 2012-3-10 21:10

langjs 兄辛苦！不知道这个贴子的拉伸方向控制对您有没有用？http://bbs.mjtd.com/thread-88273-1-5.html。大家画图时一般只会用到正交拉伸

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

[函数] 请大师给拉伸添加记忆功能