(if (=lb"Entity ( prompt"ln选择实体确定所需变化线宽图素的颜色:") (setq lp(csname le O)) (setq lc(car(car(cdr(edr(cdr(entget lp)))))) (if(=lc62) (setg 1l(cdr(edr(edr(edr(edr(cdr(entget lp)))))) (if(=lc66) ( prompt"Ⅶn该实体的颜色是随图层确定的( Bylayer)!") (setq bb o) ( setq kk( getstring"n终止处理过程?") (if(lc 6) (setq ll (cdr( car(cdr(edr(edr(edr(entget Ip)))) ))i()) if(= ( setq ll(getstring"hn给出颜色号:") (setq objl(sadd)) (setq jo) (while( j(sslength ob)) (setq pl(ssname objD) ( setqj (+j I)) ( setq pc(cdr(car(edr(cdr(edr(entget p)) setq Icc(car(car(edr(edr(cdr(entget p)) (if(lcc 6) ( setq pc(cdr(car(cdr(edr(edr(edr(entget p)) )i() if(=ll pc) sadd pl obj1) (if(=t"LType") (initget 1"Entity Name") ( prompt"Ⅶn选择实体确定线型或给出线型名")(if (=lb "Entity") (progn (prompt"\n 选择实体确定所需变化线宽图素的颜色：") (setq le (ssget)) (setq lp (ssname le 0)) (setq lc (car (car (cdr(cdr (cdr(entget lp))))))) (if (=lc 62) (setg 11(cdr(cdr(cdr(cdr(cdr(cdr(entget lp))))))) ) (if(=1c 66) (progn (prompt"\n 该实体的颜色是随图层确定的(Bylayer)!") (setq bb 0) (setq kk(getstring"\n 终止处理过程?")) ) ) (if(=lc 6) (setq ll (cdr(car (cdr(cdr(cdr(cdr(entget lp)))))))) ) ) (if(=lb"Number") (setq ll(getstring"\n 给出颜色号：")) ) ) (setq objl(ssadd)) (setq j 0) (while(<j(sslength obj)) (setq pl(ssname obj j)) (setq j (+j 1)) (setq pc (cdr(car(cdr (cdr(cdr(entget pl))))))) (setq lcc(car(car(cdr(cdr(cdr(entget pl))))))) (if(=lcc 6) (setq pc (cdr(car(cdr(cdr(cdr(cdr(entget pl)))))))) ) (if(=ll pc) (ssadd pl obj1) ) ) ) ) (if(=t"LType") (progn (initget 1"Entity Name") (prompt"\n 选择实体确定线型或给出线型名")