生成自定义菜单项

阅读量：

给cad添加自定义菜单

复制代码

     1PrivateSub AddBar()
     2DimAs AcadPopupMenuItem
     3DimAsString 4DimAsInteger 5 6OnErrorResumeNext 7DimAs AcadMenuGroup
     8Set0)
     9'Create the new menu10Set"批量绘图")
    11IfThen12        Err.Clear
    13ForEachIn currMenuGroup.Menus
    14If"批量绘图"ThenExitFor15Next16EndI

全部评论 (0)

还没有任何评论哟~