精华内容
下载资源
问答
  • SolidWorks宏工具介绍

    千次阅读 2019-09-26 17:06:50
    您可以在 SOLIDWORKS 软件之外生成并进行设计,或者可以录制您在 SOLIDWORKS 软件中执行宏时捕捉操作和命令顺序的。 您可以从工具栏或工具菜单运行。 2.可以做什么 通过在SolidWorks中进行录制,不仅...

    1.什么是宏

    宏是使您能够在 SOLIDWORKS 软件中自动执行操作的脚本。

    您可以在 SOLIDWORKS 软件之外生成宏并进行设计,或者可以录制您在 SOLIDWORKS 软件中执行宏时捕捉操作和命令顺序的宏。

    您可以从宏工具栏或工具菜单运行宏。

    2.宏可以做什么

    通过在SolidWorks中进行宏录制,不仅可以记录下建模时所用到的命令代码,也可以记录其他相关过程的底层操作源代码,同时也可以直观快捷地编译、修改于完善所录制的宏命令,从而可较大地提高系统的自动化水平与设计人员的工作效率。同时,SolidWorks提供了强大于完善的API帮助文件,可以很好地为编程工作服务,随时进行答疑解惑。
    3.SolidWorks中如何调出宏工具栏
    4.宏工具介绍

    宏工具栏

    宏工具描述

    新建宏 在这里插入图片描述

    您可以从宏工具栏或工具菜单创建新宏,然后在宏编辑应用程序中设计宏。

    录制/暂停宏
    您可以录制用 SOLIDWORKS 用户界面执行的操作,并使用 SOLIDWORKS 宏重新执行这些操作。

    运行宏
    您可以从宏工具栏或工具菜单运行宏。

    编辑宏
    您可以对先前所录制的宏进行编辑或调试。

    宏工具栏
    宏 工具栏控制宏的录制、执行和编辑。

    VBA
    Visual Basic for Applications (VBA) 是在 SOLIDWORKS 中录制、执行、或编辑宏的引擎。 现在,录制的宏以 .swp VBA 项目文件的形式保存。

    5.录制宏
    6.编辑宏
    把宏添加到菜单

    要想把宏做成菜单,首先要在SolidWorks安装路径下建立一个Macros的文件夹,以便宏可以在SolidWorks类别中显示。 然后进入SolidWorks自定义中,点击菜单,可以看到在类别里出现宏。在命令里面显示的是录制的宏,点选需要添加在菜单中的宏,比如更改到工具菜单----顶部—宏名称为拉伸,点击添加,确定即可完成,如左下图所示。 完成设置后进入到SolidWorks中,可以随便画截面图,比如一个任意四边形,在SolidWorks的工具菜单的最顶部显示有拉伸一命令。直接点击就可以完成一个100mm的拉伸特征。方便快捷!

    7,将宏命令添加到按钮中

    前提和上面一样,要现在SolidWorks的安装目录下建立一个Macros的文件夹,进入SolidWorks的自定义中,在命令栏里点击宏,有新建宏按钮,如左下图所示,点击新建宏按钮拖拽到工具栏,弹出如右下图所示的对话框,可以选择按钮的图像、定义工具提示、对应的宏命令,甚至可以设置快捷键等等,设置好之后在SolidWorks的菜单中就有显示,如下图显示:

    8执行宏

    展开全文
  • SolidWorks宏】VBA 获取数组的长度
                   
    REM "获取数组长度"Public Function ArrayLength(ByVal ary) As Integer    ArrayLength = UBound(ary) - LBound(ary) + 1End FunctionREM "调用示例"Sub SplitSample()    '声明    Dim temp() As String    Dim EgStr As String    '执行过程    EgStr = "str1   str2    str3"    temp = Split(EgStr, " ")    MsgBox(ArrayLength(temp))End Sub

               

    再分享一下我老师大神的人工智能教程吧。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!https://blog.csdn.net/jiangjunshow

    展开全文
  • Rem 获取SolidWorks的标题并解析 Private Sub SldWorks_GetTitle() Dim SwApp As Object Dim TitleStr As String Dim PartStr() As String Dim Part1 As String Dim Part2 As String Dim Swmodel As...
    Rem 获取SolidWorks的标题并解析
    Private Sub SldWorks_GetTitle()
        Dim SwApp As Object
        Dim TitleStr As String
        Dim PartStr() As String
        Dim Part1 As String
        Dim Part2 As String
        Dim currentDoc As SldWorks.modelDoc
        
        '获取SolidWorks应用程序对象
        Set SwApp = CreateObject("sldworks.application")
        '获取打开的当前文档
        Set currentDoc = SwApp.ActiveDoc
        If currentDoc Is Nothing Then
            MsgBox "请打开一个部件"
        Else
            '获取标题
            TitleStr = currentDoc.GetTitle
        
            '将标题用 下划线(_)分解成两部分 PartStr(0) 图号  PartStr(1) 部件
            If InStr(TitleStr, Chr(95)) > 0 Then
                PartStr = Split(TitleStr, Chr(95))
                Part1 = PartStr(0)
                Part2 = PartStr(1)
            Else
                Part1 = TitleStr
                Part2 = "命名不符合标准"
            End If
        End If
    End Sub
    
    Rem 设置当前文档的自定义信息
    Private Sub SldWorks_SetCustomInformation(customStr As String, FieldName As String)
        Dim SwApp As Object
        Dim TitleStr As String
        Dim PartStr() As String
        Dim Part1 As String
        Dim Part2 As String
        Dim currentDoc As SldWorks.modelDoc
        Dim retval As Boolean
        '获取SolidWorks应用程序对象
        Set SwApp = CreateObject("sldworks.application")
        '获取打开的当前文档
    
        Set currentDoc = SwApp.ActiveDoc
        
        '设置对应字段的值
        If currentDoc Is Nothing Then
            MsgBox "请打开一个部件"
        Else
            'AddCustomInfo3(Configration as String,FieldName As String,FieldType as Long,fieldvalue as String ) as Boolean
            retval = currentDoc.AddCustomInfo3("", FieldName, swCustomInfoText, "")
            'CustomInfo2(Configration as String,FiedlName as String) as String
            currentDoc.CustomInfo2("", FieldName) = customStr
        End If
    End Sub
    
    Rem 获取当前文档的自定义信息
    Private Function SldWorks_GetCustomInformation(FieldName As String) As String
        Dim SwApp As Object
        Dim TitleStr As String
        Dim PartStr() As String
        Dim Part1 As String
        Dim Part2 As String
        Dim currentDoc As SldWorks.modelDoc
        
        '获取SolidWorks应用程序对象
        Set SwApp = CreateObject("sldworks.application")
        Set currentDoc = SwApp.ActiveDoc
        '获取打开的当前文档
        If currentDoc Is Nothing Then
            MsgBox "请打开一个部件"
        Else
            '设置对应字段的值
            'CustomInfo2(Configration as String,FiedlName as String) as String
            SldWorks_GetCustomInformation = currentDoc.CustomInfo2("", FieldName)
        End If
    End Function
    
    Rem 获取部件质量
    Private Function SldWorks_GetPartMass(densityStr As String) As String
        '声名
        Dim volumeStr As String
        Dim massProperties As Variant
        Dim currentDoc As Object
        Dim volume As Double
        Dim density As Double
        '执行过程
        Set SwApp = CreateObject("SldWorks.Application")
        Set currentDoc = SwApp.ActiveDoc
        
        '获取当前文档的质量属性
        If currentDoc Is Nothing Then
            MsgBox "请打开一个部件"
        Else
            massProperties = 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 Function
    
    Rem 打开部件查看部件特征 然后关闭
    Private Sub SldWorks_OpenPart(filePath As String)
        
        Dim SwApp As SldWorks.SldWorks
        Dim PartDoc As SldWorks.PartDoc
        Dim modelDoc As SldWorks.ModelDoc2
        Dim ParameterDoc As SldWorks.Parameter
        
        Dim Myfeature As SldWorks.Feature
        
        Set SwApp = CreateObject("SldWorks.Application")
        
        'SwApp.OpenDoc(Name as String ,Type as Long ) as Object
        
        Set PartDoc = SwApp.OpenDoc(filePath, 1)
        'PartDoc.FeatureByName(name as String ) as Object
    
        Set Myfeature = PartDoc.FeatureByName("草图1")
        'Myfeature.Parameter(name as String ) as Object
        Set ParameterDoc = Myfeature.Parameter("upR1")
        'ParameterDoc.GetStringValue
        MsgBox (Myfeature.Parameter("upR1").Value)
        SwApp.Quit (filePath)
        Set SwApp = Nothing
    End Sub

    展开全文
  • solidworks宏按钮的制作

    千次阅读 2020-03-08 11:23:05
    在使用solidworks时,常常会出现一些重复的或是复杂的操作,这时如果将这些操作制作成宏,则可以大幅提高操作效率。本文将介绍一种基本的制作技巧: 新建一个sw文档,点击工具——编辑,进入编辑界面: ...

    在使用solidworks时,常常会出现一些重复的或是复杂的操作,这时如果将这些操作制作成宏,则可以大幅提高操作效率。本文将介绍一种基本的宏制作技巧:

    新建一个sw文档,点击工具—宏—编辑,进入宏编辑界面:

     

    输入想要进行的操作的代码,保存。

    点击:工具—自定义。点击快捷方式栏下的工具栏中的宏。

    将图中标识红色圆圈的按钮拖到工具栏中,出现自定义宏按钮,选择刚才编辑好的程序文件,进行外观和名称的编辑,确定。这样就可以生成一个宏按钮了。

     

    作者:GaiJM  

    展开全文
  • SolidWorks宏】选择文件夹

    千次阅读 2018-05-16 20:54:51
    Rem 选择文件夹 Public Sub SG_BrowseForFolder() '** 使用Shell.Application对象来选择文件夹 Dim objShell Dim objFolder Dim strPath As String Set objShell = CreateObj...
  • SolidWorks宏】VBA 选择文件

    千次阅读 2018-05-16 20:53:15
    Rem 选择文件-从注册表中获取 Function SG_BrowseForFileFromReg() Dim shell: Set shell = CreateObject("WScript.Shell") Dim fso: Set fso = CreateObject("Scripting.FileSystemObject"...
  • Rem "读取文件的第一行数据" Public Function ReadFirstLineDataFromFile(fileName) As String '声明 Dim filePath As String Dim fs As Object Dim otf As Object '执行过程 ...
  • 问题:字体没选择正确。 问题解决: 1.工具->选项 2.编辑器格式->字体->Consolas(西方)->选择“确定” ...注释:如果本身就是这个字体出现的乱码,则选择另外一个字体尝试一下!......
  • Rem 向指定的文件写入一行数据 Public Sub WriteFirstLineDataToFile(filePath As String, content As String) '声明 Dim fs As Object Dim ctf As Object '执行过程 Set fs = CreateObject("...
  • Rem 将文件数据一行一行添加到ListBox Public Sub LoadFileToListBox(filePath As String, lb As ListBox) '声明 Rem Dim filePath As String Dim fs As Object Dim otf As Object Dim localylp As Double ...
  • Solidworks_macro 用于Solidworks生产力的宏 这是我存储Solidworks宏的地方。 您可能会发现其中一些值得您花费的时间,并可以随时使用它们。 宏是用VBA编写的。 问候
  • solidworks弹窗

    2019-02-11 16:42:55
    solidworks弹窗适用于solidworks弹簧拉伸、弹簧制作
  • solidworks常用

    2018-05-28 11:18:35
    solidworks常用,用于solidworks二次开发撒的撒范德萨发
  • Solidworks实用插件

    2015-05-16 22:07:38
    Solidworks 实用插件集合: 包含:GBdrawing、随意改变零件颜色、显示鼠标点的坐标、自动提取公差
  • SolidWorks常用集合

    2021-03-01 17:27:34
    标题栏替换,标题栏批量替换,单图输出DWG和PDF,批量输出DWG和PDF,浮动,绘图标准,批处理,弹簧,图号文件名分离,随机着色,可添加到工具栏。
  • SolidWorks 弹簧

    2014-05-29 12:30:44
    添加程序可在SolidWork生成更好的弹簧
  • V1.0 现支持: sldprt批量转 Sldftp step stl slddrw批量转DWG DXF PDF文件 下一步开发step转sldprt 【开发过程】 起因是需要转一批solidworks文件...刚开始不知道solidworks宏可以做到就再百度检索“solidwork...
  •  理解是什么,能做什么,什么情况下可以使用命令。  了解工具条上的每个按钮的作用。... 你可以知道一个命令是如何启动一个进程,怎样与SolidWorks程序进行连接,又是如何调用SolidWorks的对象和方法。
  • solidworks弹簧程序

    2013-11-14 13:12:08
    2.再运行(工具//运行),选择草图就可以设定参数了。 3.在Basic parameters下面选择第1步绘制的中径圆 在Spring type 下面选择弹簧类型(compression压簧;extension拉簧,torsion扭簧,spiral蜗形弹簧) 在...
  • SolidWorks一件展开

    2017-11-01 11:54:33
    用于SolidWorks中的零件图一件展开为DXF格式图,工程图一键转PDF格式图,网络下载一起探讨
  • solidworks批量修改视角的,里面好像有个option的写法有点问题。注意改下。 能够遍历文件夹中的所有工程图,有修改进度条。完成后提示。
  • solidworks导出obj模型和mtl材质

    千次阅读 2020-09-04 17:01:54
    1、使用solidworks宏 2、使用opencascade软件+step格式中转 为何会有这种需求?因为大多数3D库,都支持导入obj模型和mtl材质,例如webGL、qt3D等,而我只会用solidworks进行三维建模,没有obj和mtl,程序写不下去...
  • SolidWorks更改材质的

    2019-12-02 23:31:43
    MsgBox "无活动文档,请打开一个SolidWorks文件后重新运行此!", vbExclamation '消息框 Exit Sub '退出Main() End If sldmatFilePath = "c:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-...
  • solidworks生产各种弹簧的程序(已翻译).zip
  • 软件平台:SolidWorks2016+Excel2013 1. 在SolidWorks中建立好草图点,然后选择工具->->新建 2. 将Macrol 1中代码删除,复制如下代码放进去,运行可以在E盘得到保存坐标点的Excel文件 ' ~~~~~~~~~~~~~~~...
  • 刚接触SolidWorks二次开的小伙伴可能只知道swp这个原始格式。 而且Solidworks中还专门有个选项,如2018中 并且很多电脑上宏录制完成之后 ,根本就没有其它格式,只有swp. 这是为什么呢? 我们今天来看看官方的说明,...
  • SolidWorks的参数化功能有多种实现方式,本文详细介绍了利用Excel表格驱动SolidWorks模型的方法:通过Excel输入参数,利用Excel表格ActiveX控件、方便的数据计算能力,结合SolidWorks方程式及功能,实现对Solid...
  • Solidworks快速建模-1

    2021-01-07 05:37:52
    通过Python对Solidworks进行操作 文章目录通过Python对Solidworks进行操作前言一、安装pywin32二、基础设置总结 前言 我自己也是小白,不是很熟悉python和vb的设置,所以来和大家一起学习讨论。 我在这里使用...
  • SolidWorks API 入门(2)---应用的类型

    千次阅读 2018-08-15 14:10:01
    1、SolidWorks宏 2、使用编程语言开发独立或插件 只要支持COM接口的编程语言都可创建独立的SolidWorksAPI(.exe)和插件(.dll)。较为通用的有: Visual Basic .NET (VB.NET) Visual C++/CLI Visual C# .NET ...

空空如也

空空如也

1 2 3 4
收藏数 64
精华内容 25
关键字:

solidworks宏