---

Hi Leute,

da ich im Netz bisher keine Lösung gefunden und Ihr mir immer super gut geholfen habt, muss ich euch wieder bitten mir zu helfen^^

Ich lösche zurzeit nicht mehr notwendige Gleichungen und Bemaßungen aus meinen Skizzen, dann wechsel ich die gesteurnden wieder zu steuernden und nun muss ich an diese Bemaßungen eine Gleichung einfügen. Nur funktioniert das nicht so wie ich mir das dachte, weil ich noch in der Gleichung eine andere Bemaßung drin habe.

Folgendes habe ich schon probiert:

t ist in jedem Fall als String definiert

-swEquationMgr.Equation() = """D28@Sketch1""" & "=" & "D99@Sketch1" & 2 * t
  bestimmt sind hier immer die "&" falsch gesetzt. Der Debugger sagt -> Argument ist nicht Optional

-Dim myDimension As Object
  Set myDimension = Part.Parameter("D28@Sketch1")
  myDimension.SystemValue = "D99@Sketch1" + 2 * t
  Part.ClearSelection2 True
  Debugger -> Typen unverträglich

schon vorab vielen Dank für die Hilfe

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

---

ohne das getestet zu haben, würde ich mal drauf tippen dass deine Formatierung für die Equation() nicht ganz richtig ist:
Spontan würde ich das eher so schreiben:

"D28@Sketch1=D99@Sketch1 + 2 * " & t & "

da du ja nur das t als Variable aus deinem Makro verwenden willst.

Und wenn ich mir die Hilfe anschaue..kann es sein dass du bei Equation() in den Klammern etwas angeben musst?

Dim instance As IEquationMgr
Dim Index As System.Integer
Dim value As System.String

instance.Equation(Index) = value

value = instance.Equation(Index)

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

---

Danke für die Antwort Baumjäger,

also der richtige Befehl für das hinzufügen von Gleichungen ist swEquationMgr.Add3.

Allerdings sagt der mir immernoch Typen unverträglich

swEquationMgr.Add3 """D28@Sketch1"" = D99@Sketch1 + 2 * " & t & ""

Kann man D99@Sketch1 überhaupt einfach so dort reinschreiben? Ich glaub eher das wirft mir den Fehler wegen dem Datentyp auf.. 

[Diese Nachricht wurde von Sc1ssoR am 12. Mai. 2017 editiert.]

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

---

Hallo,

du hast keinen Typenfehler im eigentlichen Sinne, nur verlangt der Befehl mehr Parameter, schau dir doch mal in der API Hilfe das Beipiel Add and Modify Equations Example (VBA) dazu an.

Der Befehl braucht nämlich 5 Parameter

Code:

---

Function Add3( _
  ByVal Index As System.Integer, _
  ByVal Equation As System.String, _
  ByVal Solve As System.Boolean, _
  ByVal WhichConfigurations As System.Integer, _
  ByVal ConfigNames As System.Object _
) As System.Integer

---

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

hab das mit den Parametern so probiert:

                swEquationMgr.Add3 1, """D28@Sketch1"" = D99@Sketch1 + 2 * " & t & "", True, swAllConfiguration, Empty

er meckert nicht aber eine Gleichung wird auch nicht eingefügt...

wenn ich D99@Sketch1 weglasse wird die Gleichung eingetragen muss also eine andere Methode geben das in die Gleichung zu implemetieren

[Diese Nachricht wurde von Sc1ssoR am 12. Mai. 2017 editiert.]

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

---

hab mein Problem gelöst!

so muss das aussehen

swEquationMgr.Add3 1, """D28@Sketch1"" = ""D99@Sketch1"" + 2 * " & t & "", True, swAllConfiguration, Empty

danke euch!

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