[VBA]求助~~~ 关于命令的调用

grassdds

CAD中，在命令行输入ai_sphere，是绘制球面命令~

可是，程序中我如何调用这个命令呢？？？

还有，修改圆角的命令为fillet， 这条命令是否能修改空间相交的两条直线呢？

如果能，我又将如何在程序中调用呢？？

呵呵，问题比较多，再随着问一个~

哪一个旋转命令是保留轨迹的，就是线旋转过后，能生成面的~

问题多多，还忘各位兄弟姐妹，大虾斑竹们多多帮忙~

我这先谢谢了~~

danver1207

Sub CreateMenu() 
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
      
    Dim newMenu As AcadPopupMenu
    On Error Resume Next
    Set newMenu = currMenuGroup.Menus.Add("绘制球面")

    ' 向新菜单添加菜单项ai_sphere
    Dim newMenuItem As AcadPopupMenuItem
    Dim Macro As String
   
    ' 为菜单项添加执行命令
    Macro = Chr(3) + Chr(3) + "ai_sphere"+ Chr(13)
    Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "Ai_sphere", Macro)   

    ' 在菜单栏上显示菜单
    newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
   
End Sub

danver1207

同样的调用别的命令，只需要修改Macro的值。

比如打开文件

MACRO=Chr(3) + Chr(3) + "_open"+ Chr(13)

sangding

请问一下，程序中的chr（3）是什么意思

我是这样写的添加菜单，不过不理解其中的chr(3),chr(95),chr(32)的含义，请解释一下

 depMacro(0) = Chr(3) + Chr(3) + Chr(95) + "VBASTMT mainProg.EquipmentDeploy1" + Chr(32) + Chr(13)