(defun C:sw (/ pt1 pt2 sg i s1)
(princ "\n请选择拉伸对象（填充有边界会再次生成边界）：")
(setq PT1 (getpoint "\n选择对象:"))
(setq PT2 (getcorner PT1 " >>>第二点:"))
;；(setq ent (entlast))
(setq sg (ssget "c" PT1 PT2 '((0 . "HATCH")) ) i -1);过滤对象只选填充图案
(while (setq s1 (ssname sg (setq i (1+ i))));批量生成填充边界
(command "-hatchedit" s1 "b" "p" "y")
)
(command".STRETCH" (ssget "c" PT1 PT2) "" pause pause);拉伸选择对象，可以修改只拉伸填充图案
;(COMMAND "_.erase"(last_ent ent) "");本打算删除最后的边界图元，可惜不成功！
(princ)
)
本帖最后由 陈伟 于 2020-7-5 09:25 编辑
填充图案拉伸小插件：http://bbs.mjtd.com/thread-181607-1-1.html
可以直接代替CAD原拉伸S命令！！