ssget 을 포인트로 할수 잇는방법??

   (setq cl (getvar “clayer”))
   (prompt “nCommand: 횡단만들기…”)
   (setq pt1 (getpoint “n 수량표좌상단클릭 “))
   (setq pt2 (list (+(car pt1) 4)(-(cadr pt1) 0.75)))
   (setq pt3 (list (+(car pt1) 5.4)(cadr pt1)))
   (setq pt4 (list (+(car pt1) 7.0)(-(cadr pt1) 0.75)))
  (setq tx1 (ssget ‘((-4 . “<or”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “or>”))))
  (command pt1 pt2 “”)
  (setq tx1 (ssget ‘((-4 . “<or”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “or>”))))
  (command pt3 pt4 “”)
   (setvar “osmode” 0)
  )


이게 외 안될까여 한번에 가고 싶은데 안돼요/ㅜ/ㅜ