关于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/ r; X4 C- [+ r8 W
Dim swdoc As ModelDoc2
4 Z% l+ h5 ^0 D. g' C
swapp = GetObject(, "SldWorks.Application")& Y7 ?) B" t$ u. V9 f& L K: s6 {2 r# G
With OpenFileDialog1& c" z" g: R7 S+ d A
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
5 Z3 W/ T1 G8 J9 ?5 d0 H
.FilterIndex = 1
* Q6 g* M( }, s
.Title = "选择零件或者装配件(Ctrl可多选）"
( @2 {# [) I2 P- r
End With
* Z. @: j+ x* y) q
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then5 v7 d" t* Q1 C5 }+ G
Dim stname As String! E7 P( ~) w; [! C
For Each stname In OpenFileDialog1.FileNames
! D5 S( m5 w' Q+ w
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
- Q! j& I+ Z3 b. T$ ^# x
swapp.OpenDoc(stname, 1)( s7 P) ]4 A. `. |
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then6 p' u# n8 a: l1 S8 l- @
swapp.OpenDoc(stname, 2)" `3 K8 W7 w# Q( n, A. D5 Y2 n
End If
5 ]1 G1 o( A9 `8 J+ l
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
, r( b/ g* ~( o& ]只学了点皮毛。抛钻引玉！！

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

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

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif! i: \* F; `% @& o0 a' c' Y
退出并保留草图绘制，代码怎么写

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
2 P" V) H4 q2 Z G, |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)
# `$ I5 ^' r3 k
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM): @3 A& j; d; u: ^2 C
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)" k# U4 l; p" q: Z4 T5 v
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)7 s5 |! n7 v# K1 P
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM); `4 a! _1 I+ s) Z( _
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3), G" x7 u$ [, r$ x h
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)" T: V1 i: m& {! S6 `3 l5 n, i9 _
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)
% C6 f8 J: X# v
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)& |+ E/ L0 y# q9 x
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)
. x4 z9 h7 a1 H& b! O; ?* s! U

复制代码

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

通知

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

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

评分

浏览过的版块