[编程申请]：找到的同时做个记号,让我们一目了然,

zh_6531394 · 发表于 2004-12-17 16:36:11

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

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

×

*-*a 我们经常搜索文字,CAD命令只显示找到了几个,如果有个程序在找到的同时做个记号,让我们一目了然,文字在那就好了

自由的鱼 · 发表于 2004-12-17 18:14:30

用FIND命令就可以做到，不需要程序！

海豚 · 发表于 2004-12-17 18:44:42

用FIND命令虽然可以做到，但有的时候我要给找到的文字加一些文字，但所加的各不相同，每次改完后，都要重新FIND一次，并已经略过已经修改的。如果数量比较多，还是很麻烦的。但是如果采用程序做记号的方法，我可以把改完的记号删除，没用重复的情况，会快多了。

自由的鱼 · 发表于 2004-12-17 20:17:24

就写个程序来改颜色或者把找到的文本归到一个层！

zh_6531394 · 发表于 2004-12-20 16:47:43

"用FIND命令就可以做到，不需要程序"
它只能找到,不能做标识,我是想要找到的同时做个记号,让我们一目了然,

hrbpkf · 发表于 2004-12-20 17:33:56

你想要什么样的标识？换颜色可以吗？改图层可以吗？如果可以的话，就像二楼说的，用“find”命令，选择所需物体后，在“对象特性”栏中直接修改其颜色或图层，就可以“让我们一目了然”了。

自由的鱼 · 发表于 2004-12-20 23:15:03

如果一次要查找多个就写个程序来完成！！

zh_6531394 · 发表于 2004-12-21 08:40:26

比如说,图形很复杂,我需要编辑其中几个文本,用 "find" 查找后, 编辑时又不知它们在那了,所以 "找到的同时做个记号,让我们一目了然,文本在那就好了 "

自由的鱼 · 发表于 2004-12-21 23:32:31

凑活用一下，：）

Sub tt()
On Error Resume Next

Dim ent As AcadText
Dim txt As String

Dim Layerobj As AcadLayer
Set Layerobj = ThisDrawing.Layers.Item("find")
If Err <> 0 Then
Err.Clear
Set Layerobj = ThisDrawing.Layers.Add("find")
Layerobj.Color = acCyan
End If

txt = ThisDrawing.Utility.GetString(0, "输入文本内容")

For Each ent In ThisDrawing.ModelSpace
If ent.TextString = txt Then
ent.Layer = "find"
ent.Color = acByLayer
End If
Next

End Sub

zh_6531394 · 发表于 2004-12-22 15:26:17

看不懂怎么用的

自由的鱼 · 发表于 2004-12-22 17:19:31

最初由 zh_6531394 发布
[B]看不懂怎么用的 [/B]

在CAD命令行输入vbaide,然后把代码COPY进去，运行就可以了！

zh_6531394 · 发表于 2004-12-24 08:21:06

不行,运行后问密码

llmin · 发表于 2004-12-24 08:31:07

楼上的程序不行呀

自由的鱼 · 发表于 2004-12-24 18:26:15

问密码？我给的是原代码，还有密码啊？呵呵

zh_6531394 · 发表于 2004-12-28 11:14:35

我提的申请很难吗为什么没人解决?

[编程申请]：找到的同时做个记号,让我们一目了然,

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

相关帖子

浏览过的版块

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