(if (setq selset
(ssget '
((0 .
"ARC,CIRCLE,LINE,POLYLINE,TEXT,MTEXT")))) ;; (command "._change" ent "" "P" "la" "Fibermgt_015" "")
;; do smth
)
;; The code below uses '=' .. you need wcmatch to check multiple items at once
;; (command "._change" ent "" "P" "C" "15" "")
;; Use entmod instead of command calls
;; do smth else
)
;;; ((= (cdr (assoc 0 (entget ent))) "CIRCLE")
;;; (command "._change" ent "" "P" "C" "15" "")
;;; ;; do smth else
;;; )
;;; ((= (cdr (assoc 0 (entget ent))) "POLYLINE")
;;; (command "._change" ent "" "P" "C" "15" "")
;;; ;; do smth else
;;; )
;;; ((= (cdr (assoc 0 (entget ent))) "ARC")
;;; (command "._change" ent "" "P" "C" "15" "")
;;; ;; do smth else
;;; )
) ;_ end of cond
) ;_ end of foreach
)