(DEFUN C:BND (/ A B poin)
;->*error* start
(defun *error* (msg)(princ "error: ")(princ msg)
(princ))
;-<*error* end
(setq a nil b nil) 
(setq poin (getpoint "pick point!"))
(SETQ A (ENTLAST))
(command "bpoly" poin "")
  (SETQ B (ENTLAST))  
  (IF (/= (cdr (assoc 5 (entget a))) (cdr (assoc 5 (entget b))))  
    (progn  
      (command "CHANGE" B "" "P" "la" "1" "")  ;;≪  사용자 지정 레이어 1를 사용 레이어로 변경하세요
      (command "pedit" B "")  
      (COMMAND "AREA" "O" B)
    )  ;;progn
  )  ;;if
  (prompt "n Successful !!")
(princ)
)