机械必威体育网址

标题: 关于solidworks转换dwg的宏程序 [打印本页]
作者: 响在江湖    时间: 2016-9-25 09:24
标题: 关于solidworks转换dwg的宏程序
如题，最近本人在做钣金件的下料图准备传送给车间水刀下料，可是图纸太多了，而且每一张都是简单的重复操作，操作内容如下：打开钣金件——直接另存为dwg格式其它内容不变最后保存dwg图纸——关闭当前图纸。想录制一个宏程序以便其它零件能更快的转换，但本人才疏学浅，又没专业的学习过VB，所以没有成功。因此，想请教各位万能的社友，这个宏程序是无法制作还是什么原因？或者谁有相关宏程序的麻烦分享一下，十分感谢解答！
' }) S" B  A) L* ]
作者: albert.tang    时间: 2016-9-25 15:50
SW打开后不是要先展开然后再保存平板件到DWG？还有正反面怎么确定？
作者: 未来第一站    时间: 2016-9-25 15:58
默认的选项怎么处理？
作者: 零度freedom    时间: 2016-9-25 16:10
从零件直接转到CAD就不知道怎么一步到位了，要是多个工程图转CAD那可以试下solidworks 工具--soldworks task scheduler
作者: 响在江湖    时间: 2016-9-28 20:57
albert.tang 发表于 2016-9-25 15:507 P& h" c6 f4 w/ e/ `0 H8 k1 _, r
SW打开后不是要先展开然后再保存平板件到DWG？还有正反面怎么确定？

3 A& G( w1 m+ t# e不用展开，直接保存成dwg就自动是平板模式了，无需区分正反面，没折弯之前两面都一样。
: q. a8 m7 _7 e
作者: 响在江湖    时间: 2016-9-28 20:59
未来第一站 发表于 2016-9-25 15:58
0 p6 ?) \0 g7 E5 V: e# _, ]默认的选项怎么处理？
8 }2 q# i4 u2 f0 R: B
就是默认的就可以啊
' C$ ~$ Z4 T( x: j, i2 F" T. D" d* F
作者: 响在江湖    时间: 2016-9-28 21:01
零度freedom 发表于 2016-9-25 16:10; F4 C8 G, _5 j
从零件直接转到CAD就不知道怎么一步到位了，要是多个工程图转CAD那可以试下solidworks 工具--soldworks tas ...
4 `) {* E3 m  D9 _
嗯，这个我知道，而且还可以做成宏，不过我要的只是展开下料图，其它的都是多余的还得一一删除。。* Q9 X7 u3 j/ P3 `/ X
作者: 响在江湖    时间: 2016-9-28 21:01
大神在哪里？
作者: 响在江湖    时间: 2016-10-3 15:07
十一都休息了，还是自己顶上去，希望有高人可以指点
作者: DaveChan    时间: 2016-10-4 08:22
响在江湖 发表于 2016-10-3 15:075 x8 N5 y5 j! I; `/ u
十一都休息了，还是自己顶上去，希望有高人可以指点
1 H: j! c/ n8 N0 u7 M
给你两个函数参考
, R7 u7 ~1 z! F可以自己查找API
4 m  [2 r3 w! @/ h1 h
  1. ExportToDWG
复制代码
  1. ExportFlatPatternView
复制代码
这两个函数都可以实现你要的功能7 e7 \& B' I! t% T$ N8 D" e/ |
并且API都有例子5 l# L1 M" o- Y$ s5 z6 z
, b% D4 j* T: q( Y
作者: 响在江湖    时间: 2016-10-13 20:09
DaveChan 发表于 2016-10-4 08:22* n: S7 f$ p. z' J3 P
给你两个函数参考
9 J- ^3 F- z  g1 q* q可以自己查找API
. b0 p1 u9 H+ U" O" H" T/ L% ]% K这两个函数都可以实现你要的功能

4 E) P! T( J5 a8 j" a首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。/ |) N6 t5 o0 E$ p
还有API是什么？请指教。
7 T: A- {/ o$ y3 z: a
作者: DaveChan    时间: 2016-10-13 21:17
响在江湖 发表于 2016-10-13 20:09
/ J4 r' o6 [3 s" o: F( Q首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。; |, H( Q  A7 f8 g* ]4 m7 b5 p# E
还有API ...

( M. G5 l, Y* X, }6 I稍微修改了帮助文件里面的代码代码如下0 z- p1 i0 U; e/ E
  1. Option Explicit
    8 E- ^7 ~* ~8 O9 k
  2. Dim swApp As SldWorks.SldWorks
    8 I$ o1 N. V7 f% D' f) d4 I( S
  3. Dim swModel As SldWorks.ModelDoc2! G+ q# k/ b7 ?% W+ X" h9 u( S: R
  4. Dim swModelDocExt As SldWorks.ModelDocExtension
    / W2 C* N) i# S. m2 \
  5. Dim FileName As String. z$ j7 S* X8 @+ B- s2 E7 ^* g
  6. Dim NewName As String/ I+ \* U' T' K) n# r
  7. Dim boolstatus As Boolean
    ; U1 L9 Y% i. z! D; S
  8. Dim longstatus As Long, longwarnings As Long
    ( Y: R5 j' b2 V7 ]! |  Q/ f
  9. Sub main()+ C: v8 w  E2 `; ^
  10. Set swApp = Application.SldWorks  k$ w& ?* k. ~$ D9 F
  11. Set swModel = swApp.ActiveDoc
    : t- L/ a! }2 z
  12. Set swModelDocExt = swModel.Extension7 ?6 h6 x! J. \* w. p
  13. FileName = swModel.GetPathName()/ [# [7 w6 J9 {6 y5 v9 b
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"4 z" N5 ]( E* _7 W) l! t, I' x' h
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)2 g* C: n) f2 I" P4 V
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    8 T. a2 X+ M3 E: w1 c# Y$ C
  17. End Sub: n. {) H' W  D" f- B, n
