Hallo allemaal,
Iedereen heeft een truc om een uitzicht precies te positioneren?
Het doel is om een ISO-weergave op precies dezelfde plaats op 5 folio's te plaatsen (om te voorkomen dat de weergave beweegt met het scrollen van de pagina's in PDF).
Bedankt en een fijne dag verder!
U kunt de iso-weergave op elk blad kopiëren en plakken. De weergave is op dezelfde plaats opgesteld.
Edit: OEPS het werkt niet meer blijkbaar... :/
Hallo
Een oplossing zou zijn om het blad te dupliceren nadat de weergave is ingevoegd en vervolgens de sjabloon daarna te wijzigen.
Maak een tekening met een vooraf ingestelde weergave door een iso-weergave in te voegen.
En opslaan als sjabloon.
Hier is een voorbeeld
Idem Benoi.LF doet het werk voor mij!!
Bedankt, is het verwonderlijk dat er geen X Y-positionering is?
Sorry, maar ik kan mijn FOLIO's niet opnieuw starten.
Met vooraf ingestelde weergaven wordt alles automatisch bijgewerkt.
U hoeft niet alles opnieuw te doen....
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Sub hoofd()
Bij fout Hervatten Volgende
Dim swApp als SldWorks.SldWorks
Stel swApp = Toepassing.SldWorks in
Zo niet, dan is swApp niets
Dim deel als SldWorks.ModelDoc2
Deel instellen = swApp.ActiveDoc
Zon swSelMgr As SldWorks.SelectionMgr
Stel swSelMgr = Part.SelectionManager() in
Als geen deel niets is en niet swSelMgr niets is, dan
boolstatus = Part.ActivateView("Detailweergave A (4:1)")
boolstatus = Part.Extension.SelectByID2("Detailweergave A (4:1)", "TEKENING", 0.3567189637584, 0.2569348080537, 0, Onwaar, 0, Niets, 0)
Dim swView als SldWorks.Bekijk
Stel swView = swSelMgr.GetSelectedObject6(1, -1) in
Zo niet, dan is swView niets
Dim vArr als variant
vArr = swView.Positie
Bel MsgBox("Huidige weergavecoördinaten: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
vArr(0) = 0.37 '' bewegende X-as
swView.Position = vArr
vArr(1) = 0,25 '' bewegende Y-as
swView.Position = vArr
Onderdeel aanroepen.BewerkenHerbouwen3
Bel MsgBox("Huidige weergavecoördinaten: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
Einde als
Stel swView in = Niets
Einde als
Stel swSelMgr in = Niets
Set Deel = Niets
Einde als
Stel swApp = Niets in
Als Err.Number <> 0 is, dan Err.Clear
Einde Sub
Hallo
1- U kopieert uw folio (inclusief uw ISO-weergave)
2- U sleept uw nieuwe ISO-weergave naar het folio dat u in de boom wilt hebben
3- U verwijdert uw nutteloze folio-kopie
De nieuwe weergave wordt automatisch verplaatst naar dezelfde plaats als op het oorspronkelijke folio.
Je moet doen wat voor 2D is, het raster weergeven
A+