形式

Andyhon

2. 
   
3. (defun c:ab ()
   
4.   (setvar "osmode" 0)
   
5. 
   
6.   (while (setq nn (car (entsel "\n请选檡原图框")))
   
7.     (setq nn1 (entnext nn))
   
8.     (setq ww (entget nn1))
   
9.      .... snip  (略)
   
10.       (setq ww1 (entget mm))
    
11.       (setq a1 (cdr (assoc 0 ww1)))
    
12.     )
    
13.   )
    
14.   (setvar "osmode" 37)
    
15.   (princ)
    
16. ) ;_ end defun
    

<br /> (defun c:ab ()<br />   (setvar "osmode" 0)<br /> <br />   (while (setq nn (car (entsel "\n请选檡原图框")))<br />     (setq nn1 (entnext nn))<br />     (setq ww (entget nn1))<br />      .... snip  (略)<br />       (setq ww1 (entget mm))<br />       (setq a1 (cdr (assoc 0 ww1)))<br />     )<br />   )<br />   (setvar "osmode" 37)<br />   (princ)<br /> ) ;_ end defun<br />

未测...

zyhandw

没看出来这个程序是做什么用的

Andyhon

回复 1078815748 的帖子

方便上传 调试用图纸+成果 (*.Dwg) 吗?

zwqgdhl

可以把原程序语句
(setq mm1 (car (entsel"\n請選檡目標圖框")))
  (setq mm(entnext mm1))
  (setq ww1 (entget mm))
  (setq a1 (cdr(assoc 0 ww1)))


改为下面这种形式
(princ "\n可选多个<替换对象>: ")
(setq ss (ssget))  (setq i 0)
(repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq a1 (cdr (assoc 0 ssdata)))
    (setq i (1+ i))
)

zwqgdhl

完整程序即

;複製圖框內容(AB)
(defun c:ab()
  (setvar "osmode" 0)
  (setq nn (car (entsel"\n請選檡原圖框")))
  (setq nn1  (entnext nn))
  (setq ww (entget nn1))
  (setq b1 (cdr(assoc 0 ww)))
  (setq c (cdr (assoc 2 ww)))
  (setq d (cdr(assoc 1 ww)))
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(princ "\n可选多个目標圖框")
(setq ss (ssget))  (setq i 0)
(repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq a1 (cdr (assoc 0 ssdata)))
    (setq i (1+ i))
)
  (while (= b1 "ATTRIB")
     (setq flag1 1)
     (while (and (= flag1 1)(= a1 "ATTRIB"))
         (setq c1 (cdr (assoc 2 ww1)))
         (if (= c c1)
     (progn
       (setq e(assoc 1 ww1))
       (setq d1(cons 1 d))
       (setq ww2(subst d1 e ww1))
       (entmod ww2)
       (entupd mm)
       (setq flag1 0)
             ))
          (if (= flag1 1)
    (progn  
          (setq mm(entnext mm))
          (setq ww1(entget mm))
          (setq a1(cdr(assoc 0 ww1)))
    ))
     )
          (setq nn1 (entnext nn1))
          (setq ww  (entget nn1))
          (setq b1  (cdr (assoc 0 ww)))
          (setq c (cdr (assoc 2 ww)))
          (setq d (cdr (assoc 1 ww)))
          (setq mm mm1)
          (setq mm(entnext mm))
          (setq ww1(entget mm))
          (setq a1(cdr(assoc 0 ww1)))         
  )
(setvar "osmode" 37)
  (princ)
);end defun

ljpnb

未测试

2. 
   
3. ;;;複製圖框內容(AB)
   