复制代码

1 T5 s* e/ p4 `: D; V# d6 @0 q! {4 U8 J7 A
作者: 响在江湖    时间: 2016-10-20 21:47
DaveChan 发表于 2016-10-13 21:17
% K% l. }9 F6 ~4 O稍微修改了帮助文件里面的代码代码如下

! V1 j# N! H# |3 i必威体育网址果然有高手存在啊！为必威体育网址有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是水刀下料，可不可以转换后不要折弯线？就像默认的那样。忘高手进一步解答。再次感谢！' [$ v# x0 b0 D5 r/ I; o
作者: DaveChan    时间: 2016-10-21 13:49
响在江湖 发表于 2016-10-20 21:470 C4 X; d0 V, T; ~. k$ M4 ?2 [6 O
必威体育网址果然有高手存在啊！为必威体育网址有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是 ...
! Y- _2 E- x4 V3 f; G5 n
移除折弯线代码如下：4 H' z0 M$ ?% b, f3 W2 E
  1. Option Explicit
    6 @* \6 Y9 b% P# z
  2. Dim swApp As SldWorks.SldWorks
    1 k/ j  L8 U, f1 \/ M" g. Q/ K" [( |" ^
  3. Dim swModel As SldWorks.ModelDoc2, u) f  f; d% W1 @" n* C) d
  4. Dim swModelDocExt As SldWorks.ModelDocExtension/ t! K, a; Q- u
  5. Dim FileName As String$ G* Q& R! a/ U
  6. Dim NewName As String
      ]- i- o2 y4 K3 K  B6 a
  7. Dim boolstatus As Boolean
    4 r+ Q$ ~9 M3 n4 n8 m
  8. Dim longstatus As Long, longwarnings As Long* o" \9 I/ Z4 K& v" b+ m
  9. Sub main()
    4 G! l6 r/ f/ B: t  N
  10. Set swApp = Application.SldWorks
    2 z3 |: J: w, f0 ~4 [/ \/ X
  11. Set swModel = swApp.ActiveDoc
    4 b3 E/ N. Z- X, }, z
  12. Set swModelDocExt = swModel.Extension
    4 D- Q6 Z2 Y8 ~3 q! N$ _
  13. FileName = swModel.GetPathName()3 r% D. s# _: E' ~  y$ U5 Q
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg". O3 i  R1 |& U# X3 ^
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)* B% l$ @$ X. ?
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings! _/ t# F* U7 l) K' k
  17. End Sub+ x6 l. ]8 K/ q5 w! l
复制代码
! w3 a8 m- d' J; d

% ]: u' V7 X* {9 }7 }& T
作者: tyne1314    时间: 2016-10-22 14:03
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢
作者: 响在江湖    时间: 2016-10-23 10:25
tyne1314 发表于 2016-10-22 14:03
  P; S8 w/ ]" C8 W  H" F能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢
5 U$ h5 }% Y( G5 y' `5 z: h1 ?0 E
我试试啊
4 z4 e, u. \* u& a% e6 o
作者: 响在江湖    时间: 2016-10-23 10:26
DaveChan 发表于 2016-10-21 13:49( {4 L3 ?7 j& [9 A( F4 r
移除折弯线代码如下：

! D0 x# a* O' M太牛了！真心感谢，应社友要求共享该程序不知这个借花献佛可以不？呵呵
1 l+ L3 r5 v  P- ?1 N" R8 A0 X
作者: 响在江湖    时间: 2016-10-23 10:27
tyne1314 发表于 2016-10-22 14:03
/ O* [; h2 [2 A5 [1 y能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

2 }$ f9 {& O8 ]; e# Z你是专门学过VB吗？还是也是录制的宏程序？
5 q6 O5 [' Y" K: A1 a0 E
作者: DaveChan    时间: 2016-10-23 10:34
响在江湖 发表于 2016-10-23 10:27
( W9 V; ]0 B8 b' s6 m* w你是专门学过VB吗？还是也是录制的宏程序？
( w( C9 f9 ^% s* P
可以共享的，这些代码是API帮助现成的，我只是稍微更改了一下，符合你的要求而已
" f% t: b  q% t5 w$ f7 Q/ K- s( D) {% C5 A5 m0 Y8 Z  B
我编程只是业余爱好而已，不专业
8 T2 O5 m6 e1 v, l# u6 E# w& ^: z+ K3 o. n7 E# V4 d) s
作者: leilei333    时间: 2017-12-4 23:46
顶一万个赞
作者: chaomogu    时间: 2018-5-25 22:01
DaveChan 发表于 2016-10-13 21:17
6 G, N1 w$ G6 K! o8 ^稍微修改了帮助文件里面的代码代码如下
2 R4 [# N5 t+ E" [% i; G: J
为何我复制代码就出错
+ S: V" h7 C1 ~* B( k# T: v& }
作者: yanhongbin78    时间: 2019-8-2 15:49
版本不同还不能直接选用的，楼主是哪版的？
作者: dallas99217    时间: 2019-11-17 11:12
学习一下
作者: 响在江湖    时间: 2020-1-6 21:47
chaomogu 发表于 2018-5-25 22:01
7 c: T7 ~& D! d  ~2 ^为何我复制代码就出错

4 u6 e  m2 h1 q$ n7 {2 Q我2015的可以用的; e- k: r/ [7 v9 D" l. N/ g
作者: knight3732449    时间: 2021-7-15 19:55
看看，学习一下，攒攒威望
作者: suiyue443    时间: 2022-9-8 15:53
你好楼主 为何用这个宏导出的钣金展开图 有的孔大小不对？请问你有没有遇到这个问题



欢迎光临 机械必威体育网址 (//www.szfco.com/) Powered by Discuz! X3.4