找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 6565|回复: 5

批量替换工程图模板程序问题

[复制链接]
发表于 2020-4-12 11:34:02 | 显示全部楼层 |阅读模式
本帖最后由 zqzwhj111 于 2020-4-12 11:38 编辑
2 j. ^4 K6 c+ u) j
" I; F9 B. \8 j, V 有大佬知道这个程序哪里出问题了吗,替换不了,用visual studio写的,VB语言,SolidWorks版本是2012的
. j' R/ I* Z  |; z) j5 W$ n7 B
, {- @  |8 |( _$ C0 nPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, ^! U% r2 Z+ W# h
        Dim swapp As SldWorks.SldWorks, g. p6 T8 b" F0 x& {) I9 A6 G. o
        Dim modle As SldWorks.ModelDoc2& n) n9 M" M/ I, p" w) t- [& O
        Dim sheet As SldWorks.Sheet
& Q: v/ }3 |. f: a        Dim sheetpr() As Double' e$ w6 d+ d- h& A) `3 q
        swapp = CreateObject("Sldworks.application")
: ^9 @0 f2 s1 o5 T
; B, a. R4 ~1 |& P0 n5 [8 ^# s        Dim pathname As String: X% S/ E1 \) g" \8 I4 B
        pathname = TextBox1.Text         '获得文件夹路径- e- g; Q: J7 B3 @" l5 _* y
        Dim swpath() As String
8 b; D+ q* }2 ?/ e/ t! V        swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")        '筛选图纸文件名& ?/ d" N7 |% j( x
        For Each strname As String In swpath       '列出所有图纸文件名7 ?. a- B/ T0 G/ O+ c- w1 R/ |
            modle = swapp.OpenDoc(strname, 3)      '打开模型) n3 D: x  P  G$ C0 \
            sheet = modle.GetCurrentSheet()         '获得当前图纸
9 Y( w5 ]# N/ X4 |            sheetpr = sheet.GetProperties()        '获得图纸属性
* C+ N3 n- A; F+ e            sheetpr(1) = 12
9 B$ f% v; Z6 F; C6 c: |1 J2 z3 ?            sheetpr(1) = 122 N5 @; Z2 D. k. i" g: z
            sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
' b- o% a" H: {) M            If sheetpr(5) = 210 / 1000 Then
- a! |( `8 p# j. m& x. X7 G                sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A4替换.slddrt")
- G/ o# `! q# x: {' H            ElseIf sheetpr(5) = 420 / 1000 Then; L' w7 e3 n, c" E. v
                sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A3替换.slddrt")
3 y$ Q5 ^3 Y* W0 W% S            End If5 D: k6 i# H% D6 w7 R
            modle.Save3(1, swerrors, swwarings)3 M. x2 z3 }: f' [, V
            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))8 S; }7 U3 F0 Z
        Next
4 `: a7 Y7 p% X# L! |- b) s( @End Sub
6 {5 K* `* C8 w' m0 Q/ q7 z! L7 i! n, ~2 q5 G+ x
回复

使用道具 举报

发表于 2020-4-12 11:38:36 | 显示全部楼层
有试过把程序里面的路径和模板改为英文的吗
 楼主| 发表于 2020-4-12 11:39:11 | 显示全部楼层
gaxisjtu 发表于 2020-4-12 11:38
& e' j; f' G1 a6 Y有试过把程序里面的路径和模板改为英文的吗
4 t3 X: h& j2 M
我试试
7 `' y& }" o  [
 楼主| 发表于 2020-4-12 11:41:56 | 显示全部楼层
gaxisjtu 发表于 2020-4-12 11:384 ^7 }- ^# v; t! v& m
有试过把程序里面的路径和模板改为英文的吗

# [5 D3 i% Y: N6 U( |1 w还是不行
& a. ^0 C" F, s9 [4 E- D
发表于 2020-7-13 11:11:14 | 显示全部楼层
057762768008
: _9 H/ X  V) v2 Q
发表于 2021-6-24 13:43:54 | 显示全部楼层
顶一下,等待高手
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-7-15 03:41 , Processed in 0.064038 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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