grassdds 发表于 2006-7-3 09:47:00

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

CAD中,在命令行输入ai_sphere,是绘制球面命令~
可是,程序中我如何调用这个命令呢???
还有,修改圆角的命令为fillet, 这条命令是否能修改空间相交的两条直线呢?
如果能,我又将如何在程序中调用呢??
呵呵,问题比较多,再随着问一个~
哪一个旋转命令是保留轨迹的,就是线旋转过后,能生成面的~
问题多多,还忘各位兄弟姐妹,大虾斑竹们多多帮忙~
我这先谢谢了~~

danver1207 发表于 2006-7-4 11:11:00

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 发表于 2006-7-4 11:22:00

同样的调用别的命令,只需要修改Macro的值。
比如打开文件
MACRO=Chr(3) + Chr(3) + "_open"+ Chr(13)

sangding 发表于 2006-7-5 11:19:00

请问一下,程序中的chr(3)是什么意思
我是这样写的添加菜单,不过不理解其中的chr(3),chr(95),chr(32)的含义,请解释一下
depMacro(0) = Chr(3) + Chr(3) + Chr(95) + "VBASTMT mainProg.EquipmentDeploy1" + Chr(32) + Chr(13)
页: [1]
查看完整版本: [VBA]求助~~~ 关于命令的调用