[VBA程序]：图块改名的问题

zhuxuhong · 发表于 2005-12-10 18:55:06

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

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

×

图块改名的问题
图上原有图块gc100、gc101。。。等一系列以“GC”开头的图块，我想将块名中“GC”字母去掉，但图上图块数量较多，如果我重新一一单独做新图块在原位置插入，再删除原有图块这样工作量太大，各位有没有好一点的办法？

小玩童 · 发表于 2005-12-10 19:20:27

把你的图截取一部分寄到我的信箱，我帮你看看！

macula55 · 发表于 2005-12-11 11:20:29

这个过程可以解决你的问题！
它将当前文档中的所有已"GC"或"gc"开头的块名修改为楼主所要的形式：

Sub abc()
   Dim bk As AcadBlock
   Dim ls As String, ns As String

   For Each bk In ThisDrawing.Blocks
   ls = UCase(Left(bk.Name, 2))
   If ls = "GC" Then
      ns = Right(bk.Name, Len(bk.Name) - 2)
      bk.Name = ns
   End If
   Next
End Sub

小玩童 · 发表于 2005-12-11 11:31:37

好程序，顶！

zhuxuhong · 发表于 2005-12-11 12:16:07

谢谢.用RENAME命令也可以的

小玩童 · 发表于 2005-12-11 17:48:09

rename命令怎么用？

zhuxuhong · 发表于 2005-12-12 12:06:47

thisdrawing.sendcommand "rename" & vbcr & "B" & vbcr & oldname &vbcr & newname &vbcr

小玩童 · 发表于 2005-12-12 12:14:34

真是条条大路通罗马

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

[VBA程序]：图块改名的问题

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

相关帖子