(vl-load-com)
(vlr-editor-reactor nil '((:vlr-commandEnded . AHC_BNCommandEnded)))

(defun AHC_BNCommandEnded (reactor value / )
(setq value (car value))
(cond ((= value "BHATCH")
(setq ed (entget (entlast)))
(entmod (subst (cons 8 "A_Schraff") (assoc 8 ed) ed))
)
)
)
(vlr-editor-reactor nil '((:vlr-commandWillStart . MyLspCommandWillStart)))

(defun MyLspCommandWillStart (reactor value / )

(setq value (car value))
(cond ((= value "PLOT")
(setvar "TEXTFILL" 1)
)))