求助 CAD 类似FIND的文字替换的lisp
如题，有一百多个CAD文件，要将里面的“岩层产状”替换为“片理产状”，望大侠给个lisp文件。 Lisp程序得先调试合乎所求最好打包3个CAD文件上传供验证 Andyhon 发表于 2014-11-26 11:48 static/image/common/back.gif
Lisp程序得先调试合乎所求
最好打包3个CAD文件上传供验证
文件很简单，如压缩包 论坛有自己搜索吧！！ spp_wall 发表于 2014-11-26 12:08 static/image/common/back.gif
论坛有自己搜索吧！！
论坛里面都太复杂了，我就想要最简单的，特点问题特点解决哈 本帖最后由 Andyhon 于 2014-11-26 12:34 编辑
“岩层产状”替换为“片理产状”
Select object:
(
(0 . "TEXT")
(330 . <Entity name: 7ce4acf8>)
(5 . "D3")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "txt")
(100 . "AcDbText")
(10 640.497 77.6175 0.0)
(40 . 3.5)
(1 . "\\M+5D1D2\\M+5B2E3\\M+5B2FA\\M+5D7B4:180%%D\\M+5A1CF30%%D")
(50 . 0.0)
(41 . 1.0)
(51 . 0.0)
(7 . "\\M+5B5D8\\M+5D6CA\\M+5D7D6\\M+5CCE5")
(71 . 0)
(72 . 0)
(11 0.0 0.0 0.0)
(210 0.0 0.0 1.0)
(100 . "AcDbText")
(73 . 0)
)
文件1
“岩层产状...”==>"\\M+5D1D2\\M+5B2E3\\M+5B2FA\\M+5D7B4:180%%D\\M+5A1CF30%%D"
那么需要知道
“片理产状...”==> ???
如您不解上述资料如何取得,请给修改完成的示例文件
or Ref:
http://www.cadtutor.net/forum/showthread.php?46135-Batch-Find-amp-Replace-Text&s=881ee0f0f4a292853c91b3330e950371 Andyhon 发表于 2014-11-26 12:28 static/image/common/back.gif
“岩层产状”替换为“片理产状”
Select object:
其实我不懂这个编程，我想实现的是，加载启动项“tihuan.LISP”后，可以进行以下操作：
FILEDIA 0
OPEN E:\项目存档\广平路二期\CK39+449.0 凳槽沟大桥-纵断面.DWG
tihuan
FILEDIA 1
_qsave
close
我想要的是一个自定义tihuan.lisp函数，然后我在调用。这个函数实现这个功能：先查找“岩层产状”，然后再统一替换为“片理产状”。
太复杂的我都看不懂 请给修改完成的示例文件
Let me try!
Andyhon 发表于 2014-11-26 13:11 static/image/common/back.gif
请给修改完成的示例文件
Let me try!
多谢大侠了
本帖最后由 Andyhon 于 2014-11-26 18:11 编辑
*** 最好用另份资料夹包含全待处理文件 ***
需先 Open 一空图档==>000.dwg (如附件 / 名称不可改)
再 Load TiHuan.Fas
ThenRun TiHuan
Regards
页:
[1]