mjtd.mnu
上传用户:yayuwl
上传日期:2022-03-18
资源大小:8952k
文件大小:1k
源码类别:

CAD

开发平台:

VBA

  1. // 菜单组名称
  2. ***MENUGROUP=mjtd
  3. // 工具栏
  4. ***TOOLBARS
  5. **TB_TEST
  6. **测试
  7. ID_TbTest     [ _Toolbar("测试", _Floating, _Show, 100, 240, 1)]
  8. ID_Test01     [ _Button("直线", "LINE", "LINE")]^C^C_line
  9. ID_Test02     [ _Button("放大", "ZOOMIN", "RZOOMIN")]^C^C_zoom;2x;
  10. ID_Test03     [ _Button("缩小", "ZOOMOUT", "ZOOMOUT")]^C^C_zoom;0.5x;
  11.               [--]
  12. ID_Test04     [_Button("多段线", "RCDATA_16_PLINE", "RCDATA_16_PLINE")]^C^C_pline
  13. ID_Test04     [_Button("圆弧", "RCDATA_16_ARC3PT", "RCDATA_16_ARC3PT")]^C^C_arc
  14. ID_Test04     [_Button("圆", "RCDATA_16_CIRRAD", "RCDATA_16_CIRRAD")]^C^C_circle