明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2931|回复: 2

紧急求助:vba对cad二次开发

[复制链接]
发表于 2003-8-16 19:41 | 显示全部楼层 |阅读模式
紧急求助:vba对cad二次开发
以前只是用AutoCAD来画图,现在想编个小软件,实现一些简单的功能。请教一下对autocad二次开发的过程。
1我想自定义菜单,工具箱中想加一个功能,作clothoid曲线。怎么把clothoid曲线的程序做进去呢。怎么样把我自己定义的菜单集成到我的软件中,就是说最后出来的东西是我自己定制的界面。
2在我的软件中,对画出来的任意曲线,点击后都可以弹出一个相同的对话框,以供输入参数,然后保存为文档。
就这么简单,不知道怎么集成到一起,最后生成一个我自己的东西。
发表于 2003-9-26 14:48 | 显示全部楼层
只能提供以下一端代码给你,希望能给你帮助

Option Explicit
Sub Menu()
    '定义变量
    Dim NewMenuGroup As AcadMenuGroup                 '群组
    Dim NewMenu As AcadPopupMenu                      '列
    Dim NewMenuItemName As AcadPopupMenuItem          '菜单项
    Dim Menuseparator As AcadPopupMenuItem            '分隔条
    Dim NewMenuItemName1 As AcadPopupMenu             '菜单项
    Dim subMenuItem                                   '子菜单
    '定义下拉菜单群组
    Set NewMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
    '创建下拉菜单列
    Set NewMenu = NewMenuGroup.Menus.Add("参数化绘图")
    '创建下拉菜单项
    Set NewMenuItemName1 = NewMenu.AddSubMenu(NewMenu.Count + 1, "螺栓螺钉")
        Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(1, "十字盘头螺栓", "-vbarun uf1 ")
        Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(2, "十字沉头螺栓", "-vbarun uf2 ")
        Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(3, "十字半沉头螺栓", "-vbarun uf3 ")
        Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(4, "内六角螺钉", "-vbarun uf4 ")
    Set NewMenuItemName1 = NewMenu.AddSubMenu(NewMenu.Count + 2, "螺    母")
        Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(1, "六角螺母", "-vbarun uf5 ")
        Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(2, "开槽螺母", "-vbarun uf6 ")
        Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(3, "圆  螺  母", "-vbarun uf7 ")
        Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(4, "蝶形螺母", "-vbarun uf8 ")
    Set NewMenuItemName1 = NewMenu.AddSubMenu(NewMenu.Count + 3, "销类零件")
        Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(1, "圆 柱 销", "-vbarun uf9 ")
        Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(2, "圆 锥 销", "-vbarun uf10 ")
        Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(3, "开 口 销", "-vbarun uf11 ")
        Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(4, "A型销轴", "-vbarun uf12 ")
    Set NewMenuItemName = NewMenu.AddSeparator(NewMenu.Count + 4)
    Set NewMenuItemName = NewMenu.AddMenuItem(NewMenu.Count + 6, "退    出", "-vbarun uf60 ")
    '显示新菜单
    NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub
Sub uf1()
    UserForm1.Show
End Sub
Sub uf2()
    UserForm2.Show
End Sub
Sub uf3()
    UserForm3.Show
End Sub
Sub uf4()
    UserForm4.Show
End Sub
Sub uf5()
    UserForm5.Show
End Sub
Sub uf6()
    UserForm6.Show
End Sub
Sub uf7()
    UserForm7.Show
End Sub
Sub uf8()
    UserForm8.Show
End Sub
Sub uf9()
    UserForm9.Show
End Sub
Sub uf10()
    UserForm10.Show
End Sub
Sub uf11()
    UserForm11.Show
End Sub
Sub uf12()
    UserForm12.Show
End Sub
Sub uf60()
    ThisDrawing.SendCommand "filedia 0 "
    ThisDrawing.SendCommand "menu acad" + Chr(13)
    ThisDrawing.SendCommand "filedia 1 "
End Sub
发表于 2011-10-2 09:38 | 显示全部楼层
顶一个,厉害哦
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 02:52 , Processed in 0.246907 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表