设为首页收藏本站
开启辅助访问 切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步，快速开始

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 关于SW二次开发常用代码
返回列表 发新帖
查看: 8700|回复: 15
打印 上一主题 下一主题

关于SW二次开发常用代码

  [复制链接]
RRRRt

14

主题

67

帖子

101

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
244
QQ
跳转到指定楼层
#
发表于 2015-1-9 16:54:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

   经典图书
VB.NET代码
引用SW库 : SolidWorks.Interop.sldworks.dll，SolidWorks.Interop.swconst.dll
连接SW，打开文件 :
    Dim swapp As SldWorks
    Dim swdoc As ModelDoc2
    swapp = GetObject(, "SldWorks.Application")
    With OpenFileDialog1
    .Filter = "SW文件（*.sldprt；*.sldasm)|*.sldprt;*.sldasm"
    .FilterIndex = 1
    .Title = "选择零件或者装配件(Ctrl可多选）"
    End With
    If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    Dim stname As String
    For Each stname In OpenFileDialog1.FileNames
    If Mid(stname, Len(stname) - 6) = ".SLDPRT" Then
    swapp.OpenDoc(stname, 1)
    ElseIf Mid(stname, Len(stname) - 6) = ".SLDASM" Then
    swapp.OpenDoc(stname, 2)
    End If
    swdoc = swapp.ActiveDoc

复制代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 转播转播 分享教程|习题|模型|技巧 点赞点赞9604 拍砖拍砖4318
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

UDF998

2

主题

511

帖子

33

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2149

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
15#
发表于 2021-10-25 13:20:54 | 只看该作者
好好学习，天天向上！
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 反对

使用道具 举报

14#
发表于 2021-10-21 13:39:39 | 只看该作者

   经典图书
楼主辛苦了！感谢分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

schjck

0

主题

401

帖子

103

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1541

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
13#
发表于 2021-10-14 18:22:37 | 只看该作者
SW机械工程师网，找到组织了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

大白

4

主题

55

帖子

117

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
477

最佳新人活跃会员热心会员宣传达人
12#
发表于 2019-7-5 09:08:45 | 只看该作者

   经典案例图书
qetuo0724 发表于 2015-1-9 17:00
退出并保留草图绘制，代码怎么写

你可以自己录制宏 在看看怎么写的
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

明泉2016

0

主题

125

帖子

913

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2576

最佳新人活跃会员热心会员宣传达人灌水之王
11#
发表于 2019-7-3 16:59:57 | 只看该作者
好好学习，天天向上！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hdgd501

6

主题

618

帖子

888

金币

实习版主

Rank: 7Rank: 7Rank: 7Rank: 7

积分
5538

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
10#
发表于 2019-1-2 16:58:03 | 只看该作者

   经典案例图书
很不错，找到组织了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

panyuanqing2008

12

主题

65

帖子

68

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
203
QQ
9#
发表于 2015-1-9 17:15:22 | 只看该作者
单位设置：
    swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_e.swUnitSystem_Custom)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinear, 0, swLengthUnit_e.swMM)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, swLengthUnit_e.swINCHES)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, 0, swLengthUnit_e.swMM)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsPowerUnits, 0, swUnitsPowerUnit_e.swUnitsPowerUnit_Watt)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsForce, 0, swUnitsForce_e.swUnitsForce_Newtons)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, 0, swUnitsMassPropVolume_e.swUnitsMassPropVolume_Millimeters3)
            swdoc.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsTimeUnits, 0, swUnitsTimeUnit_e.swUnitsTimeUnit_Second)

复制代码
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

IoA3Jv

12

主题

67

帖子

90

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
227
QQ
8#
发表于 2015-1-9 17:14:57 | 只看该作者
Mid(stname, Len(stname) - 6) = ".SLDPRT"
改为 Path.GetExtension(stname) = ".SLDPRT" 更合理。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

henji003

14

主题

77

帖子

113

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
276
QQ
7#
发表于 2015-1-9 17:12:15 | 只看该作者

   经典图书
这个不会，期待高手解答。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

loaoz

13

主题

72

帖子

107

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
259
QQ
6#
发表于 2015-1-9 17:03:08 | 只看该作者
我想应该是这个吧。
swmodel.SketchManager.InsertSketch(True)
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hyxdl

12

主题

69

帖子

105

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
232
QQ
5#
发表于 2015-1-9 17:02:19 | 只看该作者
我想应该是这个吧。
swmodel.SketchManager.InsertSketch(True)
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

_ganlin

10

主题

81

帖子

62

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
207
QQ
地板
发表于 2015-1-9 17:00:34 | 只看该作者
3d草图每两条线倒R角怎样选择直线？楼主会吗？
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

qetuo0724

13

主题

71

帖子

80

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
218
QQ
板凳
发表于 2015-1-9 17:00:15 | 只看该作者
退出并保留草图绘制，代码怎么写
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

qrz1102

20

主题

73

帖子

219

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
395
QQ
沙发
发表于 2015-1-9 16:59:04 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

添加自定义属性：swdoc.AddCustomInfo2(“自定义属性名称”, swCustomInfoType_e.swCustomInfoText, "内容")
还可以这样：
swdoc.AddCustomInfo2(“Weight”, swCustomInfoType_e.swCustomInfoText,  """" & "SW-Mass@" & swdoc.GetTitle & """")
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

frr1984

13

主题

64

帖子

80

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
220
QQ
楼主
发表于 2015-1-9 16:54:06 | 只看该作者

   经典案例图书
只学了点皮毛。抛钻引玉！！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2024-9-30 01:37 , Processed in 0.173936 second(s), 23 queries , Memcache On.

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

快速回复 返回顶部 返回列表