关于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
& \6 B$ Y! t- B3 D
Dim swdoc As ModelDoc2) p8 \. f# B1 ^5 D% N
swapp = GetObject(, "SldWorks.Application")
- ~3 g* s% x& v% ]
With OpenFileDialog1
4 }# R+ L( f& X, }9 M) U a
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"* Q4 k% Q) ?6 R4 h$ @" w6 t3 x9 O
.FilterIndex = 1- n1 m% `8 u1 A
.Title = "选择零件或者装配件(Ctrl可多选）"5 e/ _) ~% v3 `7 u& o+ W: m
End With
* ]. K$ w! L% }% G0 I. T: }8 u
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then# P" A7 r; K# D0 |5 i0 ~4 G6 `
Dim stname As String
; w n6 v" \& i8 H# [
For Each stname In OpenFileDialog1.FileNames# X/ v% ]# \+ j8 e$ W* h( h
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
: P8 H9 x, u6 T
swapp.OpenDoc(stname, 1)4 T: @, O' R( z1 C9 c( M
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then$ G6 }, l: u- l* N3 ?* Z- P
swapp.OpenDoc(stname, 2)6 l7 [' ~7 u! _2 h% Q
End If8 T$ t: t% O+ V4 v% G& x9 \ N
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.gif2 W& j0 n/ j, x. q7 Y
只学了点皮毛。抛钻引玉！！

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

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

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif
* `' i3 m0 l9 m, w. c* @退出并保留草图绘制，代码怎么写

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
; n9 @4 |$ O6 G+ ]6 I: X# R3d草图每两条线倒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)
% |8 f+ t7 w) ^( W
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)" u! Q) P/ e; R: F' S# Z
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)
I8 x' I0 u, u; z
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)
# q" J' A* n; H& O
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
" V: G1 w* O. X5 q" _
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
+ a4 ?% P2 E# g- V" {' f
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)
' i: y. ]& ~0 A T
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons) b( G. t# U5 s7 Y6 x
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3); I% \# P% m; s% x$ H. Q
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second). |+ b/ i: V+ X! [$ E% w& d

复制代码

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

通知

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

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

评分