[求助]：如何文本覆盖

lxw917 · 发表于 2002-12-22 17:33:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

:1
请教：用何命令可进行文本覆盖，从而不需COPY后还要ERASE了。

cxx · 发表于 2002-12-22 17:39:59

用move不就可以？

韦老宝2002 · 发表于 2002-12-22 17:46:48

剪切也可以吧

lxw917 · 发表于 2002-12-25 20:04:45

哪些都太烦了，我说的是只要在复制文本上点一下，再在被复制文本上点一下，两下
搞定的！

fjw_ok · 发表于 2002-12-25 20:23:47

你是说替换吧？

lxw917 · 发表于 2002-12-25 21:27:43

不是CHT之类，我曾经看到有人用过。

XDSoft · 发表于 2002-12-25 21:33:03

最初由 lxw917 发布
[B]不是CHT之类，我曾经看到有人用过。 [/B]

用晓东工具箱－文字工具里面去找找吧，肯定有你说的功能。

大地 · 发表于 2002-12-27 12:34:43

用此LSP可行
(defun c:tc()
  (command "undo" "be")
  (setq e (entsel "\nThe Text Object:"))
  (if e
(progn
   (setq e (entget (car e)))
   (if (/= "TEXT" (cdr (assoc '0 e))) (setq e nil))
)
  )
  (if e
(progn
   (setq e0 (ssget '((0 . "text"))))
   (setq a1 0)
   (setq obtext (cdr (assoc '1 e)))
   (while (setq e1 (ssname e0 a1))
      (setq a1 (1+ a1))
      (setq e (entget e1))
      (setq e (subst (cons 1 obtext)(assoc '1 e) e))
      (entmod e)
   )
)
  )
  (command "undo" "e")
  (princ)
)
(princ)

lxw917 · 发表于 2002-12-29 19:12:35

很好用，只是撤销得连续三次UNDO

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

[求助]：如何文本覆盖

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块