Can someone tell me why this does not work:
(setq sel (ss_get ":E:S"))
(mapcar '(lambda (x)
(if (/= x obj)
(ssdel x sel)
)
)
(ssnames sel)
)
But this does work:
(setq sel (ss_get ":E:S"))
(mapcar '(lambda (x)
(if (not (equal x obj))
(ssdel x sel)
)
)
(ssnames sel)
)
Here is the helper function SSNAMES:
(defun ssnames (selection_set / num lst)
(repeat (setq num (sslength selection_set))
(setq num (1- num)
lst (cons (ssname selection_set num) lst)
)
)
lst
)
This is baffling to me. If someone can explain this please do.
Thanks,