关于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
- Q* p% N, W7 ?
Dim swdoc As ModelDoc2" Y( \/ K* q; J1 M+ f
swapp = GetObject(, "SldWorks.Application")" A- w6 S1 f4 b5 u! i
With OpenFileDialog1" K' r+ X6 e/ Y5 ?
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"& f- n3 \# c3 M. E
.FilterIndex = 1/ G: b* q, z. n/ N
.Title = "选择零件或者装配件(Ctrl可多选）"
2 {4 s; Q! b, S2 {4 ?
End With
# ] N/ i7 l) B7 ~! t- Q
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
' U/ X0 S Q5 I! |/ G/ m% S
Dim stname As String& u% L" l S- M
For Each stname In OpenFileDialog1.FileNames- g8 o k0 l+ t# [' ?" M1 V t
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
% y" o0 U$ s1 ^( a
swapp.OpenDoc(stname, 1)! k, z0 P; _2 I/ m
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then6 N* d' n* ?) r+ W
swapp.OpenDoc(stname, 2)
+ f; H1 E! _& t& C+ v; K( S) s
End If
4 C3 j0 q4 S; o# }5 ]: m5 k8 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
: x7 t F6 J6 M* C7 [7 \只学了点皮毛。抛钻引玉！！

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

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

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

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
; P, H1 j4 q: E" t+ Z& K3d草图每两条线倒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)
3 n; m9 F; N3 ?8 H
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)& {2 q' Z( {: [) d* y' p* \; E
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)( ]6 G& W- M$ g1 ?: I6 Z
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms); C) u# s \$ ~" ~, `: I( A3 z4 a
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
) G" n- t C, d: Z
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
- D8 v, w0 `5 g" x) Q2 `, G
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)& s- ~& C2 ]( M5 ]
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)
3 H/ P9 a; M# P9 J
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)0 Q. }+ \6 h# r
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)
) u1 Y% ~& U/ j4 ^1 d: Q3 ^

复制代码

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

通知

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

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

评分

浏览过的版块