Insert Revision Cloud into a Drawing Example (VBA)
This example shows how to insert revision clouds into a drawing and access
revision cloud data.
'----------------------------------------------------------------------------
' Preconditions: Open:
' install_dir\samples\tutorial\api\resetsketchvisibility.slddrw
'
' Postconditions: An elliptical revision cloud is inserted in the drawing.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
' ---------------------------------------------------------------------------
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.DrawingDoc
Dim RevCloud As SldWroks.RevisionCloud
Dim RevCloudAnno As SldWorks.Annotation
Dim boolstatus As Boolean
Option Explicit
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.ActivateView("Drawing View1")
' Create a revision cloud with an elliptical shape
Set RevCloud = Part.InsertRevisionCloud(swRevisionCloudShape_Ellipse)
If Not RevCloud Is Nothing Then
Set RevCloudAnno = RevCloud.GetAnnotation()
If Not RevCloudAnno Is Nothing Then
' Position the center of
the elliptical revision cloud
boolstatus =
RevCloudAnno.SetPosition(0.270847371964905, 0.553263328912467, 0)
RevCloud.ArcRadius
= 0.00508
' Create a path point on
the corner of an ellipse-inscribed rectangle
boolstatus = RevCloud.SetPathPointAtIndex(-1,
0.378419710263212, 0.511051398694144, 0)
' Close the revision
cloud path
boolstatus = RevCloud.Finalize()
End If
End If
End Sub