关于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# `! e- E. O, h; C
Dim swdoc As ModelDoc2! U; ?) n4 h: v& r" w# c: S* ~2 u: {
swapp = GetObject(, "SldWorks.Application")
& d9 Y9 f& H/ m% G# X7 k3 c# _) M
With OpenFileDialog1: F( a7 R. u+ A6 p9 F& C6 y4 o- N
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"' g @* R! [: G# W9 t
.FilterIndex = 1+ b, `6 M, k$ I2 H0 I
.Title = "选择零件或者装配件(Ctrl可多选）"/ ^* V2 J& J5 H! s1 U8 w y; K/ o
End With7 f3 R! D7 t4 T9 ~
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then4 b p L1 ~1 B+ ~7 z
Dim stname As String5 j, j) m! K4 u3 _& R, c
For Each stname In OpenFileDialog1.FileNames8 o' _, [. y5 a- @" R
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then/ ?6 g. L. I, w3 r
swapp.OpenDoc(stname, 1)
* Q3 s' y3 ^6 c( I0 l X8 m! R
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then
( o+ @- {* F6 x7 C8 j
swapp.OpenDoc(stname, 2)
% y$ Q4 P+ K _: J# [
End If
% t; V4 _, x! ^3 D. C
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.gif3 F9 U& a8 q) T+ p0 I( ~
只学了点皮毛。抛钻引玉！！

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

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

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif; ]+ [: n& e" U# b
退出并保留草图绘制，代码怎么写

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
, r, j) K& Z; | |2 ]( Z3 J3d草图每两条线倒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)6 _8 E- H& R0 Q1 L' ^6 v- L
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)
3 }$ x9 Y" L( F& @/ A" c
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)
/ D1 \; ~+ e w8 _4 v
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)
: W: T. Y! K' f0 s, S5 ^9 L
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)3 R3 y: |1 Y, C; }, e- c
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3); k# M. [" Z: R. }. d
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)2 C7 X$ }! q4 C6 w, l1 l1 T" P
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)2 e, k; `# x, q* V
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
, F# A& o& ^: `; I0 P# \
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second): Y# O" S: P% d t1 m

复制代码

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

通知

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

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

评分

浏览过的版块