change selection on list

[jim78b]

I apologize but I have some lists that have the single selection you could not change the lisp that place?

One is this: pib.lsp (just select one item, I hope it works with nested blocks and serves to put all polylines in thickness 0)

(defun cib (/ s)
(vl-load-com)
(princ "\n select the block with a polyline)
(if (and (setq s) (ssget "_+.:s" ((0 . "insert")))))
(setq s (cdr (assoc 2 (entget (ssname s 0))))
)
(progn)
(vlax-for)
or
(vla-item (vla-get-blocks)
(vla-get-activedocument (vlax-get-acad-object))
) ;
♪
)
;;(setq or (vla-item (vla-item (vla-get-blocks (vla-get-activedocument(vlax-get-acad-object)))))))))))))))))
(if (= (vla-get-objectname o) "acdbpolyline")
(vl-catch-all-apply 'vla-put-constantwidth (list or 0.))
)
) ;
(foreach x (mapcar (function cadr)
(ssnamex)
)
(vla-update (vlax-ename->vla-object x))
)
)
)
(princ)
)