Texte und Pfeile in Fachschale drehen

von FredTomke aus der Kategorie Wissenschaft & Technik
Current Time 0:00
Duration -:-
Loaded: 0%
Stream Type LIVE
Remaining Time -:-
 
1x
    • Chapters
    • descriptions off, selected
    • subtitles off, selected
      Advertisement

      AutoCAD Map Topobase Text Drehung

      Beschreibung

      Zuweilen stellt sich die Frage, wie man am schnellsten Texte und Symbole in einer Fachschale drehen kann, ohne zuvor den Befehl Drehen starten zu müssen. Da der Drehwinkel in der Datenbank gespeichert ist, genügt ein VB-Skript-Button auf dem Formular: Public Overrides Sub Button_Click() If (Me.IsNull("ORIENTATION")) Then Me.Application.MessageBox("Das Feld Ausrichtung darf nicht leer sein!") ElseIf (Me.Dialog.Mode = DialogMode.Edit Or Me.Dialog.Mode = DialogMode.View) Then If (Me.Dialog.Mode = DialogMode.View) Then Me.Dialog.Mode = DialogMode.Edit End If Dim rotation As Double = Me.DblValue("ORIENTATION") If (rotation > 200) Then rotation = rotation - 400 End If rotation = rotation + 200 Me.Dialog.Controls.Item("ORIENTATION").Value = rotation Else Me.Application.MessageBox("Der Aufruf dieser Funktion ist nur im Editier- oder Ansichtsmodus zulässig!") End If End Sub

      18.02.2016

      Kommentare

      Embed-Code