[求助]：更改属性值？

nuance

用下面程序修改单属性块属性值为nc，出错，不知何故。
(defun kk(/ )
  (setq n (car(entsel)))
  (setq n1 (entnext n))
  (setq dxf (entget n1))
  
  (setq new (cons 1 "nc"))
  (setq dxf (subst new (assoc 1 dxf) dxf))
  (entmod dxf)
  (entupd n1)
  )

hqd9639

谨供参考：

2. 
   
3.   [FONT=courier new]
   
4. (defun fld (num)
   
5.    (cdr (assoc num d))
   
6. )
   
7. 
   
8. (defun C:ATEDIT (/ adj p l n e os as ns st s nsl osl sl si chf chm)
   
9.    (setq p (ssget))     
   
10.    (if p (progn                     
    
11.       (setq osl (strlen (setq os (getstring "\nOld string: " t))))
    
12.       (setq nsl (strlen (setq ns (getstring "\nNew string: " t))))
    
13.       (setq l 0 chm 0 n (sslength p))
    
14.       (setq adj
    
15.          (cond
    
16.             ((/= osl nsl) (- nsl osl))
    
17.             (T nsl)
    
18.          )
    
19.       )
    
20.       (while (< l n)               
    
21.          (setq d (entget (setq e (ssname p l))))
    
22.          (if (and (= (fld 0) "INSERT")
    
23.                   (= (fld 66) 1))     
    
24.                   (progn
    
25.                      (setq e (entnext e))
    
26.                      (while e
    
27.                         (setq d (entget e))
    
28.                         (cond ((= (fld 0) "ATTRIB")
    
29.                            (setq chf nil si 1)
    
30.                            (setq s (cdr (setq as (assoc 1 d))))
    
31.                            (while (= osl (setq sl (strlen
    
32.                                          (setq st (substr s si osl)))))
    
33.                               (cond
    
34.                                  ((= st os)
    
35.                                     (setq s (strcat (substr s 1 (1- si)) ns
    
36.                                                     (substr s (+ si osl))))
    
37.                                     (setq chf t)   
    
38.                                     (setq si (+ si adj)))
    
39.                               )
    
40.                               (setq si (1+ si))
    
41.                            )
    
42.                            (if chf (progn      
    
43.                               (setq d (subst (cons 1 s) as d))
    
44.                               (entmod d)        
    
45.                               (entupd e)        
    
46.                               (setq chm (1+ chm))
    
47.                            ))
    
48.                         (setq e (entnext e))
    
49.                         )
    
50.                         ((= (fld 0) "SEQEND")
    
51.                            (setq e nil)) ; stop scan
    
52.                         (T (setq e (entnext e)))
    
53.                         );end cond
    
54.                      );end while
    
55.                   ) ;end progn
    
56.           ) ;end if
    
57.          (setq l (1+ l))
    
58.       );end while
    
59.    ))
    
60.    (princ "Changed ")     
    
61.    (princ chm)
    
62.    (princ " attributes.")
    
63.    (terpri)
    
64. )
    
65.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun fld (num)<br />    (cdr (assoc num d))<br /> )<br /> <br /> (defun C:ATEDIT (/ adj p l n e os as ns st s nsl osl sl si chf chm)<br />    (setq p (ssget))     <br />    (if p (progn                      <br />       (setq osl (strlen (setq os (getstring "\nOld string: " t))))<br />       (setq nsl (strlen (setq ns (getstring "\nNew string: " t))))<br />       (setq l 0 chm 0 n (sslength p))<br />       (setq adj <br />          (cond <br />             ((/= osl nsl) (- nsl osl))<br />             (T nsl)<br />          )<br />       )<br />       (while (< l n)                <br />          (setq d (entget (setq e (ssname p l))))<br />          (if (and (= (fld 0) "INSERT") <br />                   (= (fld 66) 1))     <br />                   (progn<br />                      (setq e (entnext e))<br />                      (while e<br />                         (setq d (entget e))<br />                         (cond ((= (fld 0) "ATTRIB") <br />                            (setq chf nil si 1)<br />                            (setq s (cdr (setq as (assoc 1 d))))<br />                            (while (= osl (setq sl (strlen<br />                                          (setq st (substr s si osl)))))<br />                               (cond<br />                                  ((= st os)<br />                                     (setq s (strcat (substr s 1 (1- si)) ns<br />                                                     (substr s (+ si osl))))<br />                                     (setq chf t)    <br />                                     (setq si (+ si adj)))<br />                               )<br />                               (setq si (1+ si))<br />                            )<br />                            (if chf (progn      <br />                               (setq d (subst (cons 1 s) as d))<br />                               (entmod d)        <br />                               (entupd e)        <br />                               (setq chm (1+ chm))<br />                            ))<br />                         (setq e (entnext e))<br />                         )<br />                         ((= (fld 0) "SEQEND")<br />                            (setq e nil)) ; stop scan<br />                         (T (setq e (entnext e)))<br />                         );end cond<br />                      );end while<br />                   ) ;end progn<br />           ) ;end if<br />          (setq l (1+ l))<br />       );end while<br />    ))<br />    (princ "Changed ")     <br />    (princ chm)<br />    (princ " attributes.")<br />    (terpri)<br /> )<br />   [/FONT]<br />

lsjjm

(defun c:changeattvalue ()
  (setq a (car (nentsel "\nSelect an Attribute: ")))
  (setq b (vlax-ename->vla-object a))
  (setq attv (getstring "Input New Value:"))
  (vlax-put-property b 'textstring attv)
  (princ)        
)

nuance

我用第1贴中的程序,在单位的R14另一张图中用时运行正常,换出错的图仍是不行,弄了半天又行了,是不是
程序中少些什么,或是有什么变量控制?

aeo

第一贴
除非(entupd n1)改为(entupd n),其他好像没错.

改属性我专门贴过的,找找.