按线型更改图层[原创]

jingsabing

;这是一个基于AutoCAD 14.0下关于改变线的图层的程序
;它可以改变中心线到CENTER层,虚线到HIDDEN层,实线到CONT_C层,细实线到CONT_X层
;本程序附属文件:SUNC_A0~A4.DWG,UNC_DATA
;本程序作者b.w
;本程序无偿使用
;如有更好建议，请联系b.w
;版本:0.0.00
;日期:29/9-2001

(defun B_CHANGE_LAYER
  (
  /
  B_sset_length
  B_sset_byte
  B_sset_i
  )
  (setvar "OSMODE"        0)
  (setq B_sset_length (sslength B_sset))
  (if (/= B_sset_length 0)
   (progn
     (setq B_sset_i 0)
     (while (> B_sset_length B_sset_i)
      (setq B_sset_byte (ssname B_sset B_sset_i))
      (cond ((= (cdr (assoc 6 (entget B_sset_byte))) "CENTER")
               (command "change" B_sset_byte "" "" "LA" "_center" "LT" "BYLAYER" ""
               );end-command
            );end-center
            ((= (cdr (assoc 6 (entget B_sset_byte))) "HIDDEN")
               (command "change" B_sset_byte "" "" "LA" "_hidden" "LT" "BYLAYER" ""
               );end-command
            );end-hidden
            ((= (cdr (assoc 6 (entget B_sset_byte))) "HANTOM")
               (command "change" B_sset_byte "" "" "LA" "_phan" "LT" "BYLAYER" ""
               );end-command
            );end-hidden
            ((= (cdr (assoc 6 (entget B_sset_byte))) "CONTINUOUS")
               (command "change" B_sset_byte "" "" "LA" "_cont_x" "LT" "BYLAYER" ""
               );end-command
            );end-P_cont_x
            (T   
               (command "change" B_sset_byte "" "" "LA" "_cont_c"  ""
               );end-command
            )
      );end-cond
      (setq B_sset_i (1+ B_sset_i))
     );end-while
   );end-progn
  );end-if
);end-B_CHANGE_LAYER

(defun B_CHANGE
  (
  /
  B_sset
  )
  (setvar "ATTDIA"        1)
  (setvar "OSMODE"        0)
  (setq B_sset (ssget))
  (B_CHANGE_LAYER)
  (setvar "OSMODE"       51)
  (princ)
);end-B_CHANGE