请各位帮忙完善下程序

王与韩1

这是论坛里的 大师ZZXXQQ帮我写的一个程序，提问再三，不好意思再行叨扰，现在只支持cad文字，请大师们改为天正和cad文字均支持

• ;显示下一字 明经 ZZXXQQ 2014.7.30
  
• (defun c:tt ()
  
• (vl-load-com)
  
• (if (and(setq s1 (entsel "\n选择文字: "))
  
•          (setq ent (entget(car s1)))
  
•          (= (cdr(assoc 0 ent)) "TEXT")) (progn
  
•   (setq txt (cdr(assoc 1 ent)))
  
•   (if (>(sslength(setq ss (ssget "X" (list '(0 . "TEXT") (cons 1 txt))))) 1) (progn
  
•    (ssdel (car s1) ss)
  
•    (while (>(sslength ss) 0)
  
•     (setq en (ssname ss 0))
  
•     (ssdel en ss)
  
•     (vla-getboundingbox (vlax-ename->vla-object en) 'p1 'p2)
  
•     (setq p1 (vlax-safearray->list p1) p2 (vlax-safearray->list p2))
  
•     (command "_.ZOOM" "W" p1 p2)
  
•     (setq k (getpoint))
  
•    )
  
•   ))
  
• ))
  
• (princ)
  
• )
  
  

reyun

2. (defun c:tt ()
   
3.         (if (and(setq s1 (entsel "\n选择文字: "))
   
4.                  (setq ent (entget(car s1)))
   
5.                  (or (= (cdr(assoc 0 ent)) "TEXT") (= (cdr(assoc 0 ent)) "TCH_TEXT"))
   
6.         )
   
7.         (progn
   
8.                           (setq txt (cdr(assoc 1 ent)))
   
9.                           (if (>(sslength(setq ss (ssget "X" (list '(0 . "text,TCH_TEXT") (cons 1 txt))))) 1)
   
10.                                   (progn
    
11.                                            (ssdel (car s1) ss)
    
12.                                            (while (>(sslength ss) 0)
    
13.                                             (setq en (ssname ss 0))
    
14.                                             (command "_.ZOOM" "o" en "")
    
15.                                             (ssdel en ss)
    
16.                                             (setq k (getpoint))
    
17.                                            )
    
18.                                   )
    
19.                           )
    
20.                 )
    
21.         )
    
22.         (princ)
    
23. )

(defun c:tt ()<br />         (if (and(setq s1 (entsel "\n选择文字: "))<br />                  (setq ent (entget(car s1)))<br />                  (or (= (cdr(assoc 0 ent)) "TEXT") (= (cdr(assoc 0 ent)) "TCH_TEXT"))<br />         )<br />         (progn<br />                           (setq txt (cdr(assoc 1 ent)))<br />                           (if (>(sslength(setq ss (ssget "X" (list '(0 . "text,TCH_TEXT") (cons 1 txt))))) 1) <br />                                   (progn<br />                                            (ssdel (car s1) ss)<br />                                            (while (>(sslength ss) 0)<br />                                             (setq en (ssname ss 0))<br />                                             (command "_.ZOOM" "o" en "")<br />                                             (ssdel en ss)<br />                                             (setq k (getpoint))<br />                                            )<br />                                   )<br />                           )<br />                 )<br />         )<br />         (princ)<br /> )

王与韩1

reyun 发表于 2014-8-2 14:53

真心谢谢了

ZZXXQQ

(or (= (cdr(assoc 0 ent)) "TEXT") (= (cdr(assoc 0 ent)) "TCH_TEXT"))
可改成
(wcmatch (cdr(assoc 0 ent)) "TEXT,TCH_TEXT")

reyun

ZZXXQQ 发表于 2014-8-2 20:02
(or (= (cdr(assoc 0 ent)) "TEXT") (= (cdr(assoc 0 ent)) "TCH_TEXT"))
可改成
(wcmatch (cdr(assoc 0  ...

一直以来我i都是用OR的...
谢谢Z版，学习了，嘿嘿~

wowan1314

wcmatch  "*TEXT"
手机上没法测试！