index

这个VBA示例演示了如何在SOLIDWORKS文档中插入注释，并对不同行应用不同的字体效果和样式。

文本的部分可以使用\<FONT>指令进行格式化。该指令有两个属性：

• effect - 可以等于U（下划线）或RU（取消下划线）
• style - 可以等于B（粗体）、RB（取消粗体）、I（斜体）或RI（取消斜体）

\<FONT>指令之后的所有文本将根据effect和style的值进行格式化。

INote::GetText方法返回注释的解析值。对于上面的注释，它将返回以下结果：

First Line Underline
Second Line Bold
Third Line Italic

INote::PropertyLinkedText属性设置或获取支持\<FONT>指令的文本。对于上面的注释，它将返回以下结果：

<FONT effect=U>First Line Underline
<FONT style=B effect=RU>Second Line Bold
<FONT style=RB><FONT style=I>Third Line Italic

Dim swApp As SldWorks.SldWorks

Sub main()

    Set swApp = Application.SldWorks
    
    Dim swModel As SldWorks.ModelDoc2
    
    Set swModel = swApp.ActiveDoc
    
    Dim swSelMgr As SldWorks.SelectionMgr
    
    Set swSelMgr = swModel.SelectionManager
    
    Dim swNote As SldWorks.Note
    
    Set swNote = swModel.InsertNote("<FONT effect=U>First Line Underline" & vbLf & "<FONT style=B effect=RU>Second Line Bold" & vbLf & "<FONT style=RB><FONT style=I>Third Line Italic")
        
    Debug.Print swNote.GetText()
    Debug.Print swNote.PropertyLinkedText
    
End Sub