Hallo Forum,
ich suche schon eine ganze Weile nach einer gangbaren Möglichkeit, eine Übersicht (Blattschnitte) für versschiedene Layouts entlang einer Kabeltrasse zu erstellen. Ich habe dafür noch keine einfache Erweiterung o.ä. gefunden. Weiß denn jemand eine Möglichkeit, die Eckkoordinaten des Viewrahmens zu ermitteln, um so ein Polygon-Shape zu erstellen, das die Blattschnitte umfaßt ?
Für Hilfe (oder bessere Ideen) wäre ich dankbar !
Gruß
Tim
ich suche schon eine ganze Weile nach einer gangbaren Möglichkeit, eine Übersicht (Blattschnitte) für versschiedene Layouts entlang einer Kabeltrasse zu erstellen. Ich habe dafür noch keine einfache Erweiterung o.ä. gefunden. Weiß denn jemand eine Möglichkeit, die Eckkoordinaten des Viewrahmens zu ermitteln, um so ein Polygon-Shape zu erstellen, das die Blattschnitte umfaßt ?
Für Hilfe (oder bessere Ideen) wäre ich dankbar !
Gruß
Tim
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von Gast am Mi., 07.07.2004 - 09:02
Permalinkhilft Dir dieser Schnipsel weiter?
Wir nutzen ihn, um das View im Layout zu aktualisieren.
'MapDisplay und Maßstab -
theDisp = theGraphic.GetMapDisplay
theExt = theDisp.ReturnExtent
theCentre = theExt.ReturnCenter
theScale = theGraphic.ReturnScale
' msgbox.info("Centre " + theCentre.AsString + NL +
' "Origin " + theExt.ReturnOrigin.AsString + NL +
' "Scale: " + theScale.AsString,"ViewFrame Settings")
'View
aView = theGraphic.GetView
theView = av.FindDoc(aView.GetName)
theView.GetWin.Open
VDisp = theView.GetDisplay
VScale_NOW = theView.ReturnScale
VCentre_NOW = VDisp.ReturnVisExtent.ReturnCenter
VOrigin_NOW = VDisp.ReturnVisExtent.ReturnOrigin
' msgbox.info("Centre " + VCentre_NOW.AsString + NL +
' "Origin " + VOrigin_NOW.AsString + NL +
' "Scale: " + VScale_NOW.AsString,"View Settings")
Viel Erfolg
Johannes