Newbie on all these matters: I am trying to write a macro that change on existing drawings all tangent edges from "visible" to "with a style" -SetDisplayTangentEdges2 1- (not sure how it is said in English), and some other things.
Anyway I got that:
'
****************************************************************************** ' C:\WINDOWS\Temp\swx3648\Macro1.swb - macro recorded on 07/12/06 by jmbrun18 '
****************************************************************************** Dim swApp As Object Dim Part As Object Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim Feature As Object Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc Set SelMgr = Part.SelectionManager boolstatus = Part.ActivateView("Vue de mise en plan1") boolstatus = Part.Extension.SelectByID2("Vue de mise en plan1", "DRAWINGVIEW", 0.1920120113314, 0.09432764872521, 0, False, 0, Nothing, 0) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 1 ...
End Sub
From that point, what do I need to keep on that code, and how to select all the views to change them
TIA
JM