[原创]匹配文字内容

gao6690

;;;;本程序用于将匹配文字内容

(defun c:pp()
     (print "请选择注记正确的文字：")
     (setq ss (ssget  '((0 . "text"))))
     (if ss
     (progn
     (setq ssi (ssname ss 0))       
     (setq sse (entget ssi))
     (setq nr (cdr (assoc 1 sse)))
     )
     )
     (print "请需要匹配的文字：")
     (setq ss (ssget  '((0 . "text"))))
     (if ss
     (progn
     (setq j 0)
     (setq len (sslength ss))    
     (repeat len
     (setq ssi (ssname ss j))       
     (setq sse (entget ssi))
     (setq sse (subst (cons 1 nr) (assoc 1 sse) sse))
     (entmod sse)
     (setq j (+ j 1))
     )
     )
     )
)

vlisp2012

谁能给个匹配标注文字内容，包括公差的源码？先谢过了