Hallo Canadabear,
es ist zwar nur eine "Krücke", aber Du könntest Dir eine iLogic Regel in die Zeichnungsvorlage einbauen, welche eine vorhandene Revisionstabelle immer unten links positioniert.
Bsp. iLogic Regel:
Try
Dim obj_InvDraw As inventor.drawingdocument = ThisDrawing.Document
Dim obj_BorderBox As inventor.box2d = obj_InvDraw.ActiveSheet. Border.rangebox
Dim obj_RevBox As inventor.box2d = obj_invdraw.ActiveSheet.revisiontables.item(1).rangebox
Dim dbl_RahmenVersatz As Double = 0.5 ' Versatz um 5mm vom Rand, wg. Zonenrahmen. Wenn kein Zonenrahmen dann 0
'Größe der Rev Tabelle berechnen
Dim int_RevTabX = obj_revbox.maxpoint.x - obj_revbox.minpoint.x
Dim int_RevTabY = obj_revbox.maxpoint.y - obj_revbox.minpoint.y
'Revisionstabelle unten links
Dim obj_InvPoint2D As inventor.point2d = obj_invdraw.ActiveSheet.revisiontables.item(1).position
obj_Invpoint2d.y= obj_borderbox.minpoint.y + int_RevTabY + dbl_RahmenVersatz 'Berechnung enstprechend der gewünschten Position anpassen
obj_Invpoint2d.x=obj_borderbox.minpoint.x + dbl_RahmenVersatz 'Berechnung enstprechend der gewünschten Position
obj_invdraw.ActiveSheet.revisiontables.item(1).position = obj_invpoint2d 'Rahmenposition setzen
Catch
MessageBox.Show("Revisionstabelle konnte nicht verschoben werden!", "iLogic Regel Revisionsrahmen verschieben")
Err.clear
End Try
Das Beispiel funktioniert mit nur einer Revisionstabelle auf dem aktiven Blatt!
Dies kann sicherlich noch ausgearbeitet werden...
Nachtrag:
'Positin unten rechts
obj_Invpoint2d.y= obj_borderbox.minpoint.y + int_RevTabY + dbl_RahmenVersatz
obj_Invpoint2d.x=obj_borderbox.maxpoint.x - int_RevTabX - dbl_RahmenVersatz
Gruß
Stefan
------------------
Wer nicht mitmacht, kann auch nichts verändern
[Diese Nachricht wurde von KatzenHund am 26. Feb. 2013 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP