关于SW二次开发常用代码

steve_suich

8 M- g7 _7 M  w  PVB.NET代码
引用SW库 : SolidWorks.Interop.sldworks.dll，SolidWorks.Interop.swconst.dll
6 |+ c$ R$ n* M7 c# P连接SW，打开文件  :

1. Dim swapp As SldWorks
   
2. Dim swdoc As ModelDoc2
   $ S( D' }: \# S( V8 ^, J/ i9 q/ F
3. swapp = GetObject(, "SldWorks.Application")
   6 }3 W7 s, C7 l  b0 L; A7 c
4. With OpenFileDialog1
   
5.             .Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
   - S( F7 M; h. n$ f! X4 j: e1 _- v
6.             .FilterIndex = 1
   
7.             .Title = "选择零件或者装配件(Ctrl可多选）"
   
8.         End With
   
9.         If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
   * I' h6 ?7 D$ t1 g! u9 l, Q$ o
10.             Dim stname As String
    
11.             For Each stname In OpenFileDialog1.FileNames
    
12.                 If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
    
13.                     swapp.OpenDoc(stname, 1)
    % Z( W% y6 ]; a6 s/ l7 i
14.                 ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then
    . G- m- K& T3 n+ [
15.                     swapp.OpenDoc(stname, 2)
    
16.                 End If
    
17.                 swdoc = swapp.ActiveDoc

复制代码

steve_suich

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

steve_suich

) Y- M. ?$ x6 k. W3 W. v
$ V  ]3 e; W; N( T0 V$ S! G: E; j添加自定义属性：swdoc.AddCustomInfo2(“自定义属性名称”, swCustomInfoType_e.swCustomInfoText, "内容")
还可以这样：
& y: v: |: u& i. [9 xswdoc.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
只学了点皮毛。抛钻引玉！！

9 o! l- L# H! }) G" E我想应该是这个吧。
swmodel.SketchManager.InsertSketch(True)

steve_suich

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif
0 H- u1 U2 u- m8 O. v$ u" `3 ~退出并保留草图绘制，代码怎么写

. C8 ?6 e1 e) s- h我想应该是这个吧。
- W7 c& f9 W5 D4 m% Jswmodel.SketchManager.InsertSketch(True)

steve_suich

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
; L/ I+ ~" z% z6 M$ s" g3d草图每两条线倒R角怎样选择直线？楼主会吗？

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

steve_suich

Mid(stname, Len(stname) - 6) = ".SLDPRT"
7 \3 g% B, j8 \改为 Path.GetExtension(stname) = ".SLDPRT" 更合理。

steve_suich

单位设置：

1. swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_e.swUnitSystem_Custom)
   $ A2 _9 ~) C1 C0 a; U& F7 f
2.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)
   ' L! R" i' C. U# G
3.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)
   
4.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)
   * e! }4 c* _# w+ p9 w+ {
5.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
   
6.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
   
7.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)
   
8.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)
   ) Z5 ~7 ?+ T( s# j
9.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
   $ p5 }) B" T; I  C! U' u: N5 j
10.         swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)
    

复制代码