HOW TO FIND A TEXT IN A DRAWING USING MACRO. I FOUND THE EXAMPLE IN API BUT IT IS NOT WORKING
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim longstatus As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
' Find and replace annotations
Set swUtil = swApp.GetAddInObject("Utilities.UtilitiesApp")
Set swUtilFindReplaceAnnotations = swUtil.FindReplaceAnnotations
longstatus = swUtilFindReplaceAnnotations.InitPMPage()
swUtilFindReplaceAnnotations.FindText = "abc"
swUtilFindReplaceAnnotations.ReplaceText = "def"
swUtilFindReplaceAnnotations.options = gtFraWholeWord
swUtilFindReplaceAnnotations.AnnotationFilter = gtFraNote
longstatus = swUtilFindReplaceAnnotations.FindNext()
longstatus = swUtilFindReplaceAnnotations.Replace()
longstatus = swUtilFindReplaceAnnotations.Close()
End Sub
COULD SOMEONE HELP ME IN THIS REGARD BY MODIFYING THE ATTACHED MACRO.
SolidworksApi macros