2 Click solid hatch

[Anonymous]

Dears,

Anybody can make a lisp routine for make easy solid hatch with just 2 click. like rectangle command while there have the solid hatch inside.

Thanks in advance.

[marko_ribar · Accepted solution]

(defun c:rh ( / hpn )
  (setq hpn (getvar 'hpname))
  (setvar 'hpname "SOLID")
  (command "_.RECTANGLE")
  (while (< 0 (getvar 'cmdactive)) (command "\\"))
  (command "_.-BHATCH" "_S" (ssadd (entlast)))
  (while (< 0 (getvar 'cmdactive)) (command ""))
  (setvar 'hpname hpn)
  (princ)
)