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

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

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

南子 · 发表于 2002-4-9 19:05:00

eroica · 发表于 2002-4-9 20:58:00

mccad · 发表于 2002-4-9 21:34:00

eroica · 发表于 2002-4-9 22:34: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)
   )
)
  )
)

eroica · 发表于 2002-4-9 23:54:00

用了一下，挺管用。就是要是能像刷子一样，一刷就立改就更好了。
另外结尾总有 <Entity name: 4138a8d0>之类
谢谢！

e2002 · 发表于 2002-4-10 18:14:00

e2002 · 发表于 2002-4-10 18:16:00

用PropertiesManager,直接改你选中的那些文字对象的Content即可

南子 · 发表于 2002-4-11 16:30:00

[此贴子已经被作者于2002-4-11 16:30:34编辑过]

账号		自动登录	找回密码
密码			注册

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

命令MATCHPROP应该可以吧！

我说的是文本内容，比如a,b,c,d,被a刷过后b，c，d都变成a了

用查找/替换命令不就行了

但不够快，因为要经常用到

只好自己做一个程序

太谢谢南子了！挺好用

最简单的

最简单的...