[编程交流] 帮助循环#039；转换Byl

(defun c:LayMod (/ aDoc lyrsColl ltpotd Lyrs ss ent nme)
 (vl-load-com)
 (setq aDoc  (vla-get-ActiveDocument (vlax-get-acad-object))
lyrsColl (vla-get-layers aDoc)
ltpotd  (vla-get-linetypes aDoc)
 )
 (defun _dxf (ent dx_) (cdr (assoc dx_ ent)))
 (defun _lyslst (/ Laylst)
   (while (setq a (tblnext "Layer" (null a)))
     (if (not (wcmatch (_dxf a 2) "*|*"))
(progn (setq lyp (tblsearch "Layer" (_dxf a 2)))
       (setq
  Laylst (append
    (list (_dxf a 2) (itoa (_dxf a 62)) (_dxf a 6))
    Laylst
  )
       )
)
     )
   )
   Laylst
 )
 (setq Lyrs (_lyslst))
 (if (ssget ":L" '((0 . "~VIEWPORT")))
   (progn
     (vlax-for itm (setq ss (vla-get-ActiveSelectionSet aDoc))
(setq nme (member (vla-get-layer itm) Lyrs))
    (vla-put-layer
      itm
      (if (vl-catch-all-error-p
     (vl-catch-all-apply
       'vla-item
       (list lyrsColl
      (setq lynm (strcat (cadr nme) (caddr nme)))
       )
     )
   )
 (progn (vla-add lyrsColl lynm)
        (vla-put-color
   (vla-item lyrsColl lynm)
   (atoi (cadr nme))
        )
        (if (= nil (tblsearch "LTYPE" (caddr nme)))
   (vla-add (vla-get-linetypes ltpotd (caddr nme)))
        )
        (vla-put-linetype
   (vla-item lyrsColl lynm)
   (caddr nme)
        )
        lynm
 )
 lynm
      )
    )
    (vla-put-linetype itm "ByLayer")
    (vla-put-color itm acByLayer)
  )
     (vla-delete ss)
   )
 )
 (princ)
)

(defun c:TesT (/ ss sset e l New)
 ;; Tharwat 07 Nov. 2011 ;;
 (if (setq ss (ssget "_:L"))
   (repeat (setq i (sslength ss))
     (setq sset (ssname ss (setq i (1- i))))
     (setq e (entget sset))
     (setq l (entget (tblobjname "LAYER" (cdr (assoc 8 e)))))
     (if (not
           (tblsearch
             "LAYER"
             (setq
               New (strcat (itoa (cdr (assoc 62 l))) (cdr (assoc 6 l)))
             )
           )
         )
       (progn
         (entmakex (list '(0 . "LAYER")
                         '(100 . "AcDbSymbolTableRecord")
                         '(100 . "AcDbLayerTableRecord")
                         (cons 2 New)
                         (assoc 62 l)
                         (assoc 6 l)
                         (cons 70 0)
                   )
         )
         (entmod (subst (cons 8 New) (assoc 8 e) e))
       )
       (entmod (subst (cons 8 New) (assoc 8 e) e))
     )
   )
   (princ)
 )
 (princ)
)