Hallo User,
es gibt viele Umsteiger von ACAD, oder anderen Programmen. Wenn man von ACAD kommt, ist man erst mal geschockt: „Was nur 63 Layer? So wenig?“ Aber es geht auch mit nur 63 Layern. Und damit man sich nicht die einzelnen Layer merken muß: „Wie war das Apparate Mittellinie, Layer 11 oder 12?? Strichstärke 0 oder 1? Farbe?? Ach verflixt, wo habe ich denn schon wieder die Liste gelassen!“
Erinnert Ihr Euch an dies Zeilen für das Barmenue aus Teil 2:
Projekt-Level
{
Apparate
{
Mitte, "macro Proj-app /B11"
Körperkante, "macro Proj-app /B12"
Verdeckt, "macro Proj-app /B13"
Schraffur, "macro Proj-app /B14"
dünne Volllinie, "macro Proj-app /B15"
}
}
Apparate und Mitte sind die Popup-Zeilen
"Proj-app" ist das Basic Macro, „/B11“ ist der einzustellende Level und die Einstellungen der Farbe, Strichart und Strichstärke erfolgt durch das Macro
Ich zeige Euch jetzt das Makro Proj-app.bas für Projekt-Apparate:
( Ihr könnt natürlich Projekt durch den Kundennamen ersetzen )
Folgendes Macro unter "Proj-app.bas" abspeichern
' ----------------------------------------------------------
' Projekt Apparate
Sub main
CMD$ = Command$
If (InStr(CMD, "/B11")) <> 0 Then
MbeSendCommand "ACTIVE COLOR 3" ' Farbe einstellen
MbeSendCommand "ACTIVE LEVEL 11" ' Level einstellen
MbeSendCommand "ACTIVE STYLE 4" ' Mittellinie einstellen
MbeSendCommand "ACTIVE WEIGHT 0" ' Strichbreite einstellen
MbeWriteStatus "Apparate - Mitten"
GoTo Weiter1
End If
If (InStr(CMD, "/B12")) <> 0 Then
MbeSendCommand "ACTIVE COLOR 0"
MbeSendCommand "ACTIVE LEVEL 12"
MbeSendCommand "ACTIVE STYLE 0" ' Volllinie einstellen
MbeSendCommand "ACTIVE WEIGHT 2"
MbeWriteStatus "Apparate-Körperkanten"
GoTo Weiter1
End If
If (InStr(CMD, "/B13")) <> 0 Then
MbeSendCommand "ACTIVE COLOR 2"
MbeSendCommand "ACTIVE LEVEL 13"
MbeSendCommand "ACTIVE STYLE 3" ' gestrichelte Linie einstellen
MbeSendCommand "ACTIVE WEIGHT 0"
MbeWriteStatus "Apparate - Unsichtbare"
GoTo Weiter1
End If
If (InStr(CMD, "/B14")) <> 0 Then
MbeSendCommand "ACTIVE COLOR 0"
MbeSendCommand "ACTIVE LEVEL 14"
MbeSendCommand "ACTIVE STYLE 0" ' Volllinie einstellen
MbeSendCommand "ACTIVE WEIGHT 0"
MbeWriteStatus "Apparate - Schraffur"
GoTo Weiter1
End If
If (InStr(CMD, "/B15")) <> 0 Then
MbeSendCommand "ACTIVE COLOR 4"
MbeSendCommand "ACTIVE LEVEL 15"
MbeSendCommand "ACTIVE STYLE 0" ' Volllinie einstellen
MbeSendCommand "ACTIVE WEIGHT 0"
MbeWriteStatus "Apparate - Dünne Volllinie"
GoTo Weiter1
End If
Weiter1:
End Sub
' =========================================
Während der Bearbeitung einer Zeichnung, werden viele Informationen eingeblendet. Mit dem nächsten Macro kann man dann abfragen was eingestellt ist:
erst die Zeile für's Barmenue
LayerInfo, "macro proj-level-info.bas"
dann das folgend Macro unter "macro proj-level-info.bas" abspeichern
'----------------------------------------------------------------
'Information zur eingestellten Ebene
' letzte Revision 02.07.01
' rwcaddy
'----------------------------------------------------------------
Sub main
level = MbeSettings.level
Select Case level
case 11
MbeWriteStatus "Apparate-Mitte"
case 12
MbeWriteStatus "Apparate-Körperkante"
case 13
MbeWriteStatus "Apparate-Verdeckt"
case 14
MbeWriteStatus "Apparate-Schraffur"
case 15
MbeWriteStatus "Apparate-dünne Volllinie"
End Select
Ende:
End Sub
' =========================================
------------------
Reinhard
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP