关于SW二次开发常用代码

steve_suich · 发表于 2015-1-9 16:54:19

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

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

x

本帖最后由 steve_suich 于 2015-1-9 17:00 编辑

VB.NET代码
引用SW库 : SolidWorks.Interop.sldworks.dll，SolidWorks.Interop.swconst.dll
连接SW，打开文件 :

Dim swapp As SldWorks
, \: B$ g7 u8 b1 @) n8 b
Dim swdoc As ModelDoc2
* ?0 d* i3 V( b ?# C! j
swapp = GetObject(, "SldWorks.Application")* _3 s6 y% z2 U& W& }% `% t" _
With OpenFileDialog1% q7 @% m5 V1 z! Y+ G* o. X. Q
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
: I3 m, A5 Y$ x8 h- N4 B5 ^( N
.FilterIndex = 1' Z" b4 P* ]8 Q) v% x* S
.Title = "选择零件或者装配件(Ctrl可多选）"; W; W2 i7 i% f) T4 v2 r' G; b
End With
% p# o; Y# j( E) G. H w
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
1 u2 ?8 E+ y3 i5 \& J
Dim stname As String+ B* I% I2 q2 O ]
For Each stname In OpenFileDialog1.FileNames
: t, I$ s# l1 Y$ P
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
. `- k1 u; B4 X1 |( Q6 L4 Z3 J
swapp.OpenDoc(stname, 1)
! d2 W5 a+ `; n1 ~" N
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then1 Y% v9 f( U- g2 k$ A, r
swapp.OpenDoc(stname, 2)
" Q/ k0 u6 ]/ _1 s5 {! p4 I, }
End If
% d' q$ Y, J7 g5 |" t' ]& ~
swdoc = swapp.ActiveDoc

复制代码

steve_suich · 发表于 2015-1-9 17:01:45

只学了点皮毛。抛钻引玉！！

steve_suich · 发表于 2015-1-9 17:03:51

本帖最后由 steve_suich 于 2015-1-9 17:05 编辑

添加自定义属性：swdoc.AddCustomInfo2(“自定义属性名称”, swCustomInfoType_e.swCustomInfoText, "内容")
还可以这样：
swdoc.AddCustomInfo2(“Weight”, swCustomInfoType_e.swCustomInfoText, """" & "SW-Mass@" & swdoc.GetTitle & """")

foxjinlin · 发表于 2015-1-9 19:08:16

退出并保留草图绘制，代码怎么写

ss988 · 发表于 2015-1-9 19:47:02

3d草图每两条线倒R角怎样选择直线？楼主会吗？

steve_suich · 发表于 2015-1-10 14:05:17

steve_suich 发表于 2015-1-9 17:01 static/image/common/back.gif
% {/ E4 `/ T8 ^ F7 |只学了点皮毛。抛钻引玉！！

我想应该是这个吧。
swmodel.SketchManager.InsertSketch(True)

steve_suich · 发表于 2015-1-10 14:06:05

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif
, V4 _/ z- E5 {: L$ c退出并保留草图绘制，代码怎么写

我想应该是这个吧。
swmodel.SketchManager.InsertSketch(True)

steve_suich · 发表于 2015-1-10 14:07:11

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif/ B+ D* c+ z6 L
3d草图每两条线倒R角怎样选择直线？楼主会吗？

这个不会，期待高手解答。

steve_suich · 发表于 2015-1-10 14:27:26

Mid(stname, Len(stname) - 6) = ".SLDPRT"
改为 Path.GetExtension(stname) = ".SLDPRT" 更合理。

steve_suich · 发表于 2015-1-14 08:57:07

单位设置：

swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_e.swUnitSystem_Custom)1 H7 P# s. D0 G8 x+ k6 p) }/ b
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)9 ?6 Z) d8 M/ Y, W2 Q
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)( r/ i4 d4 {/ u! l7 r
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)
8 U, W: E+ [, g5 b# f
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)4 H0 W: ~9 A; ^' J# h% O- Z
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
7 T+ g! C' I' U6 j( b9 g* g( G% |
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)
4 t4 m% U& g" @
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)2 b& Q3 N9 a: _! W$ d7 M4 w
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
' l* P3 m$ O, L- m3 a7 k( O
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)' P( c. w. ]( ^4 f

复制代码

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

通知

[分享] 关于SW二次开发常用代码

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

评分

浏览过的版块