找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 4288|回复: 7

图纸框的问题,请教

[复制链接]
发表于 2011-5-3 19:59:07 | 显示全部楼层 |阅读模式
solidworks中如何做一个自己公司的图纸框模板   并且跟零件图同步     即我修改了零件图的材料或者图号 在工程图中也同样更  新   我把cad模板作为块插入炸开 里面的文字还是要自己去编辑  能否像solidworks自带的模板一样   生成工程图时 图纸框里面的图号 零件名称 还有材料 也已经生成    请教各位了  1 a7 B- x2 w  V, G) ^

( a8 |. I2 K8 E- X; }% z% t
回复

使用道具 举报

发表于 2011-5-4 13:20:35 | 显示全部楼层
自己做一个或者在自带模板基础上修改,把需要的链接保留下来调整下位置就行啦
发表于 2011-5-4 13:34:23 | 显示全部楼层
Option Explicit
' F) t4 f3 a! p% |+ v: j6 Q: GDim swApp As SldWorks.SldWorks' q3 Z  h$ |# D2 t) J7 P" {
Dim swModel As ModelDoc2
  I0 M1 M6 m/ [$ X6 X7 \$ \Dim cpm As CustomPropertyManager: B) E+ ~$ T9 C3 o  K
Sub main()* o8 z5 }( o" C5 m8 ^
Set swApp = Application.SldWorks
1 x: K2 v/ a# e. A& A9 O6 n8 GSet swModel = swApp.ActiveDoc
& E' K+ |5 y( _$ D- WSet cpm = swModel.Extension.CustomPropertyManager("")
0 n$ J5 i7 G+ d9 gDim path As String, filename As String, partno As String, partname As String, beizhu As String
6 d. R0 k' v- _0 L: K8 Xpath = swModel.GetPathName '获得文件路径和文件名称2 S: ^' L  V- x' j* l
filename = Mid$(path, InStrRev(path, "\") + 1)  ' 获得文件名称及扩展名+ F0 t2 f. U5 ?0 D) x
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除扩展名
+ D) q# F8 i2 Gpartno = Left(filename, 10) ' 定义partno等于文件名的前9位2 H: `& J; E- Y! [+ P7 G
partname = Right(filename, Len(filename) - 10) ' 定义partname等于文件名剩下若干位, q  J" @4 r- t0 t
cpm.Delete "编码"  ' 删除自定义属性“编码”
: o7 S5 X3 d; X  r% ocpm.Delete "名称"  ' 删除自定义属性“名称”: h$ s1 {: k" L1 e) @
cpm.Delete "路径"  ' 删除自定义属性“路径”: C* F- x1 E7 a) e+ S$ i
cpm.Add2 "编码", swCustomInfoText, partno  ' 增加自定义属性“编码”
* j: ^; M+ ^, q5 X  w: M& U2 t# Vcpm.Add2 "名称", swCustomInfoText, partname  ' 增加自定义属性“名称”
5 U" p; I$ B) T/ d$ B$ E'cpm.Add2 "路径", swCustomInfoText, path  '增加自定义属性“路径”7 i4 l' O; r/ ^0 ?8 M% t5 h
swModel.Save ' 保存文件' O# L7 L9 D7 q: Z0 h
'swApp.CloseDoc (filename) ' 关闭当前激活文件
7 i/ \8 Y! N  {& y# P, bEnd Sub
4 s5 Q/ Q: y) h/ z+ }以上 是一种宏的利用  你看看吧
发表于 2011-5-7 09:00:23 | 显示全部楼层
调试的时候到“Set cpm = swModel.Extension.CustomPropertyManager("")”就不行啊。
发表于 2011-5-10 15:27:30 | 显示全部楼层
确实如3楼所说。。。。。。。。。。。
 楼主| 发表于 2011-5-10 21:29:01 | 显示全部楼层
这种宏太高级   不懂
+ W+ \2 q$ a" y
发表于 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-8-21 06:41 , Processed in 0.059699 second(s), 14 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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