来自[链接](http://bbs.mjtd.com/forum.php?mod=viewthread&tid=168686&extra=page%3D3%26filter%3Dtypeid%26typeid%3D107&page=1) 效果图:  源码： ``` ;调整填充基点及角度 ;2006以上支持快速基点修改 ;修改 OSOPTIONS 可控制是否忽略捕捉填充， ;by edata (vl-load-com) (defun c:ng:hatch-rotate (/ p ss en obj ang) (if (setq ss (ssget ":E:S" ' ( (0 . "hatch")))) (progn (setq en (ssname ss 0)) (setq obj (vlax-ename->vla-object en)) (if (vlax-property-available-p obj 'Origin) (setq p (getpoint "\\n指定新的填充基点:")) (princ "\\n该版本不支持快速更改填充基点....") ) (setq ang (getangle "\\n指定新的填充角度:")) (if p (vla-put-Origin obj (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble ' (0 . 1)) (list (car p) (cadr p)) ) ) ) (if ang (vla-put-PatternAngle obj ang) ) (vla-update obj) ) ) (princ)) ```