求推荐几个宏代码程式学习

lyz060301113

前段时间在论坛上看到的文章讲到宏，里面有这样一段程式代码，然后把图层、颜色等都编辑好，在把SW工程图直接建立宏快捷键，直接一点快捷键，就出同工程图一样的文件名字的CAD图档，各图层，颜色都跟设置的一样，我试了下，蛮好用的，求高手在推荐一些程式代码，或者相关书籍学习学习，谢谢！
$ ]5 }+ w  _5 _8 i, D& U+ @# a
# i* H- Z8 p/ U: E7 Q2 K

Dim swApp As Object

Dim Part As Object

Dim Filename As String

Dim No As Integer

Dim Title As String

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Filename = Part.GetPathName()

No = Len(Filename)

Filename = Left(Filename, No - 7)

Part.SaveAs2 Filename & ".DWG", 0, True, False

Title = Part.GetTitle

Set Part = Nothing

swApp.CloseDoc Title

x = MsgBox(" 已保存为 DWG 文件 ", 0)

End Sub
# D$ |6 U8 |/ g/ x
" z! f# _2 N- G: X
$ B$ f5 u3 e& F4 ]& Q

; g1 f0 X  @+ c. L: e& ~. f, ?
3 K( M: g; g* Y% y2 G2 d http://www.3dportal.cn/discuz/source/plugin/sina_xweibo_x3/xwb/images/bgimg/icon_logo.png 该贴已经同步到 lyz060301113的微博

SG小瓜

这个好像是另存DWG的宏吧

ryouss

+ j5 f" |* r8 D/ S; S
& L# l4 c9 }$ x8 S' q0 P8 U$ k, ^http://www.3dportal.cn/discuz/fo ... wthread&tid=1434605
如上連結 Excel 做點線
" _8 u( Z, D% v# I並瞭解VBA物件的使用
6 i; `! u& \8 j
# j! Y2 t# Y- Z& o, ]

CAOJT

:victory::victory::victory: