절단면 표시 리습 지적 부탁합니다.

기계도면에 절단면을 표시하는 선과 화살표를 넣는 리습인데
화살표안에 솔리드해칭이 되지 않습니다. 고수님들의 도움바랍니다.
==================================================================
(defun c:aa (/ sp p1 p2 p3 p4 p5)
(setq osm (getvar “osmode”) )
(setvar “cmdecho” 0) (setvar “osmode” 512)
(command “undo” “mark”)
(setq sp (getpoint “삽입점:”)) (setvar “osmode” 0)
(setq p1 (polar sp (dtr 180) 3))
(setq p2 (polar sp (dtr 0) 3))
(setq p3 (polar sp (dtr 255) 5))
(setq p4 (polar sp (dtr 285) 5))
(setq p5 (polar sp (dtr 270) 8))
(command “pline” p1 p2 sp p3 p4 sp p5 “”)
(setq p1 (polar sp (dtr 270) 8.5))
(command “text” “j” “tc” p1 4.5 0 “A” “”)
(setq p1 (polar sp (dtr 262) 3))
(setq p2 (polar sp (dtr 277) 3))
(setvar “hpname” “solid”)
(command “bhatch” “” p1 p2 “” “”)
(setvar “hpname” “ansi31”)
(setvar “osmode” osm) (setvar “cmdecho” 1)
(princ)
)