(ssget list) not working

[nychoe1]

I edited a lisp, but not working

what is wrong?  let me know.

(defun c:test ()
(setq pt (getpoint))
(setq ss (ssget "c" pt (list "@500.0 -500.0") (list (cons 0 "circle") ))) ; I want to get other corner @Anonymous,-500 from pt.
(command "change" ss "" "p" "c" "6" "")
)

maybe, it problem is  ->>  (list "@500.0 -500.0") ???

[kerry_w_brown]

Perhaps try something like this :

(defun c:doit ( / pt ss )
  (if (and (setq pt (getpoint "\nSelect work point :"))
           (setq ss (ssget "c"
                           pt
                           (mapcar '+ (list 500.0 -500.0 0.0) pt)
                           (list (cons 0 "circle"))
                    )
           )
      )
    (vl-cmdf "_change" ss "" "p" "c" "6" "")
  )
)

[nychoe1]

oh, it is good working thanks KerryBrown.