---

Hallo

Ich habe ein etwas ungewöhnliches Problem. Ich hätte gerne folgendes durchgeführt: einen Konstruktionsbefehl für eine boolsche operation erstellen und dann den Befehl ausführen.

command = "partDocument.Part..ShapeFactory.AddNew" & TypeName(boolP)

Da 'TypeName(boolP)' verschieden sein kann (Trim, Add...) möchte ich den Befehl mit dieser Methode flexibel halten. Natürlich wäre das ganze auch mit IF... für jede Variante möglich aber so wäre es doch etwas eleganter.
Meine Frage deshalb: gibts einen Befehl um den konstruierten string (command) dann auch auszuführen?

Grüsse, Daniel.

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

---

Nun je genauer Du Dein "ungewöhnliches" Problem beschreibst so bessere Antworten wirst Du erhalten. Im Augenblick solltest Du ein bisschen mehr erklären, weil so braucht man eine Wahrsagekugel (und die habe ich zur Zeit verliehen  )

Axel

------------------
Ich bin dabei am 19.9. und 20.9.06 beim
5. CAD.de Anwendertreffen

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

---

Ok, das war wohl etwas kurz, sorry ;-) Hier etwas ausführlicher:
Ich suche ein Objekt in meinem CATIA-Dokument mit einem bestimmten Namen:
Set boolP = prodDocument1.Part.FindObjectByName("Objekt")
Dann ermittle ich den Typen des Objektes:
type = TypeName(boolP)
Dann will ich ein neues Objekt vom gleichen Typen in meinem CATIA-Dokument erzeugen. Da ich aber offenbar BooleanShapes nicht einfach mit copy/paste erzeugen kann, muss ich dies explizit aufbauen, d.h.:
Set Operation = prodDocument1.Part.AddNewAdd([Körper])
Da dieser Befehl aber für 'Trim', 'Add' etc. unterschiedlich lautet, muss ich diesen anpassen:
Set Operation = prodDocument1.Part.AddNewAdd([Körper])
Set Operation = prodDocument1.Part.AddNewTrim([Körper])
...
Statt nun den typen von 'boolP' abzufragen und dann für jeden Fall eine IF-Routine zu schreiben, möchte ich den Befehl direkt aus dem Typen von 'boolP' kreieren:
"Set Operation = prodDocument1.Part.AddNew" & TypeName(boolP) & "([Körper])"
Nun ist dies ja aber erst der String. Wie kann ich diesen String nun als tatsächlichen Befehl verwenden, d.h. dass nachher das Programm den String als Befehl:
Set Operation = prodDocument1.Part.AddNewTrim([Körper])
erkennt?

Hoffe, ihr konntet mir folgen. Es ist in dem Sinn kein dringendes Problem, da's eigentlich nur Kosmetik ist - würd mich trotzdem interessieren, ob's dafür ne Lösung gibt ;-)

Greets, Daniel.

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

---

Hallo Daniel,

wäre schon eine schöne Sache, wenn man Befehle variabel halten könnte. Aber wozu - denkst Du - gibt es zB. IF-, SelectCase- oder Try-Anweisungen?
In Deinem Fall würde ich einfach den Typen abfragen, das Ergebnis in eine Stringvar überführen und eine Select-Case-Anweisung programmieren.

Code:

---

Select Case TypeName(boolP)
  Case "Add"
    Set Operation = prodDocument1.Part.AddNewAdd(Bla)
  Case "Trim"
    ...
End Select

---

Ich weiß nicht, was hinter dieser Operation steht, aber damit hast Du pro Möglichkeit zwei Zeilen Code, die einfach zu erweitern und lebar sind. Nur so als Vorschlag. Aber ich denke, dass Dir das sehr wohl bekannt ist, da es sich ja anscheinend um reine "Kosmetik" handelt.
Grüße, okl

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

---

Hallo,
in interpretativen Sprachen können solche Konstrukte möglich sein (z.B. Korn-Shell), in kompilierbaren Sprachen nicht. Ich vermute aber, da VisualBasic auch kompiliert werden kann, ist so etwas nicht möglich, sicher weiß ich es nicht. Schau mal im Basic Handbuch nach. Wenn überhaupt, dann dort.

------------------
in diesem Sinne

Klaus

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

---

Danke für eure Antworten. Dachte mir schon, dass dies wohl eher nicht möglich ist - auf die Alternative mit IF/case... bin ich auch gekommen, deshalb wäre das andere einfach "nice to have" gewesen...

Gruss, Daniel

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

---

Hallo Daniel,

so was wie ein Pointer auf die Funktion gibt es in CATScript sicher nicht... Nur es existiert doch ein Weg, allerdings ist es nicht die beste Lösung.

Es gibt eine Funktion StartCommand und diese braucht ein String als Parameter, damit kannst Du Deinen Befehl ausführen lassen. Aber Vorsicht: das Ding läut nicht synchron, ich habe es benuzt um mein CAA-Commando zu starten, hier ist die VB-Code:

Dim cat_obj As Object
Dim strCommand As String
   
Set cat_obj = GetObject(, "CATIA.Application")
strCommand = "Pad"
cat_obj.StartCommand strCommand

Das Status des Kommandos abzufragen ist nicht trivial.

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

---

Ja, genau sowas hab ich gesucht. Werds nächstens mal ausprobieren, mein Code ist momentan etwas im Umbau ;-)

Danke & Gruss, Daniel.

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