录制宏，设置宏快捷键（确认角落设置例程）

qiminger

在版中看到有“设置确认角落快捷键方法”和“运行宏问题”的帖子，现将这两个问题做一个例程讲给初接触宏的朋友，我对此也是一知半解，还请高手不要笑话。
下面以录制和设置确认角落快捷键为例，贴几个图说明，希望朋友们能看懂，也希望朋友们对问题进行建议和补充。
$ p- x1 g+ ~: ]: V
) R# J# _# O" R7 S" r, D8 R. x


7 u5 [- V+ M, }2 k. _+ ~6 d

# H) F" D/ D$ q% v9 _% t; E. g

依旧小虫

宏这个东西到底是什么东西呀？ 昨天下了个链条的宏文件，画了个链条出来。去网上搜，还是不太理解。

阿帕奇

依旧小虫 发表于 2012-9-18 08:24 static/image/common/back.gif
宏这个东西到底是什么东西呀？ 昨天下了个链条的宏文件，画了个链条出来。去网上搜，还是不太理解。

  j4 I/ `( I1 t+ X宏，说白了，就是点一下这个功能按钮，实现连续执行N个命令。
如果在电脑上玩过街霸类的快打游戏，里面发的绝招不是要按很多键组合才可以吗吗，把连续按键的动作集成到按一个键就可以发出绝招。制作的这个键功能就叫做“宏”

qiminger

依旧小虫 发表于 2012-9-18 08:24 static/image/common/back.gif
宏这个东西到底是什么东西呀？ 昨天下了个链条的宏文件，画了个链条出来。去网上搜，还是不太理解。

& x8 n1 P& x9 q- O( a3 H什么是宏？宏就是一组计算机指令--可以将它们录制下来，并将它们与快捷键组合或宏名称关联起来。然后，在按下快捷键组合或单击宏名称时，计算机程序就会执行宏的指令。
再简单说，宏就是一些命令的集合，几个命令集合在了一起。

jie7788

高手如云  牛牛牛

zhqlmy7273

不错的！！！！！！！！！！！

赶路人

还是 阿帕奇 版主解释的 明了  举个 街霸  游戏说明 大家就明白了

yjyeming

依旧小虫 发表于 2012-9-18 08:24 static/image/common/back.gif
( A0 I$ c0 w: ^' j, x1 c宏这个东西到底是什么东西呀？ 昨天下了个链条的宏文件，画了个链条出来。去网上搜，还是不太理解。

" y/ O6 ]* R4 L( c, h9 c' M$ \8 G宏是个好东西,可实现很多梦想.
  D% i% P9 C1 c8 |例如:
3 h3 p. _, s7 m* n5 ~' p4 P
Option Explicit
$ k; o, Y- A* H% I& S7 h. o4 k
Public Const HH_TOPIC_ID As Long = 210001

Public m_SelFace        As SldWorks.Face2
7 Z3 [8 d: F+ b  f2 E  f; dPublic m_SelFaceId()    As Byte
Public m_SelPoint       As Variant
Public m_Angle          As Double
3 l" M* t$ ^2 B; O1 PPublic m_ExType         As Long
4 p3 b9 z7 R% _+ ^2 VPublic m_Direction      As Boolean
, M7 e( g3 J3 D! Z! J$ MPublic m_Normalize      As Boolean
Public m_RegKey         As String
'Const m_EachKey As String = "\TubeMacro\ShmTubeRecover"

Public Const PAI       As Double = 3.14159265359

Dim m_swPage        As PropMgr
'>20070616>
Public m_UpdateStamp As Long
Public m_IsPartMode As Boolean
4 B& C  K3 }' C$ t+ U% {! k2 g% V'<20070616<
'>20071221>
+ b7 s6 f) W0 l8 l: l* Y' m5 ]' pPublic Const Tolerance As Double = 0.0000001
* l, W4 c  S% `& r& C'<20071221<
/ [! g' f" s: b3 @4 v- ?Public m_IconsPath As String   
1 V7 S; [" D- jPublic m_Page                  As SldWorks.PropertyManagerPage2
2 u0 K) `8 L: |' v0 [8 h9 @  a! zPublic m_vFeats As Variant
Public m_vSketchs As Variant
Public m_tmpBody(1) As SldWorks.Body2
9 F7 m8 F: I* u4 y: vPublic m_OwnBody(1) As SldWorks.Body2
$ X& `6 c' y$ H5 K! D'>20080826>
Public m_tmpBodyForLine(1) As SldWorks.Body2
, a# Q2 |7 m) T9 i! N# k/ U'<20080826<
3 e8 j* h- v. _9 G$ S6 j$ IPublic m_TubeRec As CTubeRecover
'>20080823>
Public m_WireBody() As SldWorks.Body2
7 u) D% k+ s9 z# f& _" ['<20080823<
Public SolidWorksID As String

Sub main()
$ r" ^6 \# ?; d4 b" ?6 E
    Dim pApp       As Object
9 I6 ~* n  E2 h6 d    Dim pModel      As SldWorks.ModelDoc2
6 C  X9 J# C- n    Dim strTemp     As String
    Dim lngResult   As Long
* l: g; B8 N, E1 k   
$ K8 S2 j5 _/ n9 U& D. i    If CheckSheetWorks() = False Then Exit Sub
    Dim pId As New GetSolidWorksID
$ |( {) E: X1 z# N    SolidWorksID = pId.main
    'm_RegKey = GetRegBaseDir() & m_EachKey
+ d0 Q) H; s3 Q0 m4 R2 c( a' ]    LoadResources
: m8 u7 l2 I2 n2 V# x: e    LoadLastValueFromReg
        
    Set pApp = CreateObject(SolidWorksID)
3 c1 F. t6 x- R) A" r    Dim pbRet As Boolean
/ Y  t' r4 ]0 m    pbRet = GetFilePathAndName(pApp.GetCurrentMacroPathName, m_IconsPath, strTemp, True)
    m_IconsPath = m_IconsPath + "\Icons\" + strTemp + "\"
* C4 @8 Z6 p' H    Set pModel = pApp.ActiveDoc
& l* ~2 N6 F3 u  R6 ~: G4 K    If pModel Is Nothing Then
        Call MsgBox(resErr0005, vbOKOnly, resTitle)
        Exit Sub
) e/ j) ^' F# n& R/ |; t    End If
    If pModel.GetType = swDocPART Then
5 \9 a% l+ S) O        m_IsPartMode = True
5 S% d4 m& C! y) k) g5 n$ c& A    ElseIf pModel.GetType = swDocASSEMBLY Then
        m_IsPartMode = False
        
  j8 M* {9 q! T" W        Dim pAssy As SldWorks.AssemblyDoc
0 w3 Z) A- N( M: b7 ^; i8 _        Set pAssy = pModel
        pAssy.ResolveAllLightWeightComponents False
    Else
        Call MsgBox(resErr0005, vbOKOnly, resTitle)
        Exit Sub
    End If
    NeedsRebuild True
3 q% V' q& z, F5 ]/ B# s    Set m_swPage = New PropMgr
    m_swPage.Show False
( J( m: }5 ?/ w, V   
End Sub

2 d; {$ ~! v* l  A: FFunction ExecuteCommand(iExType As Long)
5 P5 l0 p. U+ b' N4 b   
6 h7 u9 K' L) @% e& q  SaveLastValueFromReg
1 I* e* w; \% m) n4 p' _  m_swPage.exec iExType, m_vFeats, m_vSketchs
  g. Q5 u$ u  ]+ L* p4 ?
0 u+ u% E9 L) ]. F: |- }, gEnd Function
* Z9 F+ ~5 U  P/ f. ~3 K
Function ExecuteCommandEnd(iExType As Long)

  m_swPage.ExecEnd m_vFeats, iExType
5 s0 O8 W' c( X. c2 {
# ?/ s3 Q: ]  V+ hEnd Function
Public Function LoadLastValueFromReg()

3 P5 u; b- X  K% r6 H4 F    Dim ret As Long
% s/ A, G! S( Q    ret = DbGetValue(m_Angle, m_ExType)

9 @+ m& u+ d" y4 C  oEnd Function
+ U/ I. X% K" e+ O" PPublic Function SaveLastValueFromReg()

+ Z. o" W" L5 i& ?) S/ J    Dim ret As Long
/ H: F! U% k2 j5 a1 n    ret = DbSetValue(m_Angle, m_ExType)
   
8 y1 o1 |8 K0 \4 t9 V* t0 |End Function
* ~3 Z+ N/ [4 T, q) R2 K% I) ]9 G" YPublic Function NeedsRebuild(bnFlag As Boolean) As Boolean
Dim pApp       As Object
" K  {! p7 {0 ZDim pModel      As SldWorks.ModelDoc2
Dim lnUp As Long
' x/ n& {: W+ A) I/ k; }   
    Set pApp = CreateObject(SolidWorksID)
    Set pModel = pApp.ActiveDoc
    lnUp = pModel.GetUpdateStamp
  s+ p0 u) [- _1 T, u2 n    NeedsRebuild = True
# T+ e8 i2 t, z3 U    If bnFlag Then
% }( j# {( J, J3 L0 o& |" f        m_UpdateStamp = lnUp
    Else
        If m_UpdateStamp <> lnUp Then NeedsRebuild = False
' z- r- A  y& h    End If
* p' V6 a% U% i6 a6 {   
End Function
! T4 c; k+ y! _/ ^1 k0 S

zjllrbh

3楼说的很形象，呵呵呵

杀苏

宏 初探  ，谢谢楼主

ffddjj

这里居然有人谈到街霸了，嘎嘎，以前我最爱的街机游戏了，想当年可是挑遍天下无敌手啊，和电脑玩我每个人都能通关，你们一定不知道印度饿死鬼通关后是什么录像吧！求街霸单挑，帕奇老大来，被我虐死不管棺材，嘿嘿！

ryouss

來個實務操作,應該更清楚!