将 swModel.CreateText 用于带有复选框的多行注释答案

【问题标题】：Using swModel.CreateText for multiline notes with checkboxes将 swModel.CreateText 用于带有复选框的多行注释
【发布时间】：2022-01-27 09:45:40
【问题描述】：

我正在编写一个宏，它接受多个复选框并循环遍历它们以将标准注释插入到单个注释中。这是我的代码：

这就是我所拥有的。它应该做的是获取每个复选框标题并将其添加到单个注释中的新行。它所做的是为每个标题创建一个新注释，并在末尾有一个空格。我试过移动那行代码，但这是我第一次使用 VBA，我已经没有想法了。我该怎么做才能让它创建一个注释并自适应地将所有选定的字幕添加到其中？

【问题讨论】：

标签： vba solidworks

【解决方案1】：

CreateText 不应该在 For 循环中

试试这个：

Dim MyStr As String
For Each ThisControl2 In Prompt.Controls
   If TypeName(ThisControl2) = "CheckBox" Then
      If ThisControl2.Value = True Then
         MyStr = Mystr & ThisControl2.Caption & vbCrLf
      End If
   End If
Next
swModel.CreateText MyStr, 0.02, 0.02, 0, 0.003175, 0

【讨论】：

工作得很好，谢谢！我是一个初学者，这个简单的事情真的难倒我。