Lisp. Select Similar

Det er mange som savner Select Similar kommandoen i Autocad. Kommandoen lå inne som standard fram til versjon 2006, men forsvant i 2007 versjonen. Nå er den riktignok tilbake i Autocad 2011, men for dem som ikke har oppgradert enda så kan jo dette være av interesse.

Samme prosedyre som i de forrige to innleggene. Lim inn følgende tekst og lagre filen i .lsp format. Da har du plutselig en kommando for Select Similar. Kommandoen er "SES".

(defun c:ses ( / SSET HND LAY OBJ)
(if (/= (setq sset (ssget "_I")) nil)
(setq hnd (ssname sset 0))
(setq hnd (car (entsel "\nDS> Select Object Type: ")))
)
(if (/= hnd nil)
(progn
(setq obj (cdr (assoc 0 (entget hnd)))
lay (cdr (assoc 8 (entget hnd))))
(setq sset (ssget "_X" (list (cons 0 obj)(cons 8 lay))))
(if (> (sslength sset) 0)
(sssetfirst sset sset)
)
)
)
(princ)