질문,,리습….삼각형그리구 해치하는거 어떻게하는지.????

(defun dtr(a) (setq x (* pi (/ a 180.0))))
;;;
(defun c:ub()
(setvar “cmdecho” 0 )
(setvar “blipmode” 0 )
(command “-layer” “m” “법례” “c” “7” “” “”)
(setq p1 (getpoint “n 위치을클릭하시요:” ))
(setq p2 (polar p1 (dtr 0) 0.3))
(setq p3 (polar p2 (dtr 90.0) 0.3))
(setq p4 (polar p3 (dtr 180.0) 0.))
(command “Pline” p1 p2 p3 “c” “”)
(command “bh” ,,,,,,,,,,,,,,,
(command “-layer” “m” “현황” “c” “7” “” “”)
(princ)
)
p1 p2 p3 를 연결하고 삼각형을 해치(솔리드)로 하고싶은데..
잘안되내여..
고수님들 좀 바주세요