Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Benutzerachsensystem im Part ändern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Benutzerachsensystem im Part ändern (450 mal gelesen)
madhya
Mitglied
 Administrator


Sehen Sie sich das Profil von madhya an!   Senden Sie eine Private Message an madhya  Schreiben Sie einen Gästebucheintrag für madhya

Beiträge: 61
Registriert: 19.02.2001

Windows 10 64-bit
Catia V5-6 R2019
Robcad / PSimulate
AutoCAD

erstellt am: 09. Nov. 2020 08:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Programmiergemeinde!

Ich hoffe jemand kann mir einen Tipp geben, vielleicht bin ich auch auf dem Holzweg.

Vorgehensweise:
User wählt im Produkt ein Part aus, darauf hin wird die Achsenposition dieses Part ermittelt und auf Null gesetzt (funzt)
Danach muss das "Benutzerachsensystem" im Part ermittelt (GetAxisSystem) und ein neuer Wert(SetAxisSystem) zugewiesen werden (funzt nicht)
die Vektorenverschiebung ermitteln (steht noch aus).

bisheriger Script:

' COPYRIGHT H. Akkaya 2020

Sub CATMain()

Dim oDocument As Document
Set oDocument = CATIA.ActiveDocument

Dim amatrix(11)

ReDim arType(0)
arType(0) = "Product"

Set oselection = CATIA.ActiveDocument.Selection

oselection.Clear
sta = oselection.SelectElement2(arType, "Select the Product to retrieve the Matrix", False)

If sta <> "Normal" Then Exit Sub

Set osource = oselection.Item(1).Value
   
osource.Position.GetComponents amatrix

strans = "Translations:" & Chr(10) & amatrix(9) & Chr(10) & amatrix(10) & Chr(10) & amatrix(11) & Chr(10) & Chr(10)
srotx = "X Rotations:" & Chr(10) & amatrix(0) & Chr(10) & amatrix(1) & Chr(10) & amatrix(2) & Chr(10) & Chr(10)
sroty = "Y Rotations:" & Chr(10) & amatrix(3) & Chr(10) & amatrix(4) & Chr(10) & amatrix(5) & Chr(10) & Chr(10)
srotz = "Z Rotations:" & Chr(10) & amatrix(6) & Chr(10) & amatrix(7) & Chr(10) & amatrix(8) & Chr(10) & Chr(10)

MsgBox strans & srotx & sroty & srotz

Dim ursprung( 11 )
' x axis components
ursprung( 0 )  = 1.000
ursprung( 1 )  = 0
ursprung( 2 )  = 0
' y axis components
ursprung( 3 )  = 0
ursprung( 4 )  = 1
ursprung( 5 )  = 0
' z axis components
ursprung( 6 )  = 0
ursprung( 7 )  = 0
ursprung( 8 )  = 1
' origin point coordinates
ursprung( 9 )  = 0.000
ursprung( 10 ) = 0.000
ursprung( 11 ) = 0.000

osource.Position.SetComponents ursprung

strans = "Translations:" & Chr(10) & ursprung(9) & Chr(10) & ursprung(10) & Chr(10) & ursprung(11) & Chr(10) & Chr(10)
srotx = "X Rotations:" & Chr(10) & ursprung(0) & Chr(10) & ursprung(1) & Chr(10) & ursprung(2) & Chr(10) & Chr(10)
sroty = "Y Rotations:" & Chr(10) & ursprung(3) & Chr(10) & ursprung(4) & Chr(10) & ursprung(5) & Chr(10) & Chr(10)
srotz = "Z Rotations:" & Chr(10) & ursprung(6) & Chr(10) & ursprung(7) & Chr(10) & ursprung(8) & Chr(10) & Chr(10)

'MsgBox strans & srotx & sroty & srotz

Set sel = CATIA.ActiveDocument.Selection
Dim sFilter(0)
Dim bFilter(0)

Dim hybridShape1 As HybridShape
Dim hybridBody1 As HybridBody
Dim part1 As Part

sFilter(0) = "Part"
MsgBox "Bitte Part auswaehlen"
sel.SelectElement2 sFilter, "Part selektieren", false

Set part1 = sel.Item(1).Value
part1Name = part1.Name
lenpart1Name = Len(part1.Name) 

Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems

Dim axisSystem1 As AxisSystem
'Set axisSystem1 = axisSystems1.Item("Axis System.1")
Set axisSystem1 = axisSystems1.Item("Bezugsachsensystem")

'ReDim sFilter(0)
'bFilter(0) = "AxisSystem"
'sSelection = oselection.SelectElement2(bFilter, "Bitte das Achsensystem anklicken,auf welches sich die Koordinaten beziehen sollen", True)
'If sSelection = "Normal" Then
'        Set oAxisSystem = oselection.Item2(1).Value
' Set name = oAxisSystem.Name
' msgbox name
'End If

'Set part1 = CATIA.ActiveDocument.Part
Set ASys = part1.AxisSystems.Item("Bezugsachsensystem")
Set oRef = part1.CreateReferenceFromObject(ASys)
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRef)

Dim BAS(11)
'oAxisSystem.GetAxisSystem BAS

ASys.GetAxisSystem BAS

strans = "Translations:" & Chr(10) & BAS(9) & Chr(10) & BAS(10) & Chr(10) & BAS(11) & Chr(10) & Chr(10)
srotx = "X Rotations:" & Chr(10) & BAS(0) & Chr(10) & BAS(1) & Chr(10) & BAS(2) & Chr(10) & Chr(10)
sroty = "Y Rotations:" & Chr(10) & BAS(3) & Chr(10) & BAS(4) & Chr(10) & BAS(5) & Chr(10) & Chr(10)
srotz = "Z Rotations:" & Chr(10) & BAS(6) & Chr(10) & BAS(7) & Chr(10) & BAS(8) & Chr(10) & Chr(10)

MsgBox name & strans & srotx & sroty & srotz

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 09. Nov. 2020 08:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für madhya 10 Unities + Antwort hilfreich

Servus

Ein Achsensystem lässt sich zB über die Methoden PutOrigin und PutVectors definieren. (nur bei Type = catAxisSystemExplicit ?)
Dies ist anhängig von welchem Typ (bzw dessen Achsen und Orgin) das Achsensystem ist.
Die Methode GetAxisSystem ist mir nur bei einer Messung bekannt.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz