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

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

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

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

×

我在写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 创建“匿名”组和“匿名”块

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

相关帖子