关于SW二次开发常用代码

steve_suich

$ a( b2 G4 v4 y+ s) M# E
VB.NET代码
  s8 H3 E# I# D) M" C: v% I引用SW库 : SolidWorks.Interop.sldworks.dll，SolidWorks.Interop.swconst.dll
8 g0 ]' O' V  }, L  N( Z! W连接SW，打开文件  :

1. Dim swapp As SldWorks
   1 {0 Q9 B0 S9 ~& F
2. Dim swdoc As ModelDoc2
   5 u3 \5 w5 q, X" F# {
3. swapp = GetObject(, "SldWorks.Application")
   ( x# ^; y- a7 k9 K) d. B- \
4. With OpenFileDialog1
   / N4 a3 d( C& P( t3 }
5.             .Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
   2 }9 [. z, q; `$ G5 s' m5 n
6.             .FilterIndex = 1
   
7.             .Title = "选择零件或者装配件(Ctrl可多选）"
   ; K1 x" O3 Z2 r8 T. x& P; }
8.         End With
   
9.         If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
   ; l6 @$ L( y+ T0 C# N
10.             Dim stname As String
    # i, _/ X/ [$ X0 r
11.             For Each stname In OpenFileDialog1.FileNames
    
12.                 If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
    
13.                     swapp.OpenDoc(stname, 1)
    
14.                 ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then
    
15.                     swapp.OpenDoc(stname, 2)
    & L' A0 T5 ~; w$ G# B# B: l
16.                 End If
    - n$ K0 y; Q7 Q, m+ F6 X
17.                 swdoc = swapp.ActiveDoc

复制代码

steve_suich

只学了点皮毛。抛钻引玉！！

steve_suich

0 B( `% v. _* t. u, V  _: {添加自定义属性：swdoc.AddCustomInfo2(“自定义属性名称”, swCustomInfoType_e.swCustomInfoText, "内容")
9 C+ z  {. ?. F+ l4 u7 W还可以这样：
swdoc.AddCustomInfo2(“Weight”, swCustomInfoType_e.swCustomInfoText,  """" & "SW-Mass@" & swdoc.GetTitle & """")

foxjinlin

退出并保留草图绘制，代码怎么写

ss988

3d草图每两条线倒R角怎样选择直线？楼主会吗？

steve_suich

steve_suich 发表于 2015-1-9 17:01 static/image/common/back.gif
4 f$ R$ G/ C: m& w2 w只学了点皮毛。抛钻引玉！！

1 E& V! x" w6 M我想应该是这个吧。
0 H5 M9 h4 _$ `. p, }  qswmodel.SketchManager.InsertSketch(True)

steve_suich

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif
退出并保留草图绘制，代码怎么写

我想应该是这个吧。
, L  ?$ u% z. Z9 J+ {swmodel.SketchManager.InsertSketch(True)

steve_suich

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
3d草图每两条线倒R角怎样选择直线？楼主会吗？

这个不会，期待高手解答。

steve_suich

Mid(stname, Len(stname) - 6) = ".SLDPRT"
( Q' C, S5 e0 v1 e! m' U; g改为 Path.GetExtension(stname) = ".SLDPRT" 更合理。

steve_suich

单位设置：

1. swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_e.swUnitSystem_Custom)
   
2.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)
   # n0 R* t* u+ p+ ]8 @. d0 P
3.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)
   
4.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)
   3 T0 e  I$ |- @2 w
5.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
   
6.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
   ; Q/ n2 `/ J5 r2 U
7.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)
   - d- Z" C$ |) I, o6 ~8 _' [
8.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)
   
9.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
   # b3 o3 m0 r  H% j6 C3 a" ]
10.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)
    

复制代码