图纸框的问题，请教

liangyong88

solidworks中如何做一个自己公司的图纸框模板   并且跟零件图同步     即我修改了零件图的材料或者图号 在工程图中也同样更  新   我把cad模板作为块插入炸开 里面的文字还是要自己去编辑  能否像solidworks自带的模板一样   生成工程图时 图纸框里面的图号 零件名称 还有材料 也已经生成    请教各位了  
8 K! W. J8 s0 y
: A6 ~( E* T, J( s  p9 C' i& Q

一毛

自己做一个或者在自带模板基础上修改，把需要的链接保留下来调整下位置就行啦

寒秋飘雨

Option Explicit
% r+ f2 w- @2 s* cDim swApp As SldWorks.SldWorks
4 J% @' l' _& G/ R+ \Dim swModel As ModelDoc2
% `: O- z- F+ T9 ~7 _9 R0 RDim cpm As CustomPropertyManager
Sub main()
Set swApp = Application.SldWorks
+ [4 L( R$ Z, V! v; D& mSet swModel = swApp.ActiveDoc
Set cpm = swModel.Extension.CustomPropertyManager("")
4 P+ Q$ Z2 ~3 j0 [% {$ kDim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '获得文件路径和文件名称
$ D. A# E9 ~2 H8 [9 M( \5 T, }filename = Mid$(path, InStrRev(path, "\") + 1)  ' 获得文件名称及扩展名
. j; M3 \. ?. H3 F3 m$ \filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除扩展名
partno = Left(filename, 10) ' 定义partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定义partname等于文件名剩下若干位
cpm.Delete "编码"  ' 删除自定义属性“编码”
cpm.Delete "名称"  ' 删除自定义属性“名称”
* H3 @+ k7 C" t6 Z  g. `1 vcpm.Delete "路径"  ' 删除自定义属性“路径”
cpm.Add2 "编码", swCustomInfoText, partno  ' 增加自定义属性“编码”
cpm.Add2 "名称", swCustomInfoText, partname  ' 增加自定义属性“名称”
'cpm.Add2 "路径", swCustomInfoText, path  '增加自定义属性“路径”
1 t# A* w! V3 @3 x5 P8 V- D+ H  ?swModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 关闭当前激活文件
End Sub
$ c+ k6 c( |; A) L6 v$ k* l以上 是一种宏的利用  你看看吧

shengming1008

调试的时候到“Set cpm = swModel.Extension.CustomPropertyManager("")”就不行啊。

MAWEIYI

确实如3楼所说。。。。。。。。。。。

liangyong88

这种宏太高级   不懂
8 m; [9 V# f- U0 s/ x: b0 f

liugui2008

到这个位置就出现“编译错误，参数不可选”     cpm.Add2 "编码", swCustomInfoText, partno  ' 增加自定义属性“编码”

老蔫

做工程图图板、零件图模板、装配图模板并且属性连接号才能达到你的要求