[求助]：郁闷!一属性分解为文字的lisp源码,但会改变cad配置,请教高手

好为人师

以下程序加载后,会使cad2002几个命令变为不能先选择对象,后执行命令,例如复制,带基点复制,显示顺序置上,先选择对象后打开特性窗口也提示为无选择.而大多数命令,如co,m等又正常,试过几台机子都是这样,卸载该程序也不行,只能重装cad2002解决,非常郁闷中.哪位高人能指点一下?

(defun C:TAG2TXT ()
  (setq sset (ssget '((0 . "ATTDEF"))))
  (setq num (sslength sset) itm 0)
  (while (< itm num)
    (setq hnd (ssname sset itm))
    (setq ent (entget hnd))
    (setq new '((0 . "TEXT")))
    (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
    (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
    (foreach grp dolst
      (setq addto (assoc grp ent))
      (if (/= addto nil)
        (setq new (append new (list (assoc grp ent))))
      )
    )
    (entdel hnd)
    (entmake new)
    (setq itm (1+ itm))
  )
  (princ)
)

zxq0220

看不出什么。估计是某个变量与系统内部定义的函数同名了。解决的办法，将程序内用的变量写成内部变量。

好为人师

具体怎么改?能不能给出修改后的lisp?非常感谢

zxq0220

2. 
   
3. (defun C:TAG2TXT (/ sset num hnd ent new dolst grp addto itm)
   
4. (setq sset (ssget '((0 . "ATTDEF"))))
   
5. (setq num (sslength sset) itm 0)
   
6. (while (< itm num)
   
7. (setq hnd (ssname sset itm))
   
8. (setq ent (entget hnd))
   
9. (setq new '((0 . "TEXT")))
   
10. (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
    
11. (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
    
12. (foreach grp dolst
    
13. (setq addto (assoc grp ent))
    
14. (if (/= addto nil)
    
15. (setq new (append new (list (assoc grp ent))))
    
16. )
    
17. )
    
18. (entdel hnd)
    
19. (entmake new)
    
20. (setq itm (1+ itm))
    
21. )
    
22. (princ)
    
23. )
    

<br /> (defun C:TAG2TXT (/ sset num hnd ent new dolst grp addto itm) <br /> (setq sset (ssget '((0 . "ATTDEF")))) <br /> (setq num (sslength sset) itm 0) <br /> (while (< itm num) <br /> (setq hnd (ssname sset itm)) <br /> (setq ent (entget hnd)) <br /> (setq new '((0 . "TEXT"))) <br /> (setq new (append new (list (cons 1 (cdr (assoc 2 ent)))))) <br /> (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)) <br /> (foreach grp dolst <br /> (setq addto (assoc grp ent)) <br /> (if (/= addto nil) <br /> (setq new (append new (list (assoc grp ent)))) <br /> ) <br /> ) <br /> (entdel hnd) <br /> (entmake new) <br /> (setq itm (1+ itm)) <br /> ) <br /> (princ) <br /> )<br />