还有一个，我看见了你新建了一个图层"TC填充图案边界线"，其实，这个可以用Defpoints这个图层就行，天生不打印，
陈伟 发表于 2020-7-29 14:18
是会方便点，加进去了！！
我下载了LSP文件，经测试有一个问题，就是选择对象后选择基点，点取端点往左拉伸拉伸不了。往右可以拉，不选择端点拉伸是可行的。
本帖最后由 陈伟 于 2020-8-1 11:28 编辑
xieyanghui 发表于 2020-8-1 01:26
我下载了LSP文件，经测试有一个问题，就是选择对象后选择基点，点取端点往左拉伸拉伸不了。往右可以拉， ...你说的是带记忆拉伸这一个版本吧！！！
CAD2020刚测试，选择基点拉伸是可以的，不论左右上下！！！可以在不同的CAD版本多测试一下！！！！如下图：
但是经过多次测试，带记忆拉伸的这个有问题，拉伸距离不到矩形图框总长，“结果矩形被拉成了一条线，填充图案没被拉伸！！”如下图所示：
如上图，显示的拉伸距离为41977，结果把矩形图框拉成了一条线，填充图案没有拉伸！！！！！！！！！！！建议还是用正文中原来的图案拉伸5.0插件，这个没问题的！！！
yoyrtweq 发表于 2020-7-29 17:20
究极完美了，太棒了3Q
发现问题：不如原CAD命令直观！没有虚线表示位置等。还有部分拉伸会出问题！！！！！记忆拉伸这个你能找到完美的源代码吗？？
陈伟 发表于 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取消输入数值，在自由拉伸。我感觉多了一步骤，现在不用了
陈伟 发表于 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个都是一样的道理，你可以研究一下
陈伟 发表于 2020-8-1 12:18
发现问题：不如原CAD命令直观！没有虚线表示位置等。还有部分拉伸会出问题！！！！！记忆拉伸这个你能找 ...
我看见你在记忆拉伸里面回复的，我现在不用对象捕捉，修改一些自定义弄成直接捕捉，所以我没发现你说的问题，
挺完美了吧，还更新不
谢谢楼主分享
又更新了吗，非常的感谢哦