求助 CAD 类似FIND的文字替换的lisp

hxming37

如题，有一百多个CAD文件，要将里面的“岩层产状”替换为“片理产状”，望大侠给个lisp文件。

Andyhon

Lisp程序得先调试合乎所求
最好打包3个CAD文件上传供验证

hxming37

Andyhon 发表于 2014-11-26 11:48
Lisp程序得先调试合乎所求
最好打包3个CAD文件上传供验证

文件很简单，如压缩包

spp_wall

论坛有  自己搜索吧！！

hxming37

spp_wall 发表于 2014-11-26 12:08
论坛有  自己搜索吧！！

论坛里面都太复杂了，我就想要最简单的，特点问题特点解决哈

Andyhon

“岩层产状”替换为“片理产状”

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

hxming37

Andyhon 发表于 2014-11-26 12:28
“岩层产状”替换为“片理产状”

Select object:

其实我不懂这个编程，我想实现的是，加载启动项“tihuan.LISP”后，可以进行以下操作：
FILEDIA 0
OPEN E:\项目存档\广平路二期\CK39+449.0 凳槽沟大桥-纵断面.DWG
tihuan
FILEDIA 1
_qsave
close


我想要的是一个自定义tihuan.lisp函数，然后我在调用。这个函数实现这个功能：先查找“岩层产状”，然后再统一替换为“片理产状”。
太复杂的我都看不懂

Andyhon

请给修改完成的示例文件
Let me try!

hxming37

Andyhon 发表于 2014-11-26 13:11
请给修改完成的示例文件
Let me try!

多谢大侠了

Andyhon

*** 最好用另份资料夹包含全待处理文件 ***
需先 Open 一空图档==>000.dwg (如附件 / 名称不可改)
再 Load TiHuan.Fas
Then  Run TiHuan
Regards