[编程交流] Enter使例程在最后选中的具有意外结果的项目上运行。

(defun c:futlyr ( / i lyrname s x )
(prompt "\nSelect Object to Set to -F Construction Layer")
   (setq s (ssget ":L" '((8 . "S*"))))
        (repeat (setq i (sslength s))
        (setq x (entget (ssname s (setq i (1- i))))
              lyrname (cdr (assoc 8 x))
              n (strcat (substr lyrname 1 (- (strlen lyrname) 0)) "-F") ;;(strlen old_suffix)))))
        )
            (if (not (tblsearch "layer" n))
              (progn (setq e (entget (tblobjname "layer" lyrname)))
               (entmake (subst (cons 2 n) (assoc 2 e) (subst '(62 . 1) (assoc 62 e) e)))
              )
            )
              (entmod (subst (cons 8 n) (assoc 8 x) x))
          )  
 
  (prompt "\nAll objects have been moved to -F construction layer")
  (princ)
)
 
(c:futlyr)

(defun c:futlyr (/ s layname x n i)
  (prompt "\nSelect Object to Set to -F Construction Layer")
  (setq i 0)
  (setq s (ssget ":L" '((8 . "S*"))))
  (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
    (if (and (setq layname (cdr (assoc 8 (setq x (entget ent))))) (/= (substr layname (- (strlen layname) 1)) "-F"))
      (progn
        (if (not (tblsearch "layer" (setq n (strcat layname "-F"))))
          (progn
            (setq e (entget (tblobjname "layer" layname)))
            (entmake (subst (cons 2 n) (assoc 2 e) (subst '(62 . 1) (assoc 62 e) e)))
          )
        )
        (entmod (subst (cons 8 n) (assoc 8 x) x))
        (setq i (1+ i))
      )  
    )
  )
  (prompt (strcat "\n" (itoa i) " objects moved to -F construction layer"))
  (princ)
)

(if (not (tblsearch "layer" n))
              (progn (setq e (entget (tblobjname "layer" lyrname)))
               (entmake (subst (cons 2 n) (assoc 2 e) (subst '(62 . 1) (assoc 62 e) e)))
              )
            )

(defun c:futlyr (/ e i layname n s x)
  (prompt "\nSelect Object to Set to -F Construction Layer")
  (setq i 0)
  ;; Direct filter for layer that starts with S and does not end in -F
  (if (setq s (ssget ":L" '((8 . "S*,") (8 . "~*-F"))))
    (progn
      (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
        (if (setq layname (cdr (assoc 8 (setq x (entget ent)))))
          (progn (if (not (tblsearch "layer" (setq n (strcat layname "-F"))))
                   (progn (setq e (entget (tblobjname "layer" layname)))
                          (entmake (subst (cons 2 n) (assoc 2 e) (subst '(62 . 1) (assoc 62 e) e)))
                   )
                 )
                 (entmod (subst (cons 8 n) (assoc 8 x) x))
                 (setq i (1+ i))
          )
        )
      )
      (prompt (strcat "\n" (itoa i) " objects moved to -F construction layer"))
    )
  )
  (princ)
)