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

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

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

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

<P>Sub CreateMenu()&nbsp;<BR>&nbsp;&nbsp;&nbsp; Dim currMenuGroup As AcadMenuGroup<BR>&nbsp;&nbsp;&nbsp; Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; Dim newMenu As AcadPopupMenu<BR>&nbsp;&nbsp;&nbsp; On Error Resume Next<BR>&nbsp;&nbsp;&nbsp; Set newMenu = currMenuGroup.Menus.Add("绘制球面")</P>
<P>&nbsp;&nbsp;&nbsp; ' 向新菜单添加菜单项ai_sphere<BR>&nbsp;&nbsp;&nbsp; Dim newMenuItem As AcadPopupMenuItem<BR>&nbsp;&nbsp;&nbsp; Dim Macro As String<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' 为菜单项添加执行命令<BR>&nbsp;&nbsp;&nbsp; Macro = Chr(3) + Chr(3) + "ai_sphere"+ Chr(13)<BR>&nbsp;&nbsp;&nbsp; Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "Ai_sphere", Macro)&nbsp;&nbsp;&nbsp; </P>
<P>&nbsp;&nbsp;&nbsp; ' 在菜单栏上显示菜单<BR>&nbsp;&nbsp;&nbsp; newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)<BR>&nbsp;&nbsp;&nbsp; <BR>End Sub</P>

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

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

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

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