【SolidWorks宏】VBA操作SolidWorks程序对象

Rem 获取SolidWorks的标题并解析
Private Sub SldWorks_GetTitle()Dim SwApp As ObjectDim TitleStr As StringDim PartStr() As StringDim Part1 As StringDim Part2 As StringDim currentDoc As SldWorks.modelDoc'获取SolidWorks应用程序对象Set SwApp = CreateObject("sldworks.application")'获取打开的当前文档Set currentDoc = SwApp.ActiveDocIf currentDoc Is Nothing ThenMsgBox "请打开一个部件"Else'获取标题TitleStr = currentDoc.GetTitle'将标题用 下划线(_)分解成两部分 PartStr(0) 图号  PartStr(1) 部件If InStr(TitleStr, Chr(95)) > 0 ThenPartStr = Split(TitleStr, Chr(95))Part1 = PartStr(0)Part2 = PartStr(1)ElsePart1 = TitleStrPart2 = "命名不符合标准"End IfEnd If
End SubRem 设置当前文档的自定义信息
Private Sub SldWorks_SetCustomInformation(customStr As String, FieldName As String)Dim SwApp As ObjectDim TitleStr As StringDim PartStr() As StringDim Part1 As StringDim Part2 As StringDim currentDoc As SldWorks.modelDocDim retval As Boolean'获取SolidWorks应用程序对象Set SwApp = CreateObject("sldworks.application")'获取打开的当前文档Set currentDoc = SwApp.ActiveDoc'设置对应字段的值If currentDoc Is Nothing ThenMsgBox "请打开一个部件"Else'AddCustomInfo3(Configration as String,FieldName As String,FieldType as Long,fieldvalue as String ) as Booleanretval = currentDoc.AddCustomInfo3("", FieldName, swCustomInfoText, "")'CustomInfo2(Configration as String,FiedlName as String) as StringcurrentDoc.CustomInfo2("", FieldName) = customStrEnd If
End SubRem 获取当前文档的自定义信息
Private Function SldWorks_GetCustomInformation(FieldName As String) As StringDim SwApp As ObjectDim TitleStr As StringDim PartStr() As StringDim Part1 As StringDim Part2 As StringDim currentDoc As SldWorks.modelDoc'获取SolidWorks应用程序对象Set SwApp = CreateObject("sldworks.application")Set currentDoc = SwApp.ActiveDoc'获取打开的当前文档If currentDoc Is Nothing ThenMsgBox "请打开一个部件"Else'设置对应字段的值'CustomInfo2(Configration as String,FiedlName as String) as StringSldWorks_GetCustomInformation = currentDoc.CustomInfo2("", FieldName)End If
End FunctionRem 获取部件质量
Private Function SldWorks_GetPartMass(densityStr As String) As String'声名Dim volumeStr As StringDim massProperties As VariantDim currentDoc As ObjectDim volume As DoubleDim density As Double'执行过程Set SwApp = CreateObject("SldWorks.Application")Set currentDoc = SwApp.ActiveDoc'获取当前文档的质量属性If currentDoc Is Nothing ThenMsgBox "请打开一个部件"ElsemassProperties = currentDoc.GetMassProperties'从质量属性中提取出体积volumeStr = str(massProperties(3) * (10 ^ 9))volume = Val(volumeStr)density = Val(densityStr)SldWorks_GetPartMass = Format(volume * density / (10 ^ 9), "##0.###")End If
End FunctionRem 打开部件查看部件特征 然后关闭
Private Sub SldWorks_OpenPart(filePath As String)Dim SwApp As SldWorks.SldWorksDim PartDoc As SldWorks.PartDocDim modelDoc As SldWorks.ModelDoc2Dim ParameterDoc As SldWorks.ParameterDim Myfeature As SldWorks.FeatureSet SwApp = CreateObject("SldWorks.Application")'SwApp.OpenDoc(Name as String ,Type as Long ) as ObjectSet PartDoc = SwApp.OpenDoc(filePath, 1)'PartDoc.FeatureByName(name as String ) as ObjectSet Myfeature = PartDoc.FeatureByName("草图1")'Myfeature.Parameter(name as String ) as ObjectSet ParameterDoc = Myfeature.Parameter("upR1")'ParameterDoc.GetStringValueMsgBox (Myfeature.Parameter("upR1").Value)SwApp.Quit (filePath)Set SwApp = Nothing
End Sub

【SolidWorks宏】VBA操作SolidWorks程序对象相关推荐

《SolidWorks 2014中文版机械设计从入门到精通》——1.2　SolidWorks的文件操作
本节书摘来自异步社区<SolidWorks 2014中文版机械设计从入门到精通>一书中的第1章,第1.2节,作者:赵罘 , 杨晓晋 , 刘玥著,更多章节内容可以访问云栖社区"异步 ...
excel 2007 vba与宏完全剖析_Excel宏VBA小技巧系列 | 分段加合
写在前面的话知识产权算是一个盛产数据的行业.专利啊商标啊著作啊,都有著录项目.我们常说的专利分析.产业导航.企业导航.产业预警.竞争情报.技术综述.知识产权评议等等,常规操作之一就要先处理著录项目 ...
使用VBA进行solidworks开发指南
作者:marsarden 转载请注明在对solidworks原有功能进行改善的过程中,有效 ...
SolidWorks宏工具介绍——初识宏工具
SolidWorks宏工具介绍--初识宏工具 Hello,大家好,我是"京扬三维"的团宠小京.在我们做开发项目的过程中,经常收到小伙伴的反馈,希望学习下SolidWorks二次开发 ...
solidworks api文档查看sldworks对象属性和方法
1.帮助>API帮助 2.solidworks API help 3.solidworks APIs 4.SolidWorks.Interop.sldworks Namespace 5.inte ...
solidworks开发语言php,Solidworks开发语言对比及分析
很多初学Solidworks二次开发的同学,也许都会纠结使用何种语言进行二次开发.对于Solidworks二次开发的语言,官方有VBA,VB.NET,C#以及C++,四种语言. 用户通常会有如下疑问, ...
(转)Excel VBA 操作 Word（入门篇）
原文地址本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人. 一.新建Word引用需要首先创建一个对 Word App ...
ie 不执行回调函时_「Excel VBA操作IE篇」10分钟内设置完成，3句代码打开IE浏览器
大家好,我是咚腔! Excel VBA还可以操作IE浏览器,有没有搞错? 没错,可以操作,而且非常好用.因为Excel有强大的数据分析功能. 这有什么关系?关系很大. 现在是数据时代,定期数据获取以 ...
《SolidWorks 2014中文版机械设计从入门到精通》——第 1 章　认识SolidWorks 1.1　SolidWorks概述...
本节书摘来自异步社区<SolidWorks 2014中文版机械设计从入门到精通>一书中的第1章,第1.1节,作者:赵罘 , 杨晓晋 , 刘玥著,更多章节内容可以访问云栖社区"异步 ...

【SolidWorks宏】VBA操作SolidWorks程序对象

【SolidWorks宏】VBA操作SolidWorks程序对象相关推荐

最新文章

热门文章