SW 工程图编辑程序 宏的一种

寒秋飘雨

Option Explicit
Dim swApp As SldWorks.SldWorks
! V( d$ q' ~' M% `# F5 j! Y: \Dim swModel As ModelDoc2
! t7 e: R- i5 \/ H' yDim cpm As CustomPropertyManager
1 R# ]/ K- u8 M' F0 |4 H3 w4 j5 _Sub main()
' U- Z( t, P0 `1 S' dSet swApp = Application.SldWorks
. h9 F2 D( J4 CSet swModel = swApp.ActiveDoc
Set cpm = swModel.Extension.CustomPropertyManager("")
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '获得文件路径和文件名称
! `. r1 U( C$ m2 n+ w- Dfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 获得文件名称及扩展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除扩展名
- N& P. k6 O; Wpartno = Left(filename, 10) ' 定义partno等于文件名的前9位
' l7 d/ K- G. a- K- jpartname = Right(filename, Len(filename) - 10) ' 定义partname等于文件名剩下若干位
  w, h$ Z# R! M9 ~cpm.Delete "编码"  ' 删除自定义属性“编码”
& h6 S1 k8 v9 W3 Lcpm.Delete "名称"  ' 删除自定义属性“名称”
cpm.Delete "路径"  ' 删除自定义属性“路径”
cpm.Add2 "编码", swCustomInfoText, partno  ' 增加自定义属性“编码”
6 |# \$ O2 e* i9 C# W7 B5 Kcpm.Add2 "名称", swCustomInfoText, partname  ' 增加自定义属性“名称”
, v# @0 s% Z" N8 @# b+ O  ]* S% B'cpm.Add2 "路径", swCustomInfoText, path  '增加自定义属性“路径”
swModel.Save ' 保存文件
5 i# ?% }3 L; _) R( l6 A'swApp.CloseDoc (filename) ' 关闭当前激活文件
End Sub
5 m$ W; M! F6 h. }% U. s6 o0 @  M8 p————————————————————————————————————————————————————
( ]% @2 e( U7 {8 [以上是一种 SW工程图的编辑程序   添加在编辑宏内  ，在做工程图时 可以自动生成 零件名称 、图号、 材料类型、数量等。希望对大家有用！！

tigerguo1975

昏。这个是我写的。楼主你不加任何说明，除了浪费看贴人的时间，有何意义。
且，国内图纸命名，一般是"机型代号-模块号-子模块号-流水号"。这个宏，在这种情况下没有任何用途。
+ O. w8 V# P5 K5 a" h* D3 d. W如果按照9位流水号+中文名称来命名，可以一用；但总之没有用。

chidiandong

来瞧瞧，了解一下。

觏仔

直接改工程图模板不行吗

蜗牛22

部件图明细表怎么关联？

jxzj

不错哟

123枫叶

mark一下