修改天正文字失败,请教原因

zhengjian211

代码如下,运行后无任何反应
(defun C:qm ()
  (vl-load-com)
  (setq ent (entsel "\n请选择源文字："))
  (setq ob (vlax-ename->vla-object (car ent)))
   (vlax-dump-object ob)
  (setq newstring (getstring "\n输入新的文字内容\n"))  
  (setq entype (cdr (assoc 0 en_text_data)))
  (COND
    (
     (= entype "TCH_TEXT")

     (vlax-put-property ob 'Text "newstring")
    )
  )
)

ZZXXQQ

(vlax-put-property ob 'Text "newstring")
改成
(vlax-put-property ob 'Text newstring)
试试

要不用下面的程序试试：

2. (defun C:qm ()
   
3. (while (and
   
4.    (setq ent (entsel "\n请选择源文字："))
   
5.    (setq ent (entget (car ent)))
   
6.    (wcmatch (cdr(assoc 0 ent)) "*TEXT")
   
7.    (setq newtxt (getstring "\n输入新的文字内容\n")))
   
8.   (entmod (subst (cons 1 newtxt) (assoc 1 ent) ent))
   
9. )
   
10. (princ)
    
11. )
    

(defun C:qm ()<br /> (while (and<br />    (setq ent (entsel "\n请选择源文字："))<br />    (setq ent (entget (car ent)))<br />    (wcmatch (cdr(assoc 0 ent)) "*TEXT")<br />    (setq newtxt (getstring "\n输入新的文字内容\n")))<br />   (entmod (subst (cons 1 newtxt) (assoc 1 ent) ent))<br /> )<br /> (princ)<br /> )<br />

mmmmmm

变量en_text_data没定义

zhengjian211

谢谢楼上
(vlax-put-property ob 'Text "newstring")
改成
(vlax-put-property ob 'Text newstring)
依旧无效

您提供的修改组码的办法已经试过,会导致cad崩溃

wharan

修改这一句即可(setq entype (cdr (assoc 0 (entget (car ent)))))