社区 › AutoLISP/Visual LISP 编程技术 › 仿word文本查找和替换源码(已上传)

puzb2001 发表于 2012-2-22 15:04:33

功能很好
提个建议：
把恢复捕捉行位置调整一下，要不然不会恢复
(princ (strcat "\n 已完成了搜索，共找到了 " (itoa j) " 处，并已完成了 " (itoa k) " 处替换。"))
(alert (strcat "\n 已完成了搜索，共找到了 " (itoa j) " 处，并已完成了 " (itoa k) " 处替换。"))
((command ".UNDO" "E")         ; 设置undo终点
setvar "osmode" snap)      ; 恢复捕捉
(princ)
)

qincj0001 发表于 2012-2-22 17:30:54

学习一下，先

lingduwx 发表于 2012-2-24 19:42:31

哎不知道怎么加载对话框啊
请楼主帮忙菜鸟一下啊
先谢了

zhuquanmao 发表于 2012-2-25 18:13:08

实现下面两个就好了
1 块内文字查找
2 可选择区分大小写

puzb2001 发表于 2012-2-26 15:15:03

非常好，如果加入以下内容就更好了：
加入拾取的选项
另处把捕捉关闭那一行去掉，程序会出错吗？
感觉没问题

xingyun300 发表于 2012-4-12 22:03:37

好东西，我顶！！！

微~妙 发表于 2012-4-13 08:18:29

感觉很好 我顶一下

yoyoho 发表于 2012-4-13 08:41:08

感谢 langjs 分享程序!

xiahwan 发表于 2012-5-1 09:01:59

谢谢分享

gao051525 发表于 2012-6-8 16:49:54

拜读楼主大作！

查看完整版本: 仿word文本查找和替换源码(已上传)