4. (defun c:ab ()
   
5.   (setvar "osmode" 0)
   
6.   (if (setq nn (car (entsel "\n請選檡原圖框")))
   
7.     (progn
   
8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
9.       (princ "\n可选多个目標圖框: ")
   
10.       (if (setq ss (ssget)
    
11.   i  0
    
12.    )
    
13. (repeat (sslength ss)
    
14.    (setq nn1 (entnext nn))
    
15.    (setq ww (entget nn1))
    
16.    (setq b1 (cdr (assoc 0 ww)))
    
17.    (setq c (cdr (assoc 2 ww)))
    
18.    (setq d (cdr (assoc 1 ww)))
    
19.    (setq mm1 (ssname ss i))
    
20.    (setq mm (entnext mm1))
    
21.    (setq ww1 (entget mm))
    
22.    (setq a1 (cdr (assoc 0 ww1)))
    
23.    (while (= b1 "ATTRIB")
    
24.      (setq flag1 1)
    
25.      (while (and (= flag1 1) (= a1 "ATTRIB"))
    
26.        (setq c1 (cdr (assoc 2 ww1)))
    
27.        (if (= c c1)
    
28.   (progn
    
29.     (setq e (assoc 1 ww1))
    
30.     (setq d1 (cons 1 d))
    
31.     (setq ww2 (subst d1 e ww1))
    
32.     (entmod ww2)
    
33.     (entupd mm)
    
34.     (setq flag1 0)
    
35.   )
    
36.        )
    
37.        (if (= flag1 1)
    
38.   (progn
    
39.     (setq mm (entnext mm))
    
40.     (setq ww1 (entget mm))
    
41.     (setq a1 (cdr (assoc 0 ww1)))
    
42.   )
    
43.        )
    
44.      )
    
45.      (setq nn1 (entnext nn1))
    
46.      (setq ww (entget nn1))
    
47.      (setq b1 (cdr (assoc 0 ww)))
    
48.      (setq c (cdr (assoc 2 ww)))
    
49.      (setq d (cdr (assoc 1 ww)))
    
50.      (setq mm mm1)
    
51.      (setq mm (entnext mm))
    
52.      (setq ww1 (entget mm))
    
53.      (setq a1 (cdr (assoc 0 ww1)))
    
54.    )
    
55.    (setq i (1+ i))
    
56. )
    
57.       )
    
58.     )
    
59.   )
    
60.   (setvar "osmode" 37)
    
61.   (princ)
    
62. )     ;end defun
    

<br /> ;;;複製圖框內容(AB)<br /> (defun c:ab ()<br />   (setvar "osmode" 0)<br />   (if (setq nn (car (entsel "\n請選檡原圖框")))<br />     (progn<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />       (princ "\n可选多个目標圖框: ")<br />       (if (setq ss (ssget)<br />   i  0<br />    )<br /> (repeat (sslength ss)<br />    (setq nn1 (entnext nn))<br />    (setq ww (entget nn1))<br />    (setq b1 (cdr (assoc 0 ww)))<br />    (setq c (cdr (assoc 2 ww)))<br />    (setq d (cdr (assoc 1 ww)))<br />    (setq mm1 (ssname ss i))<br />    (setq mm (entnext mm1))<br />    (setq ww1 (entget mm))<br />    (setq a1 (cdr (assoc 0 ww1)))<br />    (while (= b1 "ATTRIB")<br />      (setq flag1 1)<br />      (while (and (= flag1 1) (= a1 "ATTRIB"))<br />        (setq c1 (cdr (assoc 2 ww1)))<br />        (if (= c c1)<br />   (progn<br />     (setq e (assoc 1 ww1))<br />     (setq d1 (cons 1 d))<br />     (setq ww2 (subst d1 e ww1))<br />     (entmod ww2)<br />     (entupd mm)<br />     (setq flag1 0)<br />   )<br />        )<br />        (if (= flag1 1)<br />   (progn<br />     (setq mm (entnext mm))<br />     (setq ww1 (entget mm))<br />     (setq a1 (cdr (assoc 0 ww1)))<br />   )<br />        )<br />      )<br />      (setq nn1 (entnext nn1))<br />      (setq ww (entget nn1))<br />      (setq b1 (cdr (assoc 0 ww)))<br />      (setq c (cdr (assoc 2 ww)))<br />      (setq d (cdr (assoc 1 ww)))<br />      (setq mm mm1)<br />      (setq mm (entnext mm))<br />      (setq ww1 (entget mm))<br />      (setq a1 (cdr (assoc 0 ww1)))<br />    )<br />    (setq i (1+ i))<br /> )<br />       )<br />     )<br />   )<br />   (setvar "osmode" 37)<br />   (princ)<br /> )     ;end defun<br />