使用ssget和ssname后修改文字出现错误

arches9

  我是菜鸟，看了一个简易教程是这样的
[size=10.000000pt](setq en3 (entsel))
[size=10.000000pt](setq en3_data (entget (car en3)))
[size=10.000000pt](setq oldr (assoc 1 en3_data))
[size=10.000000pt]setq newr (cons 1 “文字”))
[size=10.000000pt](setq en3_data (subst newr oldr en3_data))
[size=10.000000pt](entmod en3_data)
这样写是成功的，然后我使用ssget获得文字选择集，再用ssname去一一获取文字，但是出现：参数类型错误 lentityp <图元：******>
不太明白是哪里的问题，我在程序里跑了下[size=13.3333px](setq en3 (entsel))(princ en3)，发现是获取的图元名和文字的坐标，但是现在我用选择集，也要一一获取文字后使用assoc确定坐标，现在超级疑惑的，希望有好心人帮忙解答，谢谢
                        
               

ZZXXQQ

2. ;...
   
3. (setq ss (ssget '((0 . "TEXT"))))
   
4. (setq newr (cons 1 "文字"))
   
5. (repeat (setq i (sslength ss))
   
6. (setq ent (entget (ssname ss (setq i (1- i)))))
   
7. (entmod (subst newr (assoc 1 ent) ent))
   
8. )
   
9. ;...
   

;...<br /> (setq ss (ssget '((0 . "TEXT"))))<br /> (setq newr (cons 1 "文字"))<br /> (repeat (setq i (sslength ss))<br /> (setq ent (entget (ssname ss (setq i (1- i)))))<br /> (entmod (subst newr (assoc 1 ent) ent))<br /> )<br /> ;...<br />