---

Hallo mal an alle,

Will mit einem Skript in einer Drawing die Seite einrichten und je nach Format eine bestimte View um einen wert in x verschieben.
Tut alles recht gut, bis auf das, dass brim ändern des Parameters die Fehlerbeldung "Run-time error 13    Type mismatch" kommt

hier mal der part des codes der nicht will
kann ja sein das jemand weiss wie sich das Ding überreden läßt

lg
Christian

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

Dim realParam1 As RealParam
Set realParam1 = drawingSheet1.GetItem("Drawing\Blatt .1\ViewMakeUp.3\X")

realParam1.Value = 0#

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

---

Kann es sein, dass eine Einheit fehlt ?

------------------
CATIS GmbH                  38444 Wolfsburg
catrin.eger@catis.de        www.catis.de

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

---

Wow Catrin, bist ja schneller als die Feuerwehr
Danke,

aber wo bitte krieg ich hier eine Einheit rein
das Ding hängt bei:

Set realParam1 = drawingSheet1.GetItem("Drawing\Blatt .1\ViewMakeUp.3\X")

ab.

Ich glaube ich sollte es lassen,bin zu blöde für solche Sachen *gg*

lg
Christian

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

---

Also, wenn ich das richtig verstehe, muesste definiert werden:
drawingView1.x=0 (oder irgendein anderer Wert halt)
drawingView1.y=0 ...

In der Zeile, die bei Dir das Problem bringt, sind zwei Typen (zeichnekette und Wert) drin, die sich nicht vertragen.

genaueres kann ich aber nicht sagen, da bin ich kein Experte.
sorry

------------------
CATIS GmbH                  38444 Wolfsburg
catrin.eger@catis.de        www.catis.de

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