topic Re: bad SSGET List Error in Visual LISP, AutoLISP and General Customization Forum

bad SSGET List Error

GeryKnee — Sat, 12 Nov 2022 02:12:50 GMT

Hi everyone,

the following :::

(defun ssAllObjOnLayer ( EntName LayerName / )
(ssget "x" (list '(0 . EntName) (cons 8 LayerName)))
)

(defun SelectTheSingleObjectOnLayer( EntName LayerName / ss)
(if(AND(setq ss (ssAllObjOnLayer EntName LayerName))
(= ((sslength ss) 1)))
(sssetfirst nil ss)
)
ss
)

(defun c:xx ( / )
;;(DeselectAll)
(SelectTheSingleObjectOnLayer "TEXT" "KTHViewBounds")
(princ)

)

causes a bad SSGET List Error

Needs Correction

Thanks,

Gery

Re: bad SSGET List Error

paullimapa — Sat, 12 Nov 2022 03:23:35 GMT

Since EntName is a symbol just like LayerName, then you have to use cons:

(ssget "x" (list (cons 0 EntName) (cons 8 LayerName)))

Re: bad SSGET List Error

pbejse — Sat, 12 Nov 2022 05:13:30 GMT

@GeryKnee wrote:
..causes a bad SSGET List Error

Hi Gerry

The quote(') symbol treats the expression as it is written, so this line

(list '(0 . EntName) (cons 8 LayerName))

will result to

((0 . ENTNAME) (8 . "KTHViewBounds"))

the list reads the variable ENTAME literally, DXF 0 requires a string, hence the error bad SSGET List

The line should be like this

(ssget "x" (list (cons 0 EntName) (cons 8 LayerName)))

using cons to create a dotted pair.

Also this line at SelectTheSingleObjectOnLayer sub-function

(= ((sslength ss) 1))

will result "error: bad function", lisp will evaluate the (sslength ss) as a local function, it should be written as

(= (sslength ss) 1)

"=" as the function and (sslength ss) and 1 as the arguments

HTH

Re: bad SSGET List Error

GeryKnee — Sat, 12 Nov 2022 13:15:40 GMT

Hello Sir,

Still problems exist

a simple code

(defun Sel( EntName LayerName / ss)
(if(setq ss (ssget "x" (list (cons 0 EntName) (cons 8 LayerName))))

(princ "found")
(princ " not found")
)
(princ)
)

(defun c:xx ( / )
(Sel "TEXT" "KTHViewBounds")
)

returns " error"

Something goes on errorly

Thanks,

Gery

Re: bad SSGET List Error

Kent1Cooper — Sat, 12 Nov 2022 13:27:16 GMT

@GeryKnee wrote:

....

returns " error"

....

Surely that isn't all it says.

Re: bad SSGET List Error

GeryKnee — Sat, 12 Nov 2022 14:10:47 GMT

Thank you sir

So please let me know,

how could this return an ss containing all entities

named EntName laying on layer LayerName

Thanks

Gery

Re: bad SSGET List Error

paullimapa — Sat, 12 Nov 2022 15:51:16 GMT

I modified your code so that it actually returns ss after running subfunction Sel:

(defun Sel( EntName LayerName / ss)

(if(setq ss (ssget "x" (list (cons 0 EntName) (cons 8 LayerName))))

(princ "found")

(princ " not found")

)

(princ)

ss ; <-------- added this

)

(defun c:xx ()

(Sel "TEXT" "KTHViewBounds")

)

Now at the Command prompt type:

(setq ss (c:xx))

Selection set if found will now be set to ss

Then you can check using LIST command then enter !ss at command prompt to see Text objects selected.

Re: bad SSGET List Error

pbejse — Sat, 12 Nov 2022 17:18:45 GMT

@GeryKnee wrote:
.. returns " error"..

What you posted there wouldn't even produce an error regardless the object is found or not, unless you still running the previous version of (c:XX). Make sure you load the latest and correct function.

Re: bad SSGET List Error

GeryKnee — Sat, 12 Nov 2022 20:42:15 GMT

Sorry.

The problem was that "KTH" part of layername in document was written with greek chars.

These chars have the same shape as UK Chars.

So, realy, the layer named "Z-KTHViewBounds" didn't exist (existed "Z-ΚΤΗViewBounds"

Thank you very much.

Gery.