社区 › AutoCAD工具插件 › 填充图案拉伸 更新至6.0，可代替CAD原拉伸命令！！

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

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

3.04.05.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 (/ddpt)
   (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原拉伸命令！！