关于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 SldWorks7 j" ]3 u$ r) m5 ^4 b( G w9 X8 L
Dim swdoc As ModelDoc2
: Y( _. J2 m& b0 T0 ~; T3 R
swapp = GetObject(, "SldWorks.Application"). l, m4 O+ t1 m/ v& B6 |6 E3 x
With OpenFileDialog1
5 i3 @7 K4 |( X' i
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
% n1 c7 A& l, s4 Z L
.FilterIndex = 1& s5 K6 Y( [' g, d, t
.Title = "选择零件或者装配件(Ctrl可多选）"
6 D& \6 j2 I. y0 |% h7 M% W
End With
9 m" t! E. S: n+ y/ e+ b, `6 q
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
3 h$ q0 ?. ?0 s& Q# U+ z- j7 f% D
Dim stname As String, F$ Y5 v% V: J" o0 e8 f/ Z
For Each stname In OpenFileDialog1.FileNames
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
7 G* c/ s2 x6 N9 q. v2 Y
swapp.OpenDoc(stname, 1)4 D4 S) G4 e+ n/ ^- G3 `0 b+ A- w" f5 s
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then
9 A& _# @$ R h* v0 ~4 |8 Q: _
swapp.OpenDoc(stname, 2)
) }1 @- o! f5 p7 k* U) o8 P G( }
End If
/ I; `6 D8 ]% n C( V
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* P" [- f: k; o. m. X, e) \. l
只学了点皮毛。抛钻引玉！！

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

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

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif
, l! W( S. _* a( k1 W" W7 m0 j0 e* Y2 ?退出并保留草图绘制，代码怎么写

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
" k. n6 A G& Y9 s7 g S3d草图每两条线倒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)
9 e5 k p% B* N T
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)
/ A. c6 M. M a* n2 J% s$ s
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)
* x; x' |% M E5 o
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)) s1 y7 m: `. j
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM) ?# `6 M: ^" h( P+ d+ R! G0 B3 q
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
' ?' t6 [9 V9 @% T2 _' u& u
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)4 e6 I0 U# ^' Q
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)4 c9 [: `& D0 Z5 j- v Y
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3) a' U. w3 A- U# @3 n" x9 u6 R" g
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)* X3 n$ z h' j

复制代码

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

通知

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

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

评分

浏览过的版块