(defun c:Hm ( / *error* _HatchIt _HatchItSub version ss i space )

(cond
( (> 15 (setq version (atoi (getvar "acadver"))))
;; shreik! AutoCAD 14 and older
(princ "Upgrade your AutoCAD mang!\n")
(defun *error* (x) (princ))
(exit)
)
( (vla-object
(ssname ss (setq i (1- i)))
)
)
)
)
)

(princ)

)
(c:hm)

Advertisements