2809605473 发表于 2022-3-19 22:01:16

批量匹配文本表格

本帖最后由 2809605473 于 2022-3-20 14:55 编辑

2809605473 发表于 2022-3-19 22:03:06

本帖最后由 2809605473 于 2022-3-19 22:05 编辑

(defun c:NM (/ lst ss ss2 ssa ssl)
      (setq ss (ssget(list '(0 . "TEXT,MTEXT"))))
      (setqssl(TableSort-H ss 4 0.1))
      (setqss2(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 txtlst ))
                                                         (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)))
      )
)                                                                                                                                                                                                                                                                                                                                                                                                                                           各路大神们，能否帮忙完善一下这个代码！！万分感激。                                                                                                                                          
页: [1]
查看完整版本: 批量匹配文本表格