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