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

寒秋飘雨

Option Explicit
9 `; o: H) Z& aDim swApp As SldWorks.SldWorks
* `% k5 i6 t& l/ }Dim swModel As ModelDoc2
Dim cpm As CustomPropertyManager
2 l$ @3 h9 Q7 c# B3 n" G% rSub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
) C3 Q2 M1 [% i0 ~/ o- }% ]. ySet cpm = swModel.Extension.CustomPropertyManager("")
9 J# v: m7 Y% X: e5 lDim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '获得文件路径和文件名称
1 Q4 y. E$ R3 B  m! V( y; jfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 获得文件名称及扩展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除扩展名
partno = Left(filename, 10) ' 定义partno等于文件名的前9位
( p- i2 D( `0 k8 P; e$ n3 R  S5 r3 lpartname = Right(filename, Len(filename) - 10) ' 定义partname等于文件名剩下若干位
. _  [" E- t, Y, s3 P/ Ecpm.Delete "编码"  ' 删除自定义属性“编码”
2 A# f" Y) m8 l" j6 m% W  hcpm.Delete "名称"  ' 删除自定义属性“名称”
cpm.Delete "路径"  ' 删除自定义属性“路径”
4 J; i3 J' R9 M8 ^/ Pcpm.Add2 "编码", swCustomInfoText, partno  ' 增加自定义属性“编码”
) w7 }/ r, d# \8 v: ccpm.Add2 "名称", swCustomInfoText, partname  ' 增加自定义属性“名称”
, W4 g8 J1 }7 U$ W- T4 X, @9 ['cpm.Add2 "路径", swCustomInfoText, path  '增加自定义属性“路径”
swModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 关闭当前激活文件
* F, }3 K3 p/ t9 SEnd Sub
( {  {8 B4 w2 Z: F0 Z' F0 h————————————————————————————————————————————————————
6 g9 ~0 L  n. ~+ t! ]以上是一种 SW工程图的编辑程序   添加在编辑宏内  ，在做工程图时 可以自动生成 零件名称 、图号、 材料类型、数量等。希望对大家有用！！
: ~+ k9 h+ H" H6 C

tigerguo1975

昏。这个是我写的。楼主你不加任何说明，除了浪费看贴人的时间，有何意义。
且，国内图纸命名，一般是"机型代号-模块号-子模块号-流水号"。这个宏，在这种情况下没有任何用途。
6 g2 y+ S) ?, e/ j) G$ Z如果按照9位流水号+中文名称来命名，可以一用；但总之没有用。

chidiandong

来瞧瞧，了解一下。

觏仔

直接改工程图模板不行吗

蜗牛22

部件图明细表怎么关联？

jxzj

不错哟

123枫叶

mark一下