我自己的快速宏通道

xiongchao

   经典图书

sw的宏命令想必大家都知道它的强大了吧
我最近就利用宏，做了就几个按钮，这些按钮能把几步的命令变成一步！我用起来很爽！
大家也可以尝试一下，我先抛砖引玉一下，呵呵

enricjsh

我把我的宏文件上传给大家，大家不要照搬，自己理解意思就好了，因为每个人的作图习惯都不同！
我还会陆续制作“快速宏通道”
填写零件属性.rar (4.65 KB, 下载次数: 16)

2014-8-7 08:23 上传

点击文件名下载附件
下载积分: 金币 -1

填写装配体属性.rar (4.64 KB, 下载次数: 18)

2014-8-7 08:23 上传

点击文件名下载附件
下载积分: 金币 -1

快速草图.rar (4.96 KB, 下载次数: 22)

2014-8-7 08:23 上传

点击文件名下载附件
下载积分: 金币 -1

no3p

   经典图书

不下，但支持

无敌小乌龟

给个视频教程啊！这样大家就可以自己整自己想要的宏了，LZ，先谢谢了

ROCOCO

   经典案例图书

干脆交给麦迪，辛迪去搞哈哈。

MINDY_CHU

先录制宏，然后保存好，再反过来执行这个宏程序就可以重现刚才录制的操作过程！这个具有很大的扩展性，大家可以根据
个人的喜好，DIY出各种命令按钮，如果还是不能明白，就看看帮助，我就是看看帮助就做出来的！

entyan

   经典案例图书

这是很简单的宏程序，我们个人就能搞定！

zhaohui_wen

我去试试
看看能不能做出来

小__名

我收下了，这些东西能提高性能和效率

firmwave

   经典图书

好东西！！！！！！！！！！！！！！！！！！！1

mage

看一下我今天发的帖子，可能比这更方便

kuni0327

收下了，这些东西能提高性能和效率

俺是耕田的

尊敬楼主的创造性，懒人就不试了。

葛菲8012

对于连续、重复频率较高的操作，做个宏确实是个不错的主意，效率能够提高不少啊

azzazzazz

加入QQ群
参与讨论和学习

或扫描二维码加入

很好,很强大,我们要好好利用宏啊

yaosine

   经典案例图书

感謝樓主分享！sw能夠用至爐火純青地步！-----強大。
支持一下---

虚心好学

加入QQ群
参与讨论和学习

或扫描二维码加入

不错，支持一下。。。。。。

Vicky

   经典案例图书

下来学习,看能否偷懒下.

jaken

好，楼主高明的很啊。

yjsdyx

下面是一个VB代码函数，供诸君参考。
函数功能：添加焊件切割清单项目属性，并填写其默认值。调用该函数应使用当前零件为参数。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Public Sub AddCutL(ByVal part As ModelDoc2)  '添加焊件切割清单默认值
      
Dim s         As String
Dim ffname    As String
Dim i         As Integer
Dim ii        As Integer
Dim partName  As String
Dim swModel   As ModelDoc2
Dim swFeature As feature
Set swModel = part
If swModel Is Nothing Then Exit Sub       '参数为空，退出
If swModel.GetType <> swDocPART Then Exit Sub  '当前不是零件环境，退出
i = 0
ii = 0
s = &quot;&quot;
ffname = GetOnlyname(swModel.GetPathName)
Set swFeature = swModel.FirstFeature
Do While Not swFeature Is Nothing        '遍历文档中的所有特征，查找切割清单项目
   s = swFeature.name
   If swFeature.GetTypeName = &quot;CutListFolder&quot; Then   '如是切割清单则增加重量属性及材质名称
      If swFeature.CustomPropertyManager.Add(&quot;weight&quot;, &quot;文字&quot;, &quot;&quot;&quot;SW-Mass@@@&quot; & s & &quot;@&quot; & ffname & &quot;.sldprt&quot;&quot;&quot;) = 0 Then
         swFeature.CustomPropertyManager.Set &quot;weight&quot;, &quot;&quot;&quot;SW-Mass@@@&quot; & s & &quot;@&quot; & ffname & &quot;.sldprt&quot;&quot;&quot;
      End If
      If swFeature.CustomPropertyManager.Add(&quot;Material&quot;, &quot;文字&quot;, &quot;Q235A&quot;) = 0 Then
         swFeature.CustomPropertyManager.Set &quot;Material&quot;, &quot;Q235A&quot;
      End If
            i = i + 1
   End If
Set swFeature = swFeature.GetNextFeature
Loop
'查找完毕
If Len(s) > 0 Then MsgBox &quot;更新了&quot; + Str(i) + &quot;个切割清单的材料Q235A及重量属性。&quot; + banName, vbOKOnly, &quot;提示&quot;
Set swModel = Nothing
End Sub
Public Function GetOnlyname(ByVal s As String) As String  '从全名中取出文件名简称,去除路径及扩展名
Dim i     As Integer
Dim OnlyS As String
OnlyS = s
i = InStrRev(OnlyS, &quot;&quot;)
OnlyS = Right(OnlyS, Len(OnlyS) - i)
i = InStrRev(OnlyS, &quot;.&quot;)
OnlyS = Left(OnlyS, i - 1)
GetOnlyname = OnlyS
End Function