SSget Question

[Zuke]

I have a lisp and want to extend it a little. Can anyone tell me how to use ssget to get 3d polylines and attribute definitions here is an example of what im using (i just want to change text to attribute definition.

(defun c:textD (/ sset)
(if (setq sset (ssget "X" (list (cons 0 "text"))))
(command "_erase" sset "")

[rkmcswain]

For 3D polylines...?
Something like this....

(ssget '((0 . "POLYLINE")(-4 . "&")(70 . 8)))

Basically, you need to use the filtering mechanisms built into (ssget).
It's all in the developers help.

EDIT
I forgot that I had put together a post (actually 2) on this a while back.
http://cadpanacea.com/node/87
http://cadpanacea.com/node/88

[RobertB]

I have a lisp and want to extend it a little. Can anyone tell me how to use ssget to get 3d polylines and attribute definitions here is an example of what im using (i just want to change text to attribute definition.

(defun c:textD (/ sset)
(if (setq sset (ssget "X" (list (cons 0 "text"))))
(command "_erase" sset "")

Are you sure you want attribute definitions? There should be any of those in a drawing. They only belong in block definitions which are not accessible via a selection set.

Now, if you are trying to find someone else's stupid mistakes, then you just need to use the DXF entity type as described in the DXF Reference.

[Zuke]

Thanks guys for your help.

Im a hydraulic consultant and i have to clean up architects drawings all the time. That said, i xplode all blocks contained in there drawings and delete all text and attributed text (i only keep levels which i repaste in after i run my clean up lisps).
If i can select 3d polylines which i need to explode and turn into normal poly lines and delete all attributes ill be a happy chappy.

Again thanks for your help.

[Zuke]

For 3D polylines...?
Something like this....

(ssget '((0 . "POLYLINE")(-4 . "&")(70 . 8)))

Basically, you need to use the filtering mechanisms built into (ssget).
It's all in the developers help.

EDIT
I forgot that I had put together a post (actually 2) on this a while back.
http://cadpanacea.com/node/87
http://cadpanacea.com/node/88

I got the following to work but I cant get it to explode.

(defun c:polyx (/ sset)
  (ssget "x" '((0 . "POLYLINE")(-4 . "&")(70 . 8)))
  (setq sset (ssget "p"))
  (command ".erase" "p")
  (princ)
);defun

Any ideas