关于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
/ }" o$ P# e" F* @
Dim swdoc As ModelDoc2
# B) p6 d0 ?% }$ s
swapp = GetObject(, "SldWorks.Application")
* X. [$ ^2 p) G! S) f
With OpenFileDialog1
1 ~% Q, {0 U) L) {8 S
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
6 o, U) A4 u0 U- ]2 t5 j
.FilterIndex = 1
. v% }+ v. x! ^; M$ x" o) x& q
.Title = "选择零件或者装配件(Ctrl可多选）"
1 k4 L+ [& |9 N* F1 ~) Q
End With
4 B/ ?. D$ Q5 U1 W. A- v8 ]1 x, u1 D
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
( S/ A9 A0 o) E9 F( y
Dim stname As String- S" Z, G% H1 ?9 Z. _
For Each stname In OpenFileDialog1.FileNames- y7 o2 Y" _$ Z. l( V% B
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
8 D) v9 c5 Z7 L. ^1 o
swapp.OpenDoc(stname, 1)
; ]5 D. c- w" k( j I3 [) N# p
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then2 l3 |1 B7 O+ j* ~) i5 M9 }
swapp.OpenDoc(stname, 2)
6 y$ x1 M7 p, a& q# r' Q. G" H
End If b9 ^3 O+ ]- j+ p7 }# o1 X$ Z# P
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& b( P4 a8 h' W% Z0 {8 n$ c2 ?: ^
只学了点皮毛。抛钻引玉！！

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

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

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif( \& K! t* n9 D" X# o
退出并保留草图绘制，代码怎么写

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
Z; ?4 P& y* L7 N7 q6 c3d草图每两条线倒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)# Q+ M) A5 Q# f/ l
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)5 }# p& Q' y$ A: y6 o
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)4 b4 h, ]( X+ q9 f6 q* g3 e0 ~
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms) R3 I7 }2 i6 @) c/ k, P
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
- E# r# b a* H3 `6 R2 H6 s$ q
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
8 Y) b% }! z9 r" s( }
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)8 {. x2 Z, z/ I3 \: U+ ^
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)
+ Y8 o; y/ l$ @3 D1 r r
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)( }3 s9 _( o7 s! Z! h6 |* W
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)
# l2 \$ ]0 }; B8 G) k4 ]

复制代码

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

通知

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

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

评分

浏览过的版块