topic Re: (ssget list) not working in Visual LISP, AutoLISP and General Customization Forum

(ssget list) not working

nychoe1 — Sun, 27 Dec 2015 06:57:49 GMT

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") ???

Re: (ssget list) not working

kerry_w_brown — Sun, 27 Dec 2015 10:58:41 GMT

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" "")
  )
)

Re: (ssget list) not working

nychoe1 — Mon, 28 Dec 2015 00:28:45 GMT

oh, it is good working thanks KerryBrown.