global width to lineweight

can anyone tell me what is wrong with this one? I'm trying to select polylines that have a global width of 0.014 and change their lineweight to 0.014"

(setq ss2 (ssget "_X" (list '(0 . "LWPOLYLINE") (cons 43 0.014))) count 0)
(repeat (sslength ss2)
(setq pline (ssname ss2 count))
(setq elist (entget pline))
(setq elist (subst (cons 370 35) (assoc 370 elist) elist))
(entmod elist)
(entupd pline)
(setq count (+ count 1))
(princ)
)

can anyone tell me what is wrong with this one? I'm trying to select polylines that have a global width of 0.014 and change their lineweight to 0.014"

 

(setq ss2 (ssget "_X" (list '(0 . "LWPOLYLINE") (cons 43 0.014))) count 0)
(repeat (sslength ss2)
(setq pline (ssname ss2 count))
(setq elist (entget pline))
(setq elist (subst (cons 370 35) (assoc 370 elist) elist))
(entmod elist)
(entupd pline)
(setq count (+ count 1))
(princ)
)

Just an idea, sorry

(setq ss2 (ssget "_X" (list '(0 . "LWPOLYLINE") (cons 43 0.014))) count 0)
(repeat (sslength ss2)
(setq pline (ssname ss2 count))
(setq elist (entget pline))
(setq elist (subst (cons 43 0.35) (assoc 43 elist) elist))  
(setq elist (subst (cons 370 35) (assoc 370 elist) elist))
(entmod elist)
(entupd pline)
(setq count (+ count 1))
(princ)
)

~'J'~