[求助]■ 属性块数值刷为何失效

zhuquanmao

关于属性块的 我自己根据网上的帖子 编了个程序：提取一个属性块A中的值去刷另一个属性块B 可以刷 我将属性块A复制出属性块A1 再用A1刷B 也没问题 但当再用A去刷B时就不管用了 不知道是怎么回事 请教下大家
源码如下：

2. (defun c:BFB (/ zqm ename pipe_number elist line_size ssa n index 1st txt txt1)
3.   (setq zqm nil)
4.   (while (= zqm nil)
5.     (setq zqm (entsel "\n选择管道标注: "))
6.     (if zqm
7.       (if (and
8.     (/= "INSERT" (cdr (assoc 0 (entget (car zqm)))))
9.     (/= "LINE_NUMBER" (cdr (assoc 2 (entget (car zqm)))))
10.   )
11. (setq zqm nil)
12.       )
13.     )
14.   )
15.   (setq ename (entnext (car zqm)))
16.   (while ename
17.     (setq elist (entget ename))
18.     (if (and
19.   (= (cdr (assoc 0 elist)) "ATTRIB")
20.   (= (cdr (assoc 2 elist)) "PIPE_NO")
21. )
22.       (setq Pipe_number (cdr (assoc 1 elist)))
23.     )
24.     (if (and
25.   (= (cdr (assoc 0 elist)) "ATTRIB")
26.   (= (cdr (assoc 2 elist)) "SIZE")
27. )
28.       (setq line_size (cdr (assoc 1 elist)))
29.     )
30.     (setq ename (entnext ename))
31.   )
32.   (setq ssa (ssget (list (cons 0 "INSERT") (cons 2 "VALVE"))))
33.   (setq n (sslength ssa))
34.   (setq index (- n 1))
35.   (repeat n
36.     (setq ename (ssname ssa index))
37.     (setq a (entnext ename))
38.     (while a
39.       (setq lst (entget a))
40.       (if (= "LINE_NUMBER" (cdr (assoc 2 lst)))
41. (progn
42.   (setq txt (cdr (assoc 1 lst)))
43.   (setq txt1 (cons 1 Pipe_number))
44.   (setq lst (subst
45.       txt1
46.       (assoc 1 lst)
47.       lst
48.     )
49.   )
50.   (entmod lst)
51. )
52.       )
53.       (if (= "VALVE_SIZE" (cdr (assoc 2 lst)))
54. (progn
55.   (setq txt (cdr (assoc 1 lst)))
56.   (setq txt1 (cons 1 line_size))
57.   (setq lst (subst
58.       txt1
59.       (assoc 1 lst)
60.       lst
61.     )
62.   )
63.   (entmod lst)
64. )
65.       )
66.       (if (= (cdr (assoc 1 lst)) "SEQEND")
67. (setq a nil)
68.       )
69.       (setq a (entnext a))
70.     )
71.     (entupd ename)
72.     (setq index (1- index))
73.   )
74.   (princ)
75. )

(defun c:BFB (/ zqm ename pipe_number elist line_size ssa n index 1st txt txt1)   (setq zqm nil)   (while (= zqm nil)     (setq zqm (entsel "\n选择管道标注: "))     (if zqm       (if (and     (/= "INSERT" (cdr (assoc 0 (entget (car zqm)))))     (/= "LINE_NUMBER" (cdr (assoc 2 (entget (car zqm)))))   ) (setq zqm nil)       )     )   )   (setq ename (entnext (car zqm)))   (while ename     (setq elist (entget ename))     (if (and   (= (cdr (assoc 0 elist)) "ATTRIB")   (= (cdr (assoc 2 elist)) "PIPE_NO") )       (setq Pipe_number (cdr (assoc 1 elist)))     )     (if (and   (= (cdr (assoc 0 elist)) "ATTRIB")   (= (cdr (assoc 2 elist)) "SIZE") )       (setq line_size (cdr (assoc 1 elist)))     )     (setq ename (entnext ename))   )   (setq ssa (ssget (list (cons 0 "INSERT") (cons 2 "VALVE"))))   (setq n (sslength ssa))   (setq index (- n 1))   (repeat n     (setq ename (ssname ssa index))     (setq a (entnext ename))     (while a       (setq lst (entget a))       (if (= "LINE_NUMBER" (cdr (assoc 2 lst))) (progn   (setq txt (cdr (assoc 1 lst)))   (setq txt1 (cons 1 Pipe_number))   (setq lst (subst       txt1       (assoc 1 lst)       lst     )   )   (entmod lst) )       )       (if (= "VALVE_SIZE" (cdr (assoc 2 lst))) (progn   (setq txt (cdr (assoc 1 lst)))   (setq txt1 (cons 1 line_size))   (setq lst (subst       txt1       (assoc 1 lst)       lst     )   )   (entmod lst) )       )       (if (= (cdr (assoc 1 lst)) "SEQEND") (setq a nil)       )       (setq a (entnext a))     )     (entupd ename)     (setq index (1- index))   )   (princ) )

zhuquanmao

zhuquanmao

问题已解决 谢谢大家！