如何用宏批量更改图纸格式

jinqin11 · 发表于 2016-3-21 15:43:10

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 jinqin11 于 2016-3-22 09:06 编辑

如何用宏批量更改图纸格式

ryouss · 发表于 2016-3-21 15:47:26

怎麼樣的图纸格式

tk3681167 · 发表于 2016-3-21 15:49:02

有一款插件很好用，把文件拖到列表中自动修改图纸格式

http://www.sw800.cn/upload/images/2016/1/c1.png

到官方SW800.cn下载就好

jinqin11 · 发表于 2016-3-21 15:52:14

ryouss 发表于 2016-3-21 15:47
) f% A! Y$ b/ n怎麼樣的图纸格式

目前已知setupsheet5参数表示，表示图纸比例。
我想只改图纸格式。不修改比例

jinqin11 · 发表于 2016-3-21 21:41:56

ryouss 发表于 2016-3-21 15:475 u0 }" a7 M( {: L5 H, a/ ~
怎麼樣的图纸格式

用什么函数调用图纸比例/?

ryouss · 发表于 2016-3-21 22:00:57

本帖最后由 ryouss 于 2016-3-21 22:03 编辑

比例多少直接鍵入就是

若要用變數,就設個變數名稱如 Scale_ =2

如下修正為:
boolstatus =Part.SetupSheet5("圖紙1", 12, 12, 1, Scale_, True, "a3-gb.slddrt", 0.42, 0.297, "默認", True)

jinqin11 · 发表于 2016-3-21 22:05:15

ryouss 发表于 2016-3-21 22:00% U: X% O2 ?; s% ^, i& c
比例多少直接鍵入就是
- w' B+ A" U) o- k. d( e7 ^) ^8 `3 T+ ?
若要用變數,就設個變數名稱如 Scale_ =2

工程图已经画好了，但是是老图不符合新的公司规定，需要更换格式，我用录制的宏，是指定的比例，但是不是所有的工程图都是比例1:2.

大鹿 · 发表于 2016-3-21 23:28:22

在台灣玩家論壇撿回來的，參考用吧。

