[VBA]求助~~~ 关于命令的调用
CAD中,在命令行输入ai_sphere,是绘制球面命令~可是,程序中我如何调用这个命令呢???
还有,修改圆角的命令为fillet, 这条命令是否能修改空间相交的两条直线呢?
如果能,我又将如何在程序中调用呢??
呵呵,问题比较多,再随着问一个~
哪一个旋转命令是保留轨迹的,就是线旋转过后,能生成面的~
问题多多,还忘各位兄弟姐妹,大虾斑竹们多多帮忙~
我这先谢谢了~~
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
同样的调用别的命令,只需要修改Macro的值。
比如打开文件
MACRO=Chr(3) + Chr(3) + "_open"+ Chr(13)
请问一下,程序中的chr(3)是什么意思
我是这样写的添加菜单,不过不理解其中的chr(3),chr(95),chr(32)的含义,请解释一下
depMacro(0) = Chr(3) + Chr(3) + Chr(95) + "VBASTMT mainProg.EquipmentDeploy1" + Chr(32) + Chr(13)
页:
[1]