拉伸——支持填充图案，取消关联性填充的编辑

hadessna

源帖地址：http://bbs.mjtd.com/forum.php?mo ... hlight=%C0%AD%C9%EC

原拉伸会把关联性的填充弄成非关联，有时候会对作图造成一定的麻烦。研究了一下，就在hatchedit执行前把s1变量增加一个条件函数就可以了，填充关联性的组码是71，当他的值是0的时候，填充就是不关联的，值为1的时候，就是关联的，只对0的填充执行hatchedit即可，关键函数为

(if sg (while (setq s1 (ssname sg (setq i (1+ i))))
  (setq ent-data (entget s1))
  (if  
    (= (cdr (assoc 71 ent-data)) 0) ;检查填充是否关联
    (command "-hatchedit" s1 "b" "p" "y")
  )))
会改的自己改。有两处地方要修改，都是一样的。
伸手党收一个币，缺币用，在原贴6.0的基础上修改的。

PS：中望也可以用

magicheno

感谢大佬分享

你有种再说一遍

拉伸填充在Lisp做不完美的,还是要改用C#,尤其是长事务处理上面.
https://www.cnblogs.com/JJBox/p/18507836