Get objects in one point

[arrowman]

Hello,
I try to choose objects in one point. I use:

Code: Select all

(setq PtsList ( list (setq P1(getpoint "P1")) (setq p2(getpoint P1 "P2")) ))
setq ss (ssget "CP" PtsList))
(prin1 (sslength ss ))


I choose two times the same point. And I have error:

; ----- Error around expression -----
(SSLENGTH SS)
;
; error : bad argument type <NIL> ; expected SELECTIONSET at [SSLENGTH]

Please, help me:-)

Regards,
A.

[nuntius]

From a web search, this appears to be Autolisp.

Here's your code, refactored to be more readable to my eye.

Code: Select all

(setq P1 (getpoint "P1"))
(setq p2 (getpoint P1 "P2"))))
(setq PtsList (list P1 p2))
(setq ss (ssget "CP" PtsList))
(prin1 (sslength ss))


Based on your error message, it appears that the ssget is failing and returning NIL instead of a SELECTIONSET object; but I don't know enough about that function to understand why.