Hallo,
hab da mal 'ne Frage!
Ich möchte einen Punkt in Bezug auf einen Referenzpunkt erzeugen(besser wäre in Bezug auf ein Achsensystem). Ich bekomme bei folgendem Code aber immer eine Fehlermeldung!
Was mache ich falsch? (Fange gerade erst mit der Makroprogrammierung an!)
Vielen Dank im Vorraus!
Hier nun mein Code:
Sub CATMain()
Dim aPart As Document.Part
Set aPart = CATIA.ActiveDocument.Part
Dim HB as HybridBody
Set HB = aPart.HybridBodies.Item ("Punkte")
' Auswahl festlegen -----------------------------------------------
Dim Was(0)
Was(0) = "Point"
' Selektion definieren ---------------------------------
Dim UserSel As Selection
Set UserSel= CATIA.ActiveDocument.Selection
UserSel.Clear
' Selektion vornehmen lassen --------------------------------------
Dim RP As CATBSTR
RP = UserSel.SelectElement(Was, "Bitte den Referenz-Punkt selektieren", true)
If RP = "Normal" Then
MsgBox(UserSel.Item(1).Value.Name & " wurde ausgewählt!")
Else
MsgBox ("Abbruch")
End If
Dim RefPunkt as Reference
RefPunkt = UserSel.Item(1).Value.Name
' Selektion freigeben --------------------------------------------
UserSel.EndSelectElement
UserSel.Clear
'**********************************************************************
' Punkt erzeugen
Dim Toolbox3D as HybridShapeFactory
Set Toolbox3D = aPart.HybridShapeFactory
Dim Punkt1 As HybridShapePointCoordWithReference
Set Punkt1 = Toolbox3D.AddNewPointCoordWithReference(0.000000,0.000000,0.000000,RefPunkt)
Punkt1.Name = "AP_Punkt"
HB.AppendHybridShape Punkt1
aPart.Update
End Sub
Gruß
Thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP