Texte und Pfeile in Fachschale drehen

, 0 ↓

Aufrufe: 1.106

FredTomke

Hochgeladen von: FredTomke

Hochgeladen am: 18.02.2016

Tags: 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

Kopiere diesen Code und füge ihn auf Deiner Webseite/Blog ein. Du kannst auch diesen Link zum Video teilen:

Kommentar hinterlassen