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

qiminger · 发表于 2012-9-18 08:19:26

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 qiminger 于 2012-9-18 08:23 编辑

在版中看到有“设置确认角落快捷键方法”和“运行宏问题”的帖子，现将这两个问题做一个例程讲给初接触宏的朋友，我对此也是一知半解，还请高手不要笑话。
下面以录制和设置确认角落快捷键为例，贴几个图说明，希望朋友们能看懂，也希望朋友们对问题进行建议和补充。
步骤1.2.jpg

依旧小虫 · 发表于 2012-9-18 08:24:22

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

阿帕奇 · 发表于 2012-9-18 08:31:22

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

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

qiminger · 发表于 2012-9-18 08:32:58

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

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

jie7788 · 发表于 2012-9-18 16:01:08

高手如云牛牛牛

zhqlmy7273 · 发表于 2012-9-18 16:34:57

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

赶路人 · 发表于 2012-9-18 16:40:15

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

yjyeming · 发表于 2012-9-19 10:52:46

依旧小虫发表于 2012-9-18 08:24 static/image/common/back.gif) e9 U. O% l6 O2 v8 d8 u$ [$ I! z
宏这个东西到底是什么东西呀？昨天下了个链条的宏文件，画了个链条出来。去网上搜，还是不太理解。

宏是个好东西,可实现很多梦想.
例如:

Option Explicit

Public Const HH_TOPIC_ID As Long = 210001

Public m_SelFace       As SldWorks.Face2
Public m_SelFaceId() As Byte
Public m_SelPoint    As Variant
Public m_Angle       As Double
Public m_ExType       As Long
Public m_Direction    As Boolean
Public 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
'<20070616<
'>20071221>
Public Const Tolerance As Double = 0.0000001
'<20071221<
Public m_IconsPath As String
Public m_Page                As SldWorks.PropertyManagerPage2
Public m_vFeats As Variant
Public m_vSketchs As Variant
Public m_tmpBody(1) As SldWorks.Body2
Public m_OwnBody(1) As SldWorks.Body2
'>20080826>
Public m_tmpBodyForLine(1) As SldWorks.Body2
'<20080826<
Public m_TubeRec As CTubeRecover
'>20080823>
Public m_WireBody() As SldWorks.Body2
'<20080823<
Public SolidWorksID As String

Sub main()

Dim pApp    As Object
Dim pModel    As SldWorks.ModelDoc2
Dim strTemp    As String
Dim lngResult As Long

If CheckSheetWorks() = False Then Exit Sub
Dim pId As New GetSolidWorksID
SolidWorksID = pId.main
'm_RegKey = GetRegBaseDir() & m_EachKey
LoadResources
LoadLastValueFromReg

Set pApp = CreateObject(SolidWorksID)
Dim pbRet As Boolean
pbRet = GetFilePathAndName(pApp.GetCurrentMacroPathName, m_IconsPath, strTemp, True)
m_IconsPath = m_IconsPath + "\Icons\" + strTemp + "\"
Set pModel = pApp.ActiveDoc
If pModel Is Nothing Then
      Call MsgBox(resErr0005, vbOKOnly, resTitle)
      Exit Sub
End If
If pModel.GetType = swDocPART Then
      m_IsPartMode = True
ElseIf pModel.GetType = swDocASSEMBLY Then
      m_IsPartMode = False

      Dim pAssy As SldWorks.AssemblyDoc
      Set pAssy = pModel
      pAssy.ResolveAllLightWeightComponents False
Else
      Call MsgBox(resErr0005, vbOKOnly, resTitle)
      Exit Sub
End If
NeedsRebuild True
Set m_swPage = New PropMgr
m_swPage.Show False

End Sub

Function ExecuteCommand(iExType As Long)

  SaveLastValueFromReg
  m_swPage.exec iExType, m_vFeats, m_vSketchs

End Function

Function ExecuteCommandEnd(iExType As Long)

  m_swPage.ExecEnd m_vFeats, iExType

End Function
Public Function LoadLastValueFromReg()

Dim ret As Long
ret = DbGetValue(m_Angle, m_ExType)

End Function
Public Function SaveLastValueFromReg()

Dim ret As Long
ret = DbSetValue(m_Angle, m_ExType)

End Function
Public Function NeedsRebuild(bnFlag As Boolean) As Boolean
Dim pApp    As Object
Dim pModel    As SldWorks.ModelDoc2
Dim lnUp As Long

Set pApp = CreateObject(SolidWorksID)
Set pModel = pApp.ActiveDoc
lnUp = pModel.GetUpdateStamp
NeedsRebuild = True
If bnFlag Then
      m_UpdateStamp = lnUp
Else
      If m_UpdateStamp <> lnUp Then NeedsRebuild = False
End If

End Function

zjllrbh · 发表于 2012-9-19 11:03:56

3楼说的很形象，呵呵呵

杀苏 · 发表于 2013-6-7 14:43:29

宏初探，谢谢楼主

ffddjj · 发表于 2013-6-8 11:29:11

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

ryouss · 发表于 2013-6-8 11:44:21

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

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块