关于solidworks转换dwg的宏程序

响在江湖

DaveChan 发表于 2016-10-4 08:22
5 R7 H% Q4 v, a: ~1 C% Z给你两个函数参考
/ _. Z+ a& o2 Y9 N, ?6 S可以自己查找API
这两个函数都可以实现你要的功能

首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
( f8 ]( B' g7 r还有API是什么？请指教。

DaveChan

响在江湖 发表于 2016-10-13 20:09
首先感谢社友回复，不过你发的这个怎么复制到txt中呀？复制代码后只有“”ExportToDWG“这个。
还有API ...

, v/ K( r0 c( ?( Y- U4 d, m稍微修改了帮助文件里面的代码代码如下
) v8 M: H: P+ v: J8 W: N$ S

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   & g3 ^) A$ J- W" m1 ^
3. Dim swModel As SldWorks.ModelDoc2
   ! [6 ~7 y. w' j2 Y! z- a/ |
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   
5. Dim FileName As String
   ( |: e6 z) |1 Z9 x8 X8 h6 `
6. Dim NewName As String
   
7. Dim boolstatus As Boolean
   . D- x: S/ p6 c) Z
8. Dim longstatus As Long, longwarnings As Long
   ; ]9 _/ k) ]1 r( [# x' k1 w9 t
9. Sub main()
   
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    . D$ b' {. ^& s& o+ @3 L
12. Set swModelDocExt = swModel.Extension
    
13. FileName = swModel.GetPathName()
    
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    / T# r* c9 A$ b& V* M5 b v; O
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    ; T2 F' H4 B+ ~; \* E
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    
17. End Sub
    

复制代码

% Y2 x; I: Y3 K

响在江湖

DaveChan 发表于 2016-10-13 21:17
$ }+ {+ h. R9 l) }稍微修改了帮助文件里面的代码代码如下

' T. E* z" } ]必威体育网址果然有高手存在啊！为必威体育网址有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是水刀下料，可不可以转换后不要折弯线？就像默认的那样。忘高手进一步解答。再次感谢！

DaveChan

响在江湖 发表于 2016-10-20 21:47
必威体育网址果然有高手存在啊！为必威体育网址有这样为人解惑的人存在感到欣慰！真心感谢为我解决头疼的问题，不过因为是 ...

移除折弯线代码如下：
3 P" G) l( y# A/ g$ L1 s) W

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   p) s, {5 K( S9 c
3. Dim swModel As SldWorks.ModelDoc2
   " I. S0 k, |. T8 z4 {0 Q9 t k0 C9 D
4. Dim swModelDocExt As SldWorks.ModelDocExtension
   
5. Dim FileName As String
   , b% ~. a6 o# X9 V; h1 e9 a i
6. Dim NewName As String
   : \% r) {: ?1 `: v/ Q4 o3 Z' b
7. Dim boolstatus As Boolean
   
8. Dim longstatus As Long, longwarnings As Long
   
9. Sub main()
   / {( z+ h' \/ q2 \
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    
12. Set swModelDocExt = swModel.Extension
    - h7 Z h9 V9 K) A4 v
13. FileName = swModel.GetPathName()
    + p5 p6 }- c5 X- `* R0 n1 Q
14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    ) f# e m0 C. z3 J5 z2 m% _
15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)
    7 D- R- y2 p/ ?3 ^" O, O; u
16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    
17. End Sub
    , n* A F* @8 P' v0 [" y4 a7 `! k

复制代码

' U9 u& b( ~; [1 I
* p/ t% [6 H5 d, @. _4 {

tyne1314

能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

响在江湖

tyne1314 发表于 2016-10-22 14:03
能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

I c" d4 r' U% y* h9 `我试试啊
f5 O) L* u5 M

响在江湖

DaveChan 发表于 2016-10-21 13:49
6 f) \# n" {6 E" k! \移除折弯线代码如下：

3 S4 ^' g, ~1 m# n2 _! P, O5 @2 y* y太牛了！真心感谢，应社友要求共享该程序不知这个借花献佛可以不？呵呵

响在江湖

tyne1314 发表于 2016-10-22 14:03
7 q+ a1 H1 W! d, T2 l D4 z$ D' p能把这个宏分享一下么？这可以方便做钣金展开的朋友们呀，谢谢

# I) f w9 e" m9 p7 i你是专门学过VB吗？还是也是录制的宏程序？
' h+ P; C& k1 z3 r2 T4 e ]4 W

DaveChan

响在江湖 发表于 2016-10-23 10:27
你是专门学过VB吗？还是也是录制的宏程序？

可以共享的，这些代码是API帮助现成的，我只是稍微更改了一下，符合你的要求而已

我编程只是业余爱好而已，不专业
6 X7 @ S3 Y- z2 M* u

leilei333

顶一万个赞