;Handy AutoCAD-12 Hatch Edit 06/08/2009
;Author: Alex Borodulin
;NYacad, Inc. http://www.nyacad.com
(defun C:HAS(/ gp) (setq gp (ssget))(command "-hatchedit" gp "as" pause));Convert hatch to associative
(defun C:HBO(/ gp) (setq gp (ssget))(command "-hatchedit" gp "b" "p" "y"));Add boundary to hatch
(defun C:HF(/ gp) (setq gp (ssget))(command "-hatchedit" gp "O" "S" pause "N"));Hatch Fix
(defun C:HS(/ gp) (setq gp (ssget))(command "-hatchedit" gp "H"));Hatch Separate

Advertisements