---

Hallo,

ich hoffe ich bin mit meiner iLogic-Frage hier richtig?

Ich versuche mir gerade eine Regel zu basteln, welche es mir ermöglicht alle Ansichten (auch andere Modelle/Teile) im aktuellen Blatt auf einen Maßstab zu ändern. Der Maßstab wird vor dem Starten der Regel abgefragt. Leider bricht die Regel nach dem Ändern der ersten Ansicht (inklusive ihrer verknüpften Ansichten) ab.

Hier einmal der Code ohne eingebaute Abfrage:

===
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oView As DrawingView

For Each oView In oDrawDoc.ActiveSheet.DrawingViews
oView.[ScaleString] = "1 : 50"

Next
===
Fehler in Regel: Regel3 in Dokument: Name_der_IDW.idw

Ein Aufrufziel hat einen Ausnahmefehler verursacht.
===
Weitere Infos:

System.Runtime.InteropServices.COMException (0x80004005): Ein Aufrufziel hat einen Ausnahmefehler verursacht.
  bei System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
  bei Inventor.DrawingView.set_ScaleString(String )
  bei LmiRuleScript.Main()
  bei Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)
  bei iLogic.RuleEvalContainer.ExecRuleEval(String execRule)
===

Mit dem Absturzbericht kann ich leider nicht viel anfangen. Hat jemand eine Idee?

Viele Grüße

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

---

Hallo,
Ich habe was aehnliches per macro gemacht, ich koennte es dir morgen zukommen lassen.

Gruss
Ray

------------------
Barbarus hic ego sum, quia non intellegor ulli!

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

---

ich schau es mir gern an 

macro heißt vba oder ilogic?

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

---

Hallo,

war leider gestern nicht dazu gekommen dir das macro zu senden aber jetzt.

Public Sub View_set()

Dim objDrawDoc As DrawingDocument
Set objDrawDoc = ThisApplication.ActiveDocument
Dim objSheet As Sheet
Set objSheet = objDrawDoc.ActiveSheet
Dim objDrawingView As DrawingView
Dim dblScale(20) As Double
Dim dblBaseScale As Double

dblBaseScale = objSheet.DrawingViews(1).Scale
For Each objDrawingView In objSheet.DrawingViews
    If (objDrawingView.ViewType = kStandardDrawingViewType) Then
        objDrawingView.[Scale] = dblBaseScale
    End If
Next

MsgBox "done"

End Sub

ich habs auf meinem groesseren Macro extrahiert.
wenn du noch probleme damit hast kannst dich gerne bei mir melden.

Gruss
Ray

------------------
Barbarus hic ego sum, quia non intellegor ulli!

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

---

Dank Dir,

werde das Makro mal versuchen einzusetzen. Habe es grad versucht 1 : 1 in eine iLogic zu kopieren das ist leider fehl geschlagen.

Das funktioniert sicherlich auch mit dem ScaleString oder?

Dim dblScale(20) As Double <<-- ist das der Skalierfaktor?

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

---

Zitat:

---

Original erstellt von EKW:

...
Dim dblScale(20) As Double <<-- ist das der Skalierfaktor?

---

Hallo,
leider hatte ich vergessen das zu aendern: bitte die (20) entfernen so das es nur noch: dblScale As Double  heisst.

ich hatte den Code aus meinem Programm extrahiert welches durch alle Ansichten geht und erst den Massstab der Ansicht abspeichert und dann jede Ansicht einzelnd auf den Massstab der ersten Ansicht setzt und als DXF abspeichert und dann wieder auf den eigenen Massstab zusruecksetzt. Deswegen brauchte ich die Variable dblScale als Feld.
Bei dir wird das ja nicht noetig sein.

VBA funktioniert nur selten direkt als iLogic es gibt doch ein paar unterschiede. Aber du kannst ja das Macro dann per iLogic aufrufen.

Gruss
Ray

------------------
Barbarus hic ego sum, quia non intellegor ulli!

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

---

Sooo,...

ich habe noch ein wenig rumgetüftelt. Jetzt läuft die iLogic-Regel ohne Fehler durch. Ein einfaches "On Error Resume Next" vor dem ganzen Spaß hat geholfen. Ich weiß zwar immer noch nicht was den Fehler ausgelöst hat, aber die Regel erfüllt erstmal ihren Zweck.

===
On Error Resume Next
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oView As DrawingView

For Each oView In oDrawDoc.ActiveSheet.DrawingViews
oView.[ScaleString] = "1 : 50"

Next
===

Jetzt fehlt nur noch die angeforderte Eingabe des Maßstab-"Strings".

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