Sub Main()
( \2 O, Y: H, r
Set swApp = Application.SldWorks
( \% r( ~2 w u0 t' O: }
Set Drawing = swApp.ActiveDoc6 |% l' ~2 ]' r/ R
If Drawing.GetType <> 3 Then Exit Sub9 _$ F/ k* R% H6 U
RetoreSheetName = Drawing.GetCurrentSheet.GetName
8 w$ N" b( i7 z& o2 P: ~8 f' b& t; i
SheetName = Drawing.GetSheetNames% M9 x% h3 K3 D7 y! @
SheetCount = Drawing.GetSheetCount
: I S; v3 h/ t+ @5 U$ s
For i = 0 To SheetCount - 1+ _4 f: u; U$ O+ Y8 z- x- s/ Y
Drawing.ActivateSheet SheetName(i)& i2 O; V& W/ ^
swTemplate = Drawing.GetCurrentSheet.GetTemplateName1 N) s+ C' Z) O% l, Y
swTemplatePath = Split(swTemplate, "")
! y% {+ a P6 D2 Q8 a: b3 P
swTemplate = swTemplatePath(UBound(swTemplatePath))% \% p$ U* t# j/ Z, \. T$ h
vSheetProps = Drawing.GetCurrentSheet.GetProperties()
, o+ e" _# A2 \# N; d$ G7 `
Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 0, 0, vSheetProps(2), vSheetProps(3), vSheetProps(4), "", 1, 1, ""2 s$ o# M0 E. s5 w' `0 g' v: a
Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 12, 12, vSheetProps(2), vSheetProps(3), vSheetProps(4), swTemplate, 0, 0, ""4 @& M$ G0 S7 `
vSheetProps = Drawing.GetCurrentSheet.GetProperties()
, l, _+ D0 P8 U* ^
Next& ^0 i4 o7 A, i4 H% V6 e8 T
Drawing.ActivateSheet RetoreSheetName
9 c/ }9 v% _: z7 U1 r
End Sub

复制代码

ryouss · 发表于 2016-3-21 23:42:43

api 也找了個不知是否適用

This example shows how to set the scale of a selected drawing view.
'-----------------------------
'
' Preconditions:

'    (1) Drawing document is open.

'    (2) Drawing view is selected.
'
' Postconditions: Drawing scale set to decimal.
'
'-------------------------------

Option Explicit

Sub main()

Dim swApp                      As SldWorks.SldWorks

Dim swModel                   As SldWorks.ModelDoc2

Dim swDraw                   As SldWorks.DrawingDoc

Dim swSelMgr                   As SldWorks.SelectionMgr

Dim swView                   As SldWorks.View

Dim vScaleRatio                As Variant

Dim bRet                      As Boolean

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

Set swSelMgr = swModel.SelectionManager

Set swView = swSelMgr.GetSelectedObject5(1)

vScaleRatio = swView.ScaleRatio

Debug.Print "File = " & swModel.GetPathName

Debug.Print "  View = " & swView.Name

Debug.Print " UseSheetScale  = " & CBool(swView.UseSheetScale)

Debug.Print " Scale       = " & vScaleRatio(0) & ":" & vScaleRatio(1)

Debug.Print "                = " & swView.ScaleDecimal

' Changing scale sets View::UseSheetScale to FALSE

swView.ScaleDecimal = swView.ScaleDecimal * 2#

' Rebuild to see new scale

bRet = swModel.EditRebuild3: Debug.Assert bRet

End Sub

'-----------------------------

jinqin11 · 发表于 2016-3-22 08:48:38

ryouss 发表于 2016-3-21 23:42- `9 N+ l, H Q& @( H7 `! a( l
api 也找了個不知是否適用
, c8 f9 d$ b3 U
. h7 g7 ~5 `& z% k; u2 D" @This example shows how to set the scale of a selected drawing view.

swview.ScaleRatio，出错

jinqin11 · 发表于 2016-3-22 09:05:53

大鹿发表于 2016-3-21 23:285 o5 d, E0 G, Y+ \# _7 v) z2 n
在台灣玩家論壇撿回來的，參考用吧。

可以运行，不知道怎么替换我电脑内A3格式（"a3 - gb.slddrt"）
没有地方填写，一填写就出错

eric.bo · 发表于 2016-3-22 10:09:47

用迈迪设计宝2016试试，免费软件，里面有替换模板功能

ryouss · 发表于 2016-3-22 13:16:13

大鹿发表于 2016-3-21 23:28( B" ?* J* h/ d% O; `) D
在台灣玩家論壇撿回來的，參考用吧。

謝謝分享,2012sp4執行正常．

就是當圖頁比例和實際作圖比例不一致時,標題欄是顯示為圖頁比例,
一般這種情況,個人習慣標示比例是會依據實際作圖比例．

jinqin11 · 发表于 2016-3-22 14:40:20

ryouss 发表于 2016-3-22 13:16. K3 l' E' y7 H) d6 B$ C2 [& x: Q( H# K
謝謝分享,2012sp4執行正常．: }1 z9 H) @ g8 C: [4 k
' [* c5 r+ `' J9 b8 W( K+ z
就是當圖頁比例和實際作圖比例不一致時,標題欄是顯示為圖頁比例,

我用“a3-gb.slddrt"覆盖了原先的“a - landscape.slddrt”，测试成功了

ryouss · 发表于 2016-3-22 17:40:02

本帖最后由 ryouss 于 2016-3-23 11:39 编辑

如8# 若是圖紙格式是使用者自訂的,自訂的工程圖副檔名須為 .slddrt 並存入圖頁格式的內定路徑 ,並修改檔名為該有的對應識別碼號,
總之就是要騙騙 SW 了．

Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 0, 0, vSheetProps(2), vSheetProps(3), vSheetProps(4), "", 1, 1, ""
如上紅色就是呼叫圖紙格式的識別碼號

以上是稍微深入了解,有誤尚請指導！

jinqin11 · 发表于 2016-3-23 07:14:39

ryouss 发表于 2016-3-22 17:40
6 B; [; {! s& Y, Q如8# 若是圖紙格式是使用者自訂的,自訂的工程圖附檔名須為 .slddrt 並存入圖頁格式的內定路徑 ,並修改檔名 ...

我用的工程图手动替换模板一次，用宏运行就失败。能帮我分析下什么原因？

ryouss · 发表于 2016-3-23 08:21:44

jinqin11 发表于 2016-3-23 07:14
; V; m4 y- e7 B% f. A# o+ I5 j# H我用的工程图手动替换模板一次，用宏运行就失败。能帮我分析下什么原因？

陳述不清,不知怎麼幫!

是要如15#的效果嗎?

jinqin11 · 发表于 2016-4-19 09:32:26

大鹿发表于 2016-3-21 23:28
4 p8 v+ F6 S+ z; o, j/ |在台灣玩家論壇撿回來的，參考用吧。

今天我测试了一下出现问题
原图是A4的该格式变成A3，出问题了
求解决

天睿 · 发表于 2016-4-19 12:15:27

jinqin11 发表于 2016-3-21 22:057 {+ z2 ?3 P& D7 g* r" l
工程图已经画好了，但是是老图不符合新的公司规定，需要更换格式，我用录制的宏，是指定的比例，但是不是 ...

你编辑宏，把比例数值改为0，替换图纸时就不会改变原来比例的了

jinqin11 · 发表于 2016-4-19 16:28:36

本帖最后由 jinqin11 于 2016-4-19 16:30 编辑

天睿发表于 2016-4-19 12:157 _7 H- S7 K" X8 }( g/ P$ W
你编辑宏，把比例数值改为0，替换图纸时就不会改变原来比例的了

比例改为0，有是好的，有时变成这样

打印出来只有半截

天睿 · 发表于 2016-4-20 12:21:32

jinqin11 发表于 2016-4-19 16:288 q: U4 }) t6 I. I9 W6 J
比例改为0，有是好的，有时变成这样
4 H; d$ O0 j+ o' W" I2 u3 W+ t/ x4 |( z& H M- H2 }
打印出来只有半截

A4和A3的要分开运行宏

jinqin11 · 发表于 2016-4-20 12:49:06

天睿发表于 2016-4-20 12:21/ U6 `. V8 O! x, e& R
A4和A3的要分开运行宏

我图纸里有A3和A4，用什么语句可以判断？

天睿 · 发表于 2016-4-20 14:24:10

tk3681167 发表于 2016-3-21 15:49
+ j' _/ @! x/ ~* I8 w有一款插件很好用，把文件拖到列表中自动修改图纸格式

为什么我的提示失败：没有名称相同的模板？？？？

steve_suich · 发表于 2016-4-29 13:55:21

jinqin11 发表于 2016-4-20 12:49
- q( ?' w# O5 \7 d. i9 s2 U, |我图纸里有A3和A4，用什么语句可以判断？

vSheetProps = Drawing.GetCurrentSheet.GetProperties()
其中vSheetProps(0)是图纸的大小，8是A3，6或者7 是A4

liujingzhi612 · 发表于 2019-4-14 09:05:21

多谢楼主分享！！1

		自动登录	找回密码
密码			注册

通知

[求助] 如何用宏批量更改图纸格式

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块