如何快速替换字符？

shona521 · 发表于 2003-11-27 13:12:33

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

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

×

我在制图时总是要用“查找替换”来替换字符。但是当替换的字符太多了，觉得一个个查找替换很麻烦。比如我想把1～100替换成105～204，就要Ctrl+F 100多次，能不能用Visual Lisp实现快速替换功能啊？

coolzhb · 发表于 2003-11-27 17:00:43

最初由 shona521 发布
[B]我在制图时总是要用“查找替换”来替换字符。但是当替换的字符太多了，觉得一个个查找替换很麻烦。比如我想把1～100替换成105～204，就要Ctrl+F 100多次，能不能用Visual Lisp实现快速替换功能啊？ [/B]

用我的文字修改大师，计算功能，加104即可了！一步搞定！

lsjjm · 发表于 2003-11-28 03:37:44

REFER TO:
(defun c:test ():
  (vl-load-com)
  (prompt "\nSelect Numberical Text: ")
  (setq ss (ssget '((0 . "TEXT"))))
  (setq in (getreal "\nInput Increment: "))
  (setq n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(setq vlu (+ in (atof (vla-get-textstring obj))))
(vla-put-textstring obj vlu)
(setq n (1+ n))
  )
)

f5612140 · 发表于 2003-11-28 07:12:42

樓上程序若文字非數字型態時也會被處理

wuxi_jzsy · 发表于 2003-11-28 08:13:33

文字修改大师是什么软件？

柠檬99 · 发表于 2003-11-28 08:18:47

高手啊，还能自己编程序，佩服！是不是学计算机的
？

开心19990388 · 发表于 2003-11-28 08:21:39

CAD里替换字符是什么命令呀

shona521 · 发表于 2003-11-28 12:10:14

cad里面用查找替换命令可以替换字符啊。Ctrl+F

wohehe · 发表于 2003-11-28 19:44:21

哪里有文字修改大师

shona521 · 发表于 2003-11-30 19:40:41

2 楼楼主的文字修改大师功能比较多，好用。3楼的程序简单明了，虽然是字符会被替换成要加的数字。不过我是用来改数字的，所以已经足够了。谢谢你们的帮忙，我是新学lisp的，这种语言我觉得比vb呀什么的难学点，各位大虾能不能传授点学习lisp的经验啊？

临时 · 发表于 2003-12-1 10:13:11

你说的文字替换是指直接在cad图形中，在autocad的命令行中输入命令来处理吗？？？我看你的说法倒好像是在word中搜索一样？？？？？

coolzhb · 发表于 2003-12-1 11:55:05

最初由 shona521 发布
[B]2 楼楼主的文字修改大师功能比较多，好用。3楼的程序简单明了，虽然是字符会被替换成要加的数字。不过我是用来改数字的，所以已经足够了。谢谢你们的帮忙，我是新学lisp的，这种语言我觉得比vb呀什么的难学点，各位?.. [/B]

买本书看看，多练习！看cad自带的源码也是不错的选择！

myfreemind · 发表于 2003-12-7 00:08:39

用VBA也行！

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

如何快速替换字符？

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

相关帖子

Re: 如何快速替换字符？

浏览过的版块