---

Hallo zusammen,

irgendwie komme ich aktuell nicht weiter...hab leider über die Suche und Ziethen
keinen Lösungsweg finden können.
Vorhaben: 1.User selektiert eine Linie/Kurve z.B. Schweißnähte/Klebelinien
          2.Auf dieser Linie werden in gewähltem Abstand Punkte und Ebenen gesetzt.
Problem/Meldung:
Zeile: Set reference1 = Document1.Part.CreateReferenceFromObject(InputObjectType)
      hier wird mir immer "Type mismatch" oder "Object required" angezeigt.
Frage: Wie kann ich der "CreateReferenceFromObject" klarmachen, dass er die selektierten
      Linien verwenden soll.
Vielen Dank für Eure Hilfe.

MFG
MrLimes

Code:

---

Sub CATMain()

Dim Language As String
Language = "VBScript"

    Dim Document1 As Document
    Set Document1 = CATIA.ActiveDocument
     
    Dim hybridBodies1 As HybridBodies
    Set hybridBodies1 = Document1.Part.HybridBodies

Dim Status, oSelection, oSelectedElement, oDoc, oInstance, oRef, TheSPAWorkbench, TheMeasurable As Object
Dim InputObjectType(0)
Dim bType As Boolean
Dim dLength As Double

InputObjectType(0) = "HybridShape"

If TypeName(CATIA.ActiveDocument) = "ProductDocument" Then
  bType = 0
ElseIf TypeName(CATIA.ActiveDocument) = "PartDocument" Then
  bType = 1
Else
  MsgBox "The Root is not a CATPart or a CATProduct !    ", 48, "Wrong FileType of opend Document"
  Exit Sub
End If

Set oSelection = CATIA.ActiveDocument.Selection
oSelection.Clear

Status = oSelection.SelectElement2(InputObjectType, " Bitte selektieren Sie ein Kurve / Schweißnaht ", False)

   
    Dim reference1 As reference
    Set reference1 = Document1.Part.CreateReferenceFromObject(InputObjectType)
 
    Dim hybridShapeFactory1 As HybridShapeFactory
    Dim hybridShapePointOnCurve1 As HybridShapePointOnCurve
   
    Set hybridShapePointOnCurve1 = _
    hybridShapeFactory1.AddNewPointOnCurveFromPercent(reference1, 0.2, False)
   
    Dim hybridBody1 As HybridBody
    HybridBody.AppendHybridShape hybridShapePointOnCurve1
    Document.Part.Update
   
    userSel.Clear

End Sub

---

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

---

so in etwa:
Set reference1 = Document1.Part.CreateReferenceFromObject(oSelection.Item(1).Value)

------------------
- Robert

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

---

Vielen Dank Robert...jetzt bin ich einen kleinen Schritt weiter.

Jetz motzt er allerdings an der folgenden Zeile rum:

Code:

---

Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromPercent(reference1, 0.2, False)

---

Fehlermeldung: Object variable or With block variable not set

Mir fällt ein Stein von Herzen wenn ich da durch bin...

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

---

Dir fehlt noch folgende Zeile:
Set hybridShapeFactory1 = Document1.Part.HybridShapeFactory

------------------
- Robert

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

---

Ich finde das viel zu umständlich, was ihr hier macht. 

Code:

---

set reference1 = oSelection.Item2(1).Reference

---

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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