wildcard use in entsel filter

hi

trying to say

"select only line and all kind of polyline"

get wrong result

(defun c:demo (/ ent flag sel)
 (setq flag t)
 (while flag
   (if (setq ent(car(entsel "Select object")))
     (progn
       	(setq ent (entget ent))
     		(setq flag nil)

	(if (or (= (cdr(assoc 0 ent)) "LINE" )(= (cdr(assoc 0 ent)) "*POLYLINE"))
	  (alert "a supported entity were selected")
	  (alert "a unsupported entity were selected")
	)
	  
         )
)
     
   
)
 (princ)
 )

why not use (ssget) ?

why not use (ssget) ?

how would i add a select prompt to ssget?

(ssget "_A" '((0 . "LINE")))

Try to change

(or (= (cdr(assoc 0 ent)) "LINE" )(= (cdr(assoc 0 ent)) "*POLYLINE"))
;to
(wcmatch (cdr (assoc 0 ent)) "LINE,*POLYLINE")

Henrique

Thanks hanreqe

how would i add a select prompt to ssget?

 

(ssget "_A" '((0 . "LINE")))

(ssget) automatically prompts to 'Select objects: '

Does it?. How would you do the same with ssget?

AFAIK only ssget with no args or X is giving a prompt....all the rest operating with no live interaction.

Does it?. How would you do the same with ssget?

If you just want the user to select one object and act like the entsel then it would be like this:

(setq ss (ssget "_+.:E:S" '((0 . "LINE,POLYLINE,LWPOLYLINE"))))

If you want the user to be able to select multiple objects then:

(setq ss (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE"))))

(ssget) prompts if there are no automated options.

Automated options include "X" "CP" "WP"

how would i add a select prompt to ssget?

 

(ssget "_A" '((0 . "LINE")))

using ssget instead of entsel saves lots of code. thanx

If you just want the user to select one object and act like the entsel then it would be like this:

(setq ss (ssget "_+.:E:S" '((0 . "LINE,POLYLINE,LWPOLYLINE"))))

If you want the user to be able to select multiple objects then:

(setq ss (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE"))))

very usefull. thanx

You can do this with this:

;; by user gile here:
;; https://www.theswamp.org/index.php?PHPSESSID=amuofcfnqe6mf8r4g8n5j4t4h4&topic=34004.msg393324#msg393324
(defun fentsel (msg fltr / ent)
   (if
       (and
           (setq ent (if (and (= (type msg) 'STR) (/= msg ""))
               (entsel msg)
               (entsel)
               )
           )
           (wcmatch (cdr (assoc 0 (entget (car ent)))) (strcase fltr))
           )
       ent
       )
   )

Then:

(car (fentsel (strcat"\nSelect your Text :\n") "TEXT,MTEXT"))

  (while (not (setq
    ent (car (fentsel (strcat"\nSelect Polyline to offset :\n") "*POLYLINE,LINE"))
    )))