找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 4194|回复: 7

图纸框的问题,请教

[复制链接]
发表于 2011-5-3 19:59:07 | 显示全部楼层 |阅读模式
solidworks中如何做一个自己公司的图纸框模板   并且跟零件图同步     即我修改了零件图的材料或者图号 在工程图中也同样更  新   我把cad模板作为块插入炸开 里面的文字还是要自己去编辑  能否像solidworks自带的模板一样   生成工程图时 图纸框里面的图号 零件名称 还有材料 也已经生成    请教各位了  
! J$ @0 Z  K# G3 J7 ?5 G' ]1 K7 M' I% J0 e
回复

使用道具 举报

发表于 2011-5-4 13:20:35 | 显示全部楼层
自己做一个或者在自带模板基础上修改,把需要的链接保留下来调整下位置就行啦
发表于 2011-5-4 13:34:23 | 显示全部楼层
Option Explicit
4 W. G( c8 r9 a( E' I- [" A3 LDim swApp As SldWorks.SldWorks9 w" j) n6 E) U
Dim swModel As ModelDoc23 E5 [; l5 X) k' R5 H7 E( ~
Dim cpm As CustomPropertyManager. M  ]1 g" [9 @, f0 J; ~+ ?, W" V
Sub main()! D& ?* }8 p' Q- e$ q/ u
Set swApp = Application.SldWorks
! H, Y' c: U$ x! P$ P6 h3 s) X- gSet swModel = swApp.ActiveDoc
% h# Z" b$ w0 \: Z+ @5 b- o7 ?Set cpm = swModel.Extension.CustomPropertyManager("")
7 K3 c8 t3 ^/ `$ lDim path As String, filename As String, partno As String, partname As String, beizhu As String- G8 ^7 o0 ?. a; l+ j% K
path = swModel.GetPathName '获得文件路径和文件名称
4 W9 H/ r' P3 J8 o' A: vfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 获得文件名称及扩展名
0 }# L7 O3 Q1 H# F$ I! Wfilename = Left$(filename, InStrRev(filename, ".") - 1)  '移除扩展名
5 x* D# \, c4 O9 Bpartno = Left(filename, 10) ' 定义partno等于文件名的前9位& e+ ]5 T6 e+ v
partname = Right(filename, Len(filename) - 10) ' 定义partname等于文件名剩下若干位
" g% ?! v6 R) }( dcpm.Delete "编码"  ' 删除自定义属性“编码”1 e+ a. Z/ U- N  H* s  }8 v% `6 C
cpm.Delete "名称"  ' 删除自定义属性“名称”! x  Z' I7 ^3 \& B
cpm.Delete "路径"  ' 删除自定义属性“路径”
; u+ K) a$ v( [+ [8 x2 l- v& Tcpm.Add2 "编码", swCustomInfoText, partno  ' 增加自定义属性“编码”
8 y% |% w' Z3 J4 P, g/ Q0 hcpm.Add2 "名称", swCustomInfoText, partname  ' 增加自定义属性“名称”9 A/ i  g0 z( R1 |8 K; g; T' _
'cpm.Add2 "路径", swCustomInfoText, path  '增加自定义属性“路径”
* s" n" ?" a: Z& H4 D( {7 I4 JswModel.Save ' 保存文件
$ _+ @) l! v  M% u'swApp.CloseDoc (filename) ' 关闭当前激活文件
6 {% ]! h& \8 W/ u6 B  GEnd Sub
5 B& K% \6 u+ k4 C; j1 m# i4 W. p0 P' A以上 是一种宏的利用  你看看吧
发表于 2011-5-7 09:00:23 | 显示全部楼层
调试的时候到“Set cpm = swModel.Extension.CustomPropertyManager("")”就不行啊。
发表于 2011-5-10 15:27:30 | 显示全部楼层
确实如3楼所说。。。。。。。。。。。
 楼主| 发表于 2011-5-10 21:29:01 | 显示全部楼层
这种宏太高级   不懂 ; b% R/ k% w4 V  q
发表于 2012-5-19 11:39:53 | 显示全部楼层
到这个位置就出现“编译错误,参数不可选”     cpm.Add2 "编码", swCustomInfoText, partno  ' 增加自定义属性“编码”
发表于 2012-5-20 21:22:14 | 显示全部楼层
做工程图图板、零件图模板、装配图模板并且属性连接号才能达到你的要求
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Archiver|手机版|小黑屋|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-7-9 14:46 , Processed in 0.056242 second(s), 14 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表