Hallo, ik ben op zoek naar een "automatische" tekening van mijn onderdelen, ik doe vooraf gedefinieerde tekeningen (wanneer ik mijn onderdeel invoeg , zetten de weergaven zichzelf), maar het lukt me niet om de boorplank in de automatische modus te zetten. Hoe doe je dat? Of als dit niet mogelijk is, is het dan mogelijk om het met een macro te doen?
Ik heb ook gekeken om dit te doen met SmartDrawings van myCADtools, maar het is hetzelfde, er is geen tabel.
Hallo
Ja, het is mogelijk door er een boortafel in te plaatsen,...
Ik zal het je later laten zien, want mijn pc wordt verwerkt.
Vriendelijke groeten.
@+.
AR.
Is het mogelijk om het in de vooraf gedefinieerde tekening te doen? omdat je een oorsprong en een gezicht moet geven, maar omdat er geen stukken zijn, kan ik het niet.
Oké bedankt, ik wacht op je feedback.
Hallo weer,
Hier is mijn uitleg van de tabel die in de tekening moet worden ingevoegd.
Vriendelijke groeten.
AR.
Bedankt voor je antwoord, maar dat is niet wat ik zoek, ik vind het moeilijk om mezelf uit te drukken. Ik weet hoe ik een boortafel moet invoegen, maar ik zou graag willen dat deze automatisch in een typische tekening wordt geplaatst.
als ik op mijn 3D-onderdeel ben, heb ik een tekening gemaakt van het onderdeel, ik kies mijn type plan en wanneer ik valideer, krijg ik direct de ISO-weergave , de bovenaanzicht, de hulpaanzichten, enz. (Momenteel is dat wat ik heb.)
maar in dit TYPE-model van plan zou ik ook graag de boortafel willen integreren, die hem direct komt plaatsen zonder dat ik iets hoef te doen, als ik daarna een tekening maak.
bedankt JeromeP, ik heb net gekeken, dat is wat ik nodig heb.
Heeft u een oplossing om niet de X- en Y-coördinaten te hoeven geven voor de selectie van de bovenkant van de munt en de wijzerplaat? Want afhankelijk van het onderdeel dat ingevoegd gaat worden, zullen de coördinaten niet hetzelfde zijn en werkt het dus niet.
boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.0443, 0.0674, 0, True, 1, Niets, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.067, 0.083, 0, True, 2, Nothing, 0)
Het zou automatisch een hoekpunt van de munt moeten detecteren, evenals de voorkant van de automatisch ingebrachte munt, maar ik zie niet hoe ik dat moet doen.
Gebruikte basiscode.
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim spec As SldWorks.DocumentSpecification
Dim Drawing As SldWorks.DrawingDoc
Dim boolstatus As Boolean
Option Explicit
Sub main()
Set swApp = Application.SldWorks
Set spec = swApp.GetOpenDocSpec("C:\Program Files\SolidWorks Corp\SOLIDWORKS\samples\tutorial\api\cover_datum.sldprt")
Set Part = swApp.OpenDoc7(spec)
Set Drawing = swApp.NewDocument("C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\advdrawings\Drawing.drwdot", 2, 0.2794, 0.4318)
Set Part = Drawing
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.39237, 0.5218942019544, 0, False, 0, Nothing, 0)
boolstatus = Part.Create3rdAngleViews2("C:\Program Files\SolidWorks Corp\SOLIDWORKS\samples\tutorial\api\cover_datum.sldprt")
Part.ClearSelection2 True
boolstatus = Part.ActivateView("Drawing View1")
'Select a vertex in the drawing view to be the origin of all datums in the table
'All XLOC and YLOC table column values will be relative to this datum origin
boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.117324728174898, 0.108554228680764, -500.0075, True, 1, Nothing, 0)
'Select a face that contains the holes that will be annotated in the table
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.090728339186173, 0.119052803281577, -500.0075, True, 2, Nothing, 0)
Dim myView As Object
Set myView = Part.SelectionManager.GetSelectedObjectsDrawingView2(1, -1)
Dim myHoleTable As Object
'Insert a hole table
'anchored with its top left corner at x-coordinate = 0.07m and y-coordinate = 0.175m,
'with starting datum tag "A",
'using hole table template: standard hole table--letters.sldholtbt
Set myHoleTable = myView.InsertHoleTable2(False, 0.153019881817662, -3.77259107537343E-02, 1, "A", "C:\Program Files\SolidWorks Corp\SOLIDWORKS\lang\english\standard hole table--letters.sldholtbt")
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
End Sub