Rooster
2nd Nov 2009, 12:26 pm
Can someone look over the LISP below and tell me if you can why it's not picking anything up? There are objects in my drawing with the linetype that I'm trying to pick, but it's getting to the end of the LISP and saying 'nothing found'. Can anyone see what's wrong please?
(defun c:fhl(/ cSet)
(setq cSet(ssget
'((6 . "#RVeg"))
); end ssget
); end setq
(if cSet
(progn
(princ(strcat "\n" (itoa(sslength cSet)) " found."))
(sssetfirst nil cSet)
); end progn
(princ "\nNothing found. ")
); end if
(princ)
); end of c:fhl
(defun c:fhl(/ cSet)
(setq cSet(ssget
'((6 . "#RVeg"))
); end ssget
); end setq
(if cSet
(progn
(princ(strcat "\n" (itoa(sslength cSet)) " found."))
(sssetfirst nil cSet)
); end progn
(princ "\nNothing found. ")
); end if
(princ)
); end of c:fhl