---

Baum.jpg

Hallo,

ich habe folgende Frage, ist es möglich ohne KWA-Linzenz Parameter in einem Body einzufügen? Ein ParameterSet konnte ich bereits mit hilfe folgendem Code erstellen (Baum im Anhang als Jpeg), allerdings kann ich diesen nicht ansprechen bzw. dort einen Parameter erstellen. Es wird bei einer Überwachung in VBA Editor auch keine Rubrik Parameters angezeigt, somit kann nicht mit "MyBody.Parameters..." gearbeitet werden.

Vielen Dank für eure Hilfe!

Sub catmain()

Set MyPart = CATIA.ActiveDocument.Part

Set Mybody = MyPart.Bodies.Item(1)

Dim Params

Set Params = MyPart.Parameters

Params.CreateSetOfParameters Mybody

Ens Sub

WIN XP, Catia V5R18, HD2

mfg Tobi

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

---

Hallo,

per Copy kannst du denn Parameter ohne die Linzenz in den Body einfügen.

Gruß

------------------
tomtom1972

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

---

Hallo TomTom,

danke für dein schnelle Antwort!
Per Copy in Catia selber habe ich es geschafft, aber wie sage ich dem Makro wo er den Parameter einfügen soll, habe keine Ahnung wie ich das erstellte ParameterSet im Body ansprechen kann.
Eine andere Möglichekit gibt es ohne KWA-Lizenz nicht?

Vielen Dank im Voraus!

mfg Tobi

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

---

Baum.jpg

Hallo Leute,

Habe das hier gefunden,

Set Params1 = MyPart.Parameters.SubList(Mybody, True)
Set strParam1 = Params1.CreateString("OP", "")

Damit wird dann ein Parameter unter dem Body erstellt, aber leider nicht in dem Set unter dem Body (siehe Anhang).
Hat jemand noch ne andere Idee?

mfg Tobi

[Diese Nachricht wurde von tobiley am 30. Apr. 2010 editiert.]

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

---

Hallo,

spontan fällt mir die Möglichkeit ein, per Selection darauf zuzugreifen.

Code:

---

    Set obj_Part = CATIA.ActiveDocument.Part
    Set obj_Body = obj_Part.MainBody
    Set obj_Selection = CATIA.ActiveDocument.Selection
   
    obj_Selection.Clear
    obj_Selection.Add obj_Body
   
    obj_Selection.Search "CATKnowledgeSearch.AdvisorParameterSet,sel"
   
    For i = 1 To obj_Selection.Count
        Set obj_ParameterSet = obj_Selection.Item(i).Value
       
        obj_ParameterSet.DirectParameters.CreateString "OP", ""
    Next
   
    obj_Selection.Clear

---

Alternativen würden mich aber auch interessieren!

Viele Grüße

------------------
Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.
Konrad Adenauer

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

---

Hallo,

Habe gerade kein Catia zur Verfügung, werde es in den nächsten Tagen mal ausprobieren.
Allerdings benötigt man für deine Methode die Knowledge Advisor Linzenz oder?

Mfg

Tobi

[Diese Nachricht wurde von tobiley am 05. Mai. 2010 editiert.]

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

---

Hallo Bobby_Joe,

deine Lösung funktioniert, auch ohne KWA-Lizenz!
Vielen Dank!

Einfaches Beispiel siehe unten.

Habe bis jetzt keine andere Lösung gefunden.

Code:

---

Set MyPart = CATIA.ActiveDocument.Part
Set mybody = MyPart.MainBody
Set Params = MyPart.Parameters

' Parameterset im Body erstellen
Params.CreateSetOfParameters mybody

Set mybody = MyPart.MainBody
Set mySelection = CATIA.ActiveDocument.Selection
 
mySelection.Clear
mySelection.Add mybody

'Parameterset suchen
mySelection.Search "CATKnowledgeSearch.AdvisorParameterSet,sel"

'Wenn ein oder mehrere Parameterset(s) gefunden in jedem den Parameter erstellen
For i = 1 To mySelection.Count
    Set myParameterSet = mySelection.Item(i).Value
     
    myParameterSet.DirectParameters.CreateString "OP", ""
Next
 
mySelection.Clear

MyPart.Update

---

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