---

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