如视频，选择尺寸/注释/公差等等图纸中的内容，运行宏，将颜色改为红色(最好可以一键全部消除已增加的红色，不能就先添加红色)

这是一个特殊主题，点这里可以回原帖查看详细内容

此宏源于xiaocake大佬的改名宏，想在此基础上将A大的使之独立功能加进去，运行提示方法和数据成员未找到，请大佬帮忙看下调整下程序

这是一个特殊主题，点这里可以回原帖查看详细内容

此宏可将当前打开的零部件模型一键转存至桌面，请大佬帮我改成能存step的AP214格式(带模型颜色)
Sub Main()
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim userName As String
Dim partTitle As String
Dim partTitleLength As Integer
Dim stepFileName As String
Dim desktopPath As String
Dim result As Long, warnings As Long
' 获取计算机用户名称
userName = Environ$("username")
' 获取 SOLIDWORKS 应用程序对象
Set swApp = Application.SldWorks
' 获取当前活动文档（假设是零件或装配体）
Set Part = swApp.ActiveDoc
' 检查是否有一个有效的文档
If Not Part Is Nothing Then
' 获取文档标题
partTitle = Part.GetTitle
partTitleLength = Len(partTitle)
' 构建 STEP 文件的完整路径（注意：我们在这里添加 ".Step" 而不是 ".dwg"）
desktopPath = "C:\Users\" & userName & "\Desktop\"
stepFileName = desktopPath & partTitle & ".step"
' 保存零件或装配体为 STEP 格式
...查看全文

如图，想要一个模型的绘制方法，上方圆为一个环形铁板，下方为一个腰型铁板，中间用牙型板连接一周(相当于扫描)，求画法

这是一个特殊主题，点这里可以回原帖查看详细内容

求大神调试改造，使其能达到照片所示自动更换属性卡的要求：无论原文件的自定义属性卡是有还是没有，是哪种版式，统统改成要替换的版式，同时能自动展示出来

这是一个特殊主题，点这里可以回原帖查看详细内容