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

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

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)

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

发表回复

精选推荐