填充图案拉伸更新至6.0，可代替CAD原拉伸命令！！

陈伟 · 发表于 2020-7-21 10:00:11

my258 发表于 2020-7-13 11:13
很好用，谢谢分享

3.0 4.0 5.0每个版本都有独特之处，可以都试用一遍！！！

skyoo · 发表于 2020-7-22 11:53:06

使用中，完美

23410997 · 发表于 2020-7-27 22:07:48

skyoo 发表于 2020-7-22 11:53
使用中，完美

好用中，感谢中

czb203 · 发表于 2020-7-27 22:41:29

明经明经，支持您

whuluqw · 发表于 2020-7-28 00:12:09

越来越完美，一直关注。和原装命令还有个差别就是不能先选择再执行。

yoyrtweq · 发表于 2020-7-29 11:45:30

提个建议：增加一个记忆拉伸距离，再用直接空格就使用上次拉伸距离，这样感觉很方便，修改图纸也方便，不用再填拉伸距离了

yoyrtweq · 发表于 2020-7-29 13:33:55

提个建议：增加一个记忆拉伸距离，再用直接空格就使用上次拉伸距离，这样感觉很方便，修改图纸也方便，不用再填拉伸距离了
(defun c:s (/  dd  pt)
(command ".STRETCH" (ssget) "")
(command (setq pt (getpoint "\n指定基点:")))
(IF (NULL *dd*) (setq *dd* 10))
(setq dd (getdist pt (strcat "\n输入拉伸距离<" (rtos *dd* 2 2) ">:")))
(if (NULL dd) (setq dd *dd*) (setq *dd* dd))
  (command dd)
(princ)
)
把这段代码结合咋一起，就超级完美了，这是记忆拉伸源码

陈伟 · 发表于 2020-7-29 14:18:48

yoyrtweq 发表于 2020-7-29 13:33
提个建议：增加一个记忆拉伸距离，再用直接空格就使用上次拉伸距离，这样感觉很方便，修改图纸也方便，不 ...

是会方便点，加进去了！！

lingduwx · 发表于 2020-7-29 14:54:36

顶一下，越来越完美了

yoyrtweq · 发表于 2020-7-29 17:20:50

陈伟发表于 2020-7-29 14:18
是会方便点，加进去了！！

究极完美了，太棒了 3Q

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

填充图案拉伸 更新至6.0，可代替CAD原拉伸命令！！

本帖子中包含更多资源

填充图案拉伸更新至6.0，可代替CAD原拉伸命令！！