AutoCAD Map Topobase Text Drehung
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