大神们，帮忙解决一下这个复制到层问题

e719

1. (defun M_FZ(layer2)
   
2.   (setvar "cmdecho" 0)
   
3.   (setq enn (ssget))
   
4.   (setq n 0)
   
5.   (repeat (setq nnn (sslength enn))
   
6.     (setq ent (ssname enn n))
   
7.   (command "copy" ent "" "0,0" "0,0")
   
8.   (setq ent (entlast))
   
9.   (setq ent_data(entget ent))
   
10.   (setq ent_data (subst (cons 8 layer2) (assoc 8 ent_data) ent_data ))
    
11.   (entmod ent_data)
    
12.     (setq n (1+ n))
    
13.     )
    
14.   )
    
15. (defun c:9V()  (M_FZ "9") (M_FZ "99") (M_FZ "999") (M_FZ "9999")) (princ))
    

(defun M_FZ(layer2)<br />   (setvar "cmdecho" 0)<br />   (setq enn (ssget))<br />   (setq n 0)<br />   (repeat (setq nnn (sslength enn))<br />     (setq ent (ssname enn n))<br />   (command "copy" ent "" "0,0" "0,0")<br />   (setq ent (entlast))<br />   (setq ent_data(entget ent))<br />   (setq ent_data (subst (cons 8 layer2) (assoc 8 ent_data) ent_data ))<br />   (entmod ent_data)<br />     (setq n (1+ n))<br />     )<br />   )<br /> (defun c:9V()  (M_FZ "9") (M_FZ "99") (M_FZ "999") (M_FZ "9999")) (princ))<br />

大神们，帮忙解决一下这个复制到层问题

这样需要选多好多次才能复制完成，能不能帮该成只选一次就能完成？

htlaser

(defun M_FZ( enn layer2)
  (setvar "cmdecho" 0)
  (setq n 0)
  (repeat (setq nnn (sslength enn))
    (setq ent (ssname enn n))
  (command "copy" ent "" "0,0" "0,0")
  (setq ent (entlast))
  (setq ent_data(entget ent))
  (setq ent_data (subst (cons 8 layer2) (assoc 8 ent_data) ent_data ))
  (entmod ent_data)
    (setq n (1+ n))))
(defun c:9V(/ enn)
  (setq enn (ssget))
        (M_FZ enn "9") (M_FZ enn "99") (M_FZ enn "999") (M_FZ enn "9999") (princ))

e719

htlaser 发表于 2023-11-2 09:27
(defun M_FZ( enn layer2)
  (setvar "cmdecho" 0)
  (setq n 0)

十分感谢，这就是我想要的

htlaser

1. (defun M_FZ( enn layer2)
   
2.   (setq n 0)
   
3.   (repeat (setq nnn (sslength enn))
   
4.     (setq ent (ssname enn n))
   
5.   (command "copy" ent "" "0,0" "0,0")
   
6.   (setq ent (entlast))
   
7.   (setq ent_data(entget ent))
   
8.   (setq ent_data (subst (cons 8 layer2) (assoc 8 ent_data) ent_data ))
   
9.   (entmod ent_data)
   
10.     (setq n (1+ n))))
    
11. (defun c:9V (/ cmd enn osm)
    
12.         (setq osm (getvar "osmode"))
    
13.         (setq cmd (getvar "cmdecho"))
    
14.         (setvar "osmode" 0)
    
15.         (setvar "cmdecho" 0)
    
16.   (setq enn (ssget))
    
17.         (M_FZ enn "9") (M_FZ enn "99") (M_FZ enn "999") (M_FZ enn "9999")
    
18.         (setvar "osmode" osm)
    
19.         (setvar "cmdecho" cmd)      
    
20.         (princ))

(defun M_FZ( enn layer2)<br />   (setq n 0)<br />   (repeat (setq nnn (sslength enn))<br />     (setq ent (ssname enn n))<br />   (command "copy" ent "" "0,0" "0,0")<br />   (setq ent (entlast))<br />   (setq ent_data(entget ent))<br />   (setq ent_data (subst (cons 8 layer2) (assoc 8 ent_data) ent_data ))<br />   (entmod ent_data)<br />     (setq n (1+ n))))<br /> (defun c:9V (/ cmd enn osm)<br />         (setq osm (getvar "osmode"))<br />         (setq cmd (getvar "cmdecho"))<br />         (setvar "osmode" 0)<br />         (setvar "cmdecho" 0)<br />   (setq enn (ssget))<br />         (M_FZ enn "9") (M_FZ enn "99") (M_FZ enn "999") (M_FZ enn "9999")<br />         (setvar "osmode" osm)<br />         (setvar "cmdecho" cmd)       <br />         (princ))

xyp1964

1. (defun c:tt ()
   
2.   (defun M_FZ (ss la / s0 ss1)
   
3.     (setq s0 (entlast))
   
4.     (setvar 'clayer la)
   
5.     (command "copy" ss "" "0,0" "0,0")
   
6.     (setq ss1 (ssadd))
   
7.     (while (setq s0 (entnext s0))
   
8.       (ssadd s0 ss1)
   
9.     )
   
10.     (command "chprop" ss1 "" "la" la "")
    
11.   )
    
12.   (if (setq ss (ssget))
    
13.     (mapcar '(lambda (x) (M_FZ ss x)) '("9" "99" "999" "9999"))
    
14.   )
    
15.   (princ)
    
16. )
    

(defun c:tt ()<br />   (defun M_FZ (ss la / s0 ss1)<br />     (setq s0 (entlast))<br />     (setvar 'clayer la)<br />     (command "copy" ss "" "0,0" "0,0")<br />     (setq ss1 (ssadd))<br />     (while (setq s0 (entnext s0))<br />       (ssadd s0 ss1)<br />     )<br />     (command "chprop" ss1 "" "la" la "")<br />   )<br />   (if (setq ss (ssget))<br />     (mapcar '(lambda (x) (M_FZ ss x)) '("9" "99" "999" "9999"))<br />   )<br />   (princ)<br /> )<br />