批量选择文字，改文字，代码用不了

yixinexin

批量选择文字，改文字，代码用不了。本人刚学LISP，是逻辑错误还是函数用错了啊，求帮忙看下。
(DEFUN C:dff ()
  (DEFUN TEXTJOIN (E1 E2 / T1 T2)
    (SETQ T1 (ENTGET E1)
          T2 (ENTGET E2)
    )
    (ENTMOD
      (SUBST (CONS 1 (STRCAT (CDR (ASSOC 1 T1)) (CDR (ASSOC 1 T2))))
             (ASSOC 1 T1)
             T1
      )
    )

    (ENTDEL E2)
  )
  (SETQ        E1 (SSGET "X" '((0 . "*TEXT") (1 . "宗地代码*")))
        E2 (SSGET "X" '((0 . "*TEXT") (1 . "513*")))
  )
  (TEXTJOIN E1 E2)
)




该贴已经同步到 yixinexin的微博

lsjj

你的E1丶E2各只有一個嗎，如果是也要用到ssname

香田里浪人

怎么改？将“ T1”改为“ T2”？发个图说明一下。

ZZXXQQ

2. (defun c:tt ()
   
3. (defun TEXTJOIN (E1 E2 / T1 T2)
   
4.   (setq T1 (entget E1)
   
5.          T2 (entget E2))
   
6.   (entmod
   
7.    (subst (cons 1 (strcat (cdr (assoc 1 T1)) (cdr (assoc 1 T2))))
   
8.          (assoc 1 T1)
   
9.          T1
   
10.    )
    
11.   )
    
12.   (entdel E2)
    
13. )
    
14. (while (and(setq E1 (ssget ":E:S" '((0 . "*TEXT") (1 . "宗地代码*"))))
    
15.             (setq E2 (ssget ":E:S" '((0 . "*TEXT") (1 . "513*")))))
    
16.   (TEXTJOIN (ssname E1 0) (ssname E2 0))
    
17. )
    
18. (princ)
    
19. )
    

(defun c:tt ()<br /> (defun TEXTJOIN (E1 E2 / T1 T2)<br />   (setq T1 (entget E1)<br />          T2 (entget E2))<br />   (entmod<br />    (subst (cons 1 (strcat (cdr (assoc 1 T1)) (cdr (assoc 1 T2))))<br />          (assoc 1 T1)<br />          T1<br />    )<br />   )<br />   (entdel E2)<br /> )<br /> (while (and(setq E1 (ssget ":E:S" '((0 . "*TEXT") (1 . "宗地代码*"))))<br />             (setq E2 (ssget ":E:S" '((0 . "*TEXT") (1 . "513*")))))<br />   (TEXTJOIN (ssname E1 0) (ssname E2 0))<br /> )<br /> (princ)<br /> )<br />