论坛 › VBA/ActiveX 函数库 › [VBA函数]：VBA 创建“匿名”组和“匿名”块

tiancao1001 发表于 2008-3-23 18:15:03

[VBA函数]：VBA 创建“匿名”组和“匿名”块

我在写CAD创建块的时候，我不想指定它的名字，也不指定她的插入点，一个命令创建一个块或组多方便啊。

这其中我写了两个函数和大家分享一下。

'创建匿名组，没有则创建，有则序号加一
Function NiMingZu(S As String) As String
    Dim G As AcadGroup
    Dim n As Long
    For Each G In ThisDrawing.Groups
      If Left(G.Name, Len(S)) = S Then n = n + 1
    Next
    NiMingZu = S & n + 1
End Function

icqlinery 发表于 2008-9-25 00:34:26

感觉太复杂了点

01470147 发表于 2009-3-31 20:46:17

太复杂了点

查看完整版本: [VBA函数]：VBA 创建“匿名”组和“匿名”块