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

yoyrtweq

还有一个  ，我看见了你新建了一个图层"TC填充图案边界线"，其实，这个可以用Defpoints这个图层就行，天生不打印，

xieyanghui

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

我下载了LSP文件，经测试有一个问题，就是选择对象后选择基点，点取端点往左拉伸拉伸不了。往右可以拉，不选择端点拉伸是可行的。

陈伟

xieyanghui 发表于 2020-8-1 01:26
我下载了LSP文件，经测试有一个问题，就是选择对象后选择基点，点取端点往左拉伸拉伸不了。往右可以拉， ...

你说的是带记忆拉伸这一个版本吧！！！
CAD2020刚测试，选择基点拉伸是可以的，不论左右上下！！！可以在不同的CAD版本多测试一下！！！！如下图：






但是经过多次测试，带记忆拉伸的这个有问题，拉伸距离不到矩形图框总长，“结果矩形被拉成了一条线，填充图案没被拉伸！！”如下图所示：





如上图，显示的拉伸距离为41977，结果把矩形图框拉成了一条线，填充图案没有拉伸！！！！！！！！！！！建议还是用正文中原来的图案拉伸5.0插件，这个没问题的！！！

陈伟

yoyrtweq 发表于 2020-7-29 17:20
究极完美了，太棒了  3Q

发现问题：不如原CAD命令直观！没有虚线表示位置等。还有部分拉伸会出问题！！！！！记忆拉伸这个你能找到完美的源代码吗？？

yoyrtweq

陈伟 发表于 2020-8-1 12:18
发现问题：不如原CAD命令直观！没有虚线表示位置等。还有部分拉伸会出问题！！！！！记忆拉伸这个你能找 ...

(defun c:jyls (/ s_dis)
(cmdla0)
   (command ".STRETCH" (ssget) "")
   (command (setq BasicPoint (getpoint "\n指定基点:")))
   (if (= nil s_dis_all)
     (progn
       (setq s_dis_all (getreal "\n输入拉伸距离:"))
       (command s_dis_all)
     )
     (progn
       (setq
s_dis (getreal
   (strcat "\n输入拉伸距离<" (rtos s_dis_all 2 4) ">:")
        )
       )
       (if (= nil s_dis)
(setq s_dis s_dis_all)
       )
       (command s_dis)
       (setq s_dis_all s_dis)
  (cmdla1)
     )
   )
)
这段记忆拉伸有硬伤，拉伸时候输入数值，不然拉伸不来，或者按ESC取消输入数值，在自由拉伸。我感觉多了一步骤，现在不用了

yoyrtweq

陈伟 发表于 2020-8-1 12:18
发现问题：不如原CAD命令直观！没有虚线表示位置等。还有部分拉伸会出问题！！！！！记忆拉伸这个你能找 ...

(defun c:s1(/ s_disyd)
(setvar "ORTHOMODE" 1)
(command ".STRETCH" (ssget) "")
(command (setq basicpoint (getpoint "\n指定基点:")))
(if (= nil s_dis_allyd)
(progn (setq s_dis_allyd (getreal "\n输入拉伸距离:"))
(command s_dis_allyd))
(progn (setq s_disyd (getreal (strcat "\n输入拉伸距离<"(rtos s_dis_allyd 2 4))))
(if (= nil s_disyd)
(setq s_disyd s_dis_allyd))
(command s_disyd)
(setq s_dis_allyd s_disyd)))
(setvar "ORTHOMODE" 0)
(princ))
或者这个 ，这2个都是一样的道理，你可以研究一下

yoyrtweq

陈伟 发表于 2020-8-1 12:18
发现问题：不如原CAD命令直观！没有虚线表示位置等。还有部分拉伸会出问题！！！！！记忆拉伸这个你能找 ...

我看见你在记忆拉伸里面回复的，我现在不用对象捕捉，修改一些自定义弄成直接捕捉，所以我没发现你说的问题，

szygyue

挺完美了吧，还更新不

999999

谢谢楼主分享

czb203

又更新了吗，非常的感谢哦