[求助]：更改属性值？

nuance · 发表于 2003-7-22 16:17:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用下面程序修改单属性块属性值为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 · 发表于 2003-7-22 16:50:48

谨供参考：

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

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

lsjjm · 发表于 2003-7-23 15:08:09

(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 · 发表于 2003-7-23 19:43:01

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

aeo · 发表于 2003-7-23 23:32:41

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

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

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：更改属性值？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块