关于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
" v+ G# @# u8 f) }
Dim swdoc As ModelDoc23 Y' j( M6 K4 }
swapp = GetObject(, "SldWorks.Application")0 C) a: b8 C3 X# N6 v0 L1 \
With OpenFileDialog1
7 W! o4 `' L+ K7 Y J
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"% \ J6 ^1 C( x, H; E, x% {
.FilterIndex = 19 R% ^+ ~ b8 X% ]
.Title = "选择零件或者装配件(Ctrl可多选）"8 a; ~' F( L$ ?6 ]
End With1 Y: F0 c6 L/ v* g) R9 ?5 L
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
* a- c5 _0 q7 z# j* @8 a( }" k) R
Dim stname As String
4 P8 H# T, n$ H6 [- X) n1 U7 V- r
For Each stname In OpenFileDialog1.FileNames* m" b3 H' h, c3 g X1 m
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
' A: i9 b: r' D+ _4 Q1 b5 e/ g! M
swapp.OpenDoc(stname, 1)- N: V9 s% R) c+ V6 X7 h3 L
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then
" j# r9 A- I* F0 c- e
swapp.OpenDoc(stname, 2)
m6 E2 z9 C; `4 d$ A2 {, C$ J
End If
8 q/ _ t3 ~4 q- d: X
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 n( P; l- }' j" o6 j
只学了点皮毛。抛钻引玉！！

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

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

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif
5 J: S* k* x) U3 z, W退出并保留草图绘制，代码怎么写

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
* q/ p" B& P: I3d草图每两条线倒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); i8 N8 O3 o4 E a/ F6 ^6 ~
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)/ m+ h: l# e4 @3 z8 j
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)
5 L1 {, @* [( f! ?% a% K
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)
5 A. I, n# X" z6 F' j( U" w
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
& j1 N3 L* @! v( C" F7 c
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)* ~6 h7 M/ e+ N; J! w8 F
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)
$ c9 B0 F1 s* @. p2 n# i& N% a
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)# _& a) K' B3 D7 j+ L
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)! V/ T# u/ o. b' t
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)1 g0 W( g# h: b6 |/ c3 g2 p

复制代码

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

通知

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

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

评分

浏览过的版块