批量匹配文本表格

2809605473

2809605473

(defun c:NM (/ lst ss ss2 ssa ssl)
        (setq ss (ssget  (list '(0 . "TEXT,MTEXT"))))
        (setq  ssl(TableSort-H ss 4 0.1))
        (setq  ss2(XJ-Remove ssl nil))
        (setq lst
                (mapcar '(lambda(a)  
                                                         (mapcar '(lambda(x)
                                                                                                        (xj-getdxf (car x) 1)
                                                                                                )
                                                                 a
                                                         )
                                                 )
                        ss2
                )
        )
        (setq ssa (ssget  (list '(0 . "TEXT,MTEXT"))))
        (mapcar '(lambda(a)   
                                                 (setq txt(xj-getdxf a 1))
                                                 (setq pt(xj-5pt a 4) )
                                                 (setq box(BF-Mat-ScaleByMatrix(GetTextBox a) pt 1.5) )
                                                 (setq ent(xj-recs box))        
                                                 (xj-copy ent (cadr box)(car box))                                       
                                                 (xj-copy a (cadr box)(car box))
                                                 (if(setq aslst(assoc txt  lst ))
                                                         (progn
                                                                 (setq ztxt(cadr aslst))                                
                                                                 (xj-putdxf (entlast) 1 ztxt)
                                                         )
                                                         (progn
                                                                 (xj-putdxf (entlast) 1 "無效")
                                                                 (vla-put-color (vlax-ename->vla-object (entlast)) 1)
                                                         )
                                                 )
                                         )        
                (vl-remove-if-not '(lambda(x)(= 'ENAME (type x))) (mapcar 'cadr (ssnamex ssa)))
        )
)                                                                                                                                                                                                                                                                                                                                                                                                                                           各路大神们，能否帮忙完善一下这个代码！！万分感激。