关于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% d8 h, }2 Y0 W: h$ {/ U x2 K5 r
Dim swdoc As ModelDoc29 p: h, ?8 \' U6 A0 t/ {
swapp = GetObject(, "SldWorks.Application")
/ a% G* u G2 V4 Y* M! z X
With OpenFileDialog1
( m* a( `7 L1 _/ ~2 X7 d" S
.Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
4 ]. g- D0 w J$ E
.FilterIndex = 1
# {9 }# h5 x: k, y. f* v
.Title = "选择零件或者装配件(Ctrl可多选）"! X3 K) b7 a1 P, [5 a5 S
End With- P' T! P1 D; ~* J2 l* X& E1 Q6 R: A
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
$ X9 m6 D$ v2 V2 B
Dim stname As String
. k2 z6 R' O3 ~; J, L7 p$ P4 Y
For Each stname In OpenFileDialog1.FileNames4 Z2 {3 I. |6 S7 K; O4 I8 e
If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then2 L- V7 e& [$ n$ |
swapp.OpenDoc(stname, 1)
) `5 C! O" g' D! ?6 u
ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then2 E! }5 W0 p6 Z3 c* G$ ~
swapp.OpenDoc(stname, 2)/ F: V4 D' I# @6 w6 e
End If+ v5 X+ Z0 p8 a7 ]+ I
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
7 T- p' S) P$ g% z+ `* L4 c只学了点皮毛。抛钻引玉！！

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

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

foxjinlin 发表于 2015-1-9 19:08 static/image/common/back.gif
" \7 t& o4 \% ^) o; e1 c退出并保留草图绘制，代码怎么写

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

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

ss988 发表于 2015-1-9 19:47 static/image/common/back.gif
/ Q# J6 F1 V7 ~) ~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)
- g1 m8 W. X- H1 n: D, f6 F
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)% Q& V& B! D5 o, p% s! T' q. u
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)5 e/ t" S0 M5 O) W- v0 c) o
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)3 @6 o; e+ \* Y4 i( u3 E
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
# Q& C G1 Q. X" n7 g
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
2 c9 y. B/ x- V9 T2 s! g2 Z
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)
2 \8 A( W# B! b/ L! U6 V9 D' x& e
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)
_7 y3 Z( s. H& w+ O
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)2 |1 o9 b/ ?9 ?0 D! O
swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)! V" `1 O1 r; Z' H8 Q" t- r: a

复制代码

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

通知

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

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

评分

浏览过的版块