【S】填充拉伸_V7.4---替代CAD原拉伸命令！
本帖最后由 kucha007 于 2023-7-17 17:02 编辑很好用的拉伸工具，也来接力~。原帖在这里：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=181607&page=15&extra=#pid928859
因改动较大，且原帖楼层太多了，所以另开一个帖子，方便各位朋友下载。
如果大家有在这个基础上改动，也请发出来互相学习。后续有问题或者更新我也在这里发布。
两个有意思的函数：
;收集给定实体之后产生的所有实体
(defun K:NewSS_After (elast / en SS)
(if elast
(progn
(setq SS (ssadd))
(setq en (entnext elast))
(while en
(if
(not (member (cdr (assoc 0 (entget en))) '("ATTRIB" "VERTEX" "SEQEND")))
(setq SS (ssadd en SS))
)
(setq en (entnext en))
)
SS
)
)
)
;获取框选对象时的选择集UCS选框坐标(右上和左下,忽略Z值)
(defun K:GetSSUCSBox (SS / OriLst x xx)
(mapcar
'(lambda (xx)
(setq OriLst
(mapcar
'(lambda (xx)
(trans
(list(car (cadr xx)) (cadr (cadr xx))0.0)
0 1
)
)
(cdr xx)
)
);UCS
(list
(apply 'mapcar (cons 'max OriLst))
(apply 'mapcar (cons 'min OriLst))
);取右上和左下
)
(vl-remove-if-not
'(lambda(x) (< (car x) 0))
(ssnamex SS)
)
)
)
本帖最后由 kucha007 于 2023-7-17 17:02 编辑
2023备用楼
20230717_v7.4
1-修复外部参照拉伸出错
20230705_v7.2
1-重构改写程序，加了不少注释。变量名称也更易懂，方便大家后续改写。
2-修复UCS下会拉伸错误的情况。
3-拉伸框忽略Z值。
优秀，原来的最近使用不了，看看这个！ 本帖最后由 ljfzx 于 2022-10-15 12:53 编辑
xj6019 发表于 2022-10-14 20:56
我试了一下 ctrl+z还是不行这难道是个不治之症吗，之前其他情况也研究过没搞定
不过现在的版本，边界 ...
2020测试 ctrl+z不行，但是原贴原版没有这个问题
15日上午的新版本已经修复了
为钻研精神点赞 本帖最后由 xj6019 于 2022-10-14 21:03 编辑
我试了一下 ctrl+z还是不行这难道是个不治之症吗，之前其他情况也研究过没搞定
不过现在的版本，边界线已经不会回来了，图层不行图层会回来
xj6019 发表于 2022-10-14 20:56
我试了一下 ctrl+z还是不行这难道是个不治之症吗，之前其他情况也研究过没搞定
不过现在的版本，边界 ...
我在CAD2014上按你说的步骤测试了没问题啊。你的CAD版本是多少啊？ 为钻研精神点赞 kucha007 发表于 2022-10-14 22:19
我在CAD2014上按你说的步骤测试了没问题啊。你的CAD版本是多少啊？
同xj6019大佬
2023版本 有个问题 一直都有 就是如果有文字或者标注在填充边界的时候，填充考虑孤岛避让。拉伸填充的时候，填充会溢出边界。 lxl217114 发表于 2022-10-14 23:13
同xj6019大佬
2023版本
我用2018测试了一下确实会有这个问题。已经修复了，麻烦您再看一下 ljfzx 发表于 2022-10-15 09:17
有个问题 一直都有 就是如果有文字或者标注在填充边界的时候，填充考虑孤岛避让。拉伸填充的时候，填充会溢 ...
这个插件拉伸时会生成边界，拉伸后再删除就会解除填充关联。正常在CAD中解除关联再拉伸也会这样，我也不知道咋改，期待后面有大佬来解疑吧。