Hello I have some problem with this code.
Dimensions texts are so small how to scale it with View size. Shoul ı do in .drwdot templates or type code here to scale it automatically. If one part in drawing 100x100mm and the others 1000x1000mm what will happen.
Views and flat pattern bounding boxs are intersect it self ıdk how to locate them automatically. LocX, LocY, LocZ, If ı want to put 2 model in to drawing how to give gap between them.
I want to flip flatten pattern based on user control. User will select the option button if button selected flat pattern will flip. Idk how to select flat pattern view and flip it. Here is the mavro record code.
boolstatus = Part.Extension.SelectByRay(-0.15855833396514, -7.20739941577722E-02, 1.25000000002728E-03, 0, 0, -1, 2.95242390779923E-03, 2, False, 0, 0)
Sub main() Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim a As View Dim b As Object Dim vAnnotations As Variant Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set Part = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2018\templates\Teknik Resim.drwdot", 0, 0, 0) boolstatus = Part.Create3rdAngleViews("Part1.SLDPRT") Set b = Part.CreateDrawViewFromModelView3("Part1.SLDPRT", "*Isometric", 0, 0, 0) Set a = Part.CreateFlatPatternViewFromModelView3("Part1.sldprt", "Varsayılan", 0, 0, 0, False, False) vAnnotations = Part.InsertModelAnnotations3(0, 32776, True, True, True, True) End Sub