Nimm > Element - Bemassung - Einheiten - Skalierungsfaktor
1.00 = 1:1
Ich hatte mir mal ein kleines Basic Programm dafür geschrieben, vielleicht hilft es Dir ja auch:
abspeichern unter
"scalfak.bas"
oder so.....
Du Bekommst den Bemassungsfaktor und den Bauteilskalierungsfaktor angezeigt.
-------------------------------------------
'Maßstab Berechnungen
'
'erstellt von R
'
'---------------------------------------------------------------
Const crlf = Chr$(10)
Public mas$
Public nmas$
'---------------------------------------------------------------
Sub main
Dim x#, y#, s#, e#
Dim h$, n$, m1$, m2$, m3$, m4$, m5$, m6$, m7$
'---------------------------------------------------------------
' Abfrage Hauptmaßstab
If mas$ = "" Then mas$="10"
h$ = MbeInputBox("Bitte Hauptmaßstab eingeben 1: ", mas$)
If h$ = "" Then Goto Ende
x# = Val(h$)
mas$ = h$
' Abfrage Nebenmaßstab
If mas$ = "" Then nmas$ = "5"
n$ = MbeInputBox("Bitte Nebenmaßstab eingeben 1: ", nmas$)
If n$ = "" Then Goto Ende
y# = Val(n$)
nmas$ = n$
' Berechnungen
' Scalierfaktor
s#=x/y
' Einheitenscalierfaktor für Bemaßung
e#=y/x
' Variablen für Anzeige
m1$="Hauptmaßstab 1: "+h$
m2$="Nebenmaßstab 1: "+n$
m3$="Scalierfaktor "+Format$(Str$(s#),"Standard")
m6$="vor der Bemaßung bitte einstellen"
m4$="Bemaßungsfaktor "+Format$(Str$(e#),"Standard")+" einstellen"
' Scalierung einstellen
' Varablen für Scalierungsbefehl
s1# = FIX(s#) ' Nachkommastellen abschneiden
s2# = s# - s1# ' Nachkommastellen berechnen
Select case s2 ' Nachkommastellen mit PUNKT in alphanumerische Variable schreiben
case 0.0
m7$ = ".0"
case 0.1
m7$ = ".1"
case 0.2
m7$ = ".2"
case 0.3
m7$ = ".3"
case 0.4
m7$ = ".4"
case 0.5
m7$ = ".5"
case 0.6
m7$ = ".6"
case 0.7
m7$ = ".7"
case 0.8
m7$ = ".8"
case 0.9
m7$ = ".9"
End Select
' m5$="AS="+Format$(Str$(s#),"00.00") ' funktioniert nicht, Punkt wird trotzdem als Komma gesetzt
m5$="AS="+Str$(s1#)+m7$
MbeSendCommand m5$ ' Skalierfaktor setzen
MbeMessageBox (m1$+crlf+m2$+crlf+m3$+crlf+m4$)
' Befehl starten
MbeSendCommand "MDL KEYIN DIMSET DIALOG DIMSETTINGS OPEN"
' Eine mit einem Dialogfeld verbundenen Variable einstellen
MbeSetAppVariable "DIMSET", "tcb->ad4.dimension_scale", e#
Ende:
End Sub
------------------
Tschüss
Reinhard
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP