Der Aktuelle Stand
Language="VBSCRIPT"
Sub CATMain()
Dim Was(0)
Dim UserSel As Selection
Dim Systemwahl As CATBSTR
Dim Name as String
Name = "asdf"
Dim X as double
Dim Y as double
Dim Z as double
X=0
Y=0
Z=0
'- Achsensystem wählen
Was(0) = "AxisSystem"
Set UserSel= CATIA.ActiveDocument.Selection
UserSel.Clear
Systemwahl = UserSel.SelectElement2(Was, "Bitte das Achsensystem auswählen!", False)
Name = UserSel.Item(1).Value.Name
AXS_Name = UserSel.Item(1).Value.Name
Set AXS_Wert = UserSel.Item(1).Value
'msgbox AXS_Name
'- Geometrisches Set erstellen und Namen zuweisen
Name = AXS_Name
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()
hybridbody1.name = Name
part1.Update
'- Punkt auf Koordinaten des Achsensystems erstellen
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set axisSystem1 = UserSel.item(1).Value
axisSystem1.GetOrigin originCoord
'Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(originCoord(0), originCoord(1), originCoord(2))
MsgBox origincoord(0) & origincoord(1) & origincoord(2)
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP