机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
楼主: 响在江湖

关于solidworks转换dwg的宏程序

[复制链接]
 楼主| 发表于 2016-10-13 20:09:03 | 显示全部楼层
DaveChan 发表于 2016-10-4 08:22( n* T4 g/ {3 o7 }
给你两个函数参考7 K! {* ]% d0 C6 _* ^, h/ g
可以自己查找API& o$ E* E  d$ Y+ o
这两个函数都可以实现你要的功能
) w+ h, k- B1 ?, m' c" {2 R
首先感谢社友回复,不过你发的这个怎么复制到txt中呀?复制代码后只有“”ExportToDWG“这个。8 J, H# I6 ?5 e% ^" S
还有API是什么?请指教。# y# h- b7 ?8 x6 }, W' F: y2 o
回复 支持 反对

使用道具 举报

发表于 2016-10-13 21:17:18 | 显示全部楼层
响在江湖 发表于 2016-10-13 20:09& v( R) ~' w7 d8 C! W- p2 ?) Z
首先感谢社友回复,不过你发的这个怎么复制到txt中呀?复制代码后只有“”ExportToDWG“这个。
  a& K7 z. o  a8 Y: W3 l% d还有API ...

( o" @+ o/ Q8 x" @8 Z* X) q4 a稍微修改了帮助文件里面的代码代码如下( E' l  h( k! y
  1. Option Explicit5 `) w6 x# {5 q3 V9 l
  2. Dim swApp As SldWorks.SldWorks. H5 g- L+ X3 W( q' b% Y+ F  i7 T/ \) g' h
  3. Dim swModel As SldWorks.ModelDoc2
      j; c0 Z4 V+ I
  4. Dim swModelDocExt As SldWorks.ModelDocExtension' U7 r4 m+ k8 T% u! W9 @
  5. Dim FileName As String; g$ z( P: y+ E6 f  k
  6. Dim NewName As String
    5 [/ A5 i2 b0 H2 Q
  7. Dim boolstatus As Boolean* l5 O: m; q+ U' }
  8. Dim longstatus As Long, longwarnings As Long
    ; o% K. S0 q* Y; i" l) i
  9. Sub main()
    " r" C" ~. ~0 |* j$ m" M
  10. Set swApp = Application.SldWorks, ~% J- I, M$ I- ^
  11. Set swModel = swApp.ActiveDoc2 v/ P: D, ?3 P5 _
  12. Set swModelDocExt = swModel.Extension" o# J* Q/ n* ?3 c4 d& h2 y! R
  13. FileName = swModel.GetPathName()6 b- t1 e# d3 i* H
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    + {+ ]; l3 k6 q3 {6 C8 H
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_None)
    8 ^0 |5 `; _# u& V! b6 [! f# w, l
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings& W% X: [7 C8 O  [9 h! Y
  17. End Sub0 r( J) p2 l4 N
复制代码

- ?6 k, ^, Z% t) y0 B3 f1 H% X4 u/ R0 M0 _7 d
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-10-20 21:47:39 | 显示全部楼层
DaveChan 发表于 2016-10-13 21:178 H: N$ [6 C# z: @) @5 P
稍微修改了帮助文件里面的代码代码如下
- A& v) K* W( K9 {
社区果然有高手存在啊!为社区有这样为人解惑的人存在感到欣慰!真心感谢为我解决头疼的问题,不过因为是水刀下料,可不可以转换后不要折弯线?就像默认的那样。忘高手进一步解答。再次感谢!8 B; n4 H$ O2 e$ {/ q& ~) v. v
回复 支持 反对

使用道具 举报

发表于 2016-10-21 13:49:04 | 显示全部楼层
响在江湖 发表于 2016-10-20 21:47
8 r7 R: v( W, i社区果然有高手存在啊!为社区有这样为人解惑的人存在感到欣慰!真心感谢为我解决头疼的问题,不过因为是 ...

' ]3 t$ V: U8 {# |移除折弯线代码如下:
$ W: U  d# ~- b% v3 }1 R
  1. Option Explicit! y) ], L+ m- T1 j6 ^( k9 p: F+ O
  2. Dim swApp As SldWorks.SldWorks& q; d- N8 K; _- `
  3. Dim swModel As SldWorks.ModelDoc2
    ( q1 c$ {1 b6 P4 i0 T) q0 J  J
  4. Dim swModelDocExt As SldWorks.ModelDocExtension+ ?' K# i, ~% [
  5. Dim FileName As String9 x2 y7 W2 ]: X! S' h# v
  6. Dim NewName As String9 J, P  _  C3 c4 g+ y1 ]" z
  7. Dim boolstatus As Boolean
    , p* H' J' t0 K( \& V" f
  8. Dim longstatus As Long, longwarnings As Long
    & Y/ }- S3 Z3 K: D$ C9 ?
  9. Sub main()% M7 R$ W, O" A- |+ f
  10. Set swApp = Application.SldWorks
    ; D$ `: O7 j+ ?" F
  11. Set swModel = swApp.ActiveDoc- g5 M# d6 q% h- r: B
  12. Set swModelDocExt = swModel.Extension
    2 S  `% y3 ?: A3 s7 O
  13. FileName = swModel.GetPathName()$ ^2 Y* u7 P! g* d$ k
  14. NewName = Left(FileName, Len(FileName) - 7) & ".dwg"
    / q7 l' w) I3 A
  15. boolstatus = swModel.ExportFlatPatternView(NewName, swExportFlatPatternOption_RemoveBends)7 L; U3 N4 c4 b1 W* I( N5 o
  16. swModelDocExt.SaveAs NewName, 0, 0, Nothing, longstatus, longwarnings
    2 R( |: q' Y0 I, k7 _# O& I
  17. End Sub
    # m' K7 j6 S2 v, o+ ~
复制代码

: E/ A3 n2 o8 ~" k. y9 F5 `. C+ j# r+ E8 M9 A
回复 支持 反对

使用道具 举报

发表于 2016-10-22 14:03:02 | 显示全部楼层
能把这个宏分享一下么?这可以方便做钣金展开的朋友们呀,谢谢
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-10-23 10:25:00 | 显示全部楼层
tyne1314 发表于 2016-10-22 14:03' o: Q( B; M) I4 V/ K5 P
能把这个宏分享一下么?这可以方便做钣金展开的朋友们呀,谢谢

& A% q5 e( P# n" O; w: G我试试啊- j8 |5 n7 C5 C2 ]! A$ Y
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-10-23 10:26:54 | 显示全部楼层
DaveChan 发表于 2016-10-21 13:49; W) }# ^# _* P# v" v
移除折弯线代码如下:
# A% [8 N) k# o2 z' N6 R, B$ ^% o
太牛了!真心感谢,应社友要求共享该程序不知这个借花献佛可以不?呵呵
( e3 b8 q1 }- e8 B, T# Y
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-10-23 10:27:37 | 显示全部楼层
tyne1314 发表于 2016-10-22 14:03
6 z4 G# z* D2 i' z; q: V, B能把这个宏分享一下么?这可以方便做钣金展开的朋友们呀,谢谢
. m% M: }' p4 M, v- L8 p
你是专门学过VB吗?还是也是录制的宏程序?
+ I5 s! I5 z+ a
回复 支持 反对

使用道具 举报

发表于 2016-10-23 10:34:12 | 显示全部楼层
响在江湖 发表于 2016-10-23 10:278 \4 S/ `: O1 K) c* ?0 t
你是专门学过VB吗?还是也是录制的宏程序?

2 T. i) E# m2 S3 G% j可以共享的,这些代码是API帮助现成的,我只是稍微更改了一下,符合你的要求而已
5 w( T& I, V6 ]7 i0 i
# L7 v  k4 C) y% P! k; I我编程只是业余爱好而已,不专业7 K( a# g. p. }. F( L7 `! a

5 {. |. v; Y7 w$ ]
回复 支持 反对

使用道具 举报

发表于 2017-12-4 23:46:03 | 显示全部楼层
顶一万个赞
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2024-3-28 17:09 , Processed in 0.061280 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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