고수님 도와주세요 마지막에 그린것을 인식못해요

(defun c:qq()
  (setq p1 (getpoint “시작점: “))
  (setq num3 (getpoint “기준포인트”))
  (setq qqq (command :”DIMLINEAR” p1 “@300<180”  num3 ))
 
  (command :”array”  qqq   “”     “r”  “1”  “6”  “400”)
  )