急：有没有这样的“文本编辑”程序，类似格式刷

eroica · 发表于 2002-4-9 16:40:00

有没有这样的文本编辑程序，类似格式刷，用来刷文本，被他刷过文本内容就和第一个一样了。请高手帮忙！

南子 · 发表于 2002-4-9 23:28:00

(defun c:matchtext (/ LEN MODELTXT SSTEXT TXTENT)
  (prompt "\n请选择样本文字:")
  (setq sstext (ssget '((0 . "text"))))
  (if sstext
(progn
   (setq modeltxt (cdr (assoc 1 (entget (ssname sstext 0)))))
   (repeat (setq len (sslength sstext))
      (setq txtent (ssname sstext (setq len (1- len))))
      (entmod
      (subst (cons 1 modeltxt)
               (assoc 1 (entget txtent))
               (entget (ssname sstext len))
      )
      )
      (entupd txtent)
   )
)
  )
)