für den Layer gibt es in der BasicCAD/Makrosprache einen eigenen Befehl.
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
LAYER(expression1) = expression2
Setzen bei V25 und höher / Abfrage bei V25
0 – Invisible and not editable
2 – Visible but not editable
6 – Visible and editable
14 – Set as current layer (the current layer is always visible and editable)
Geändert ab V26 - Abfrage
1 – Invisible and not editable
3 – Visible but not editable
7 – Visible and editable
15 – Current layer
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Das Makro/BasicCAD-Programm (fett ist nur Kommentar):
'//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'Setzt den Layer 1 als aktuell, denn der aktuelle Layer kann nicht auf unsichtbar gesetzt werden
Layer(1) = 14
'Layer 20 ist jetzt ein Beispiellayer
if (Layer(20) <> 0) and (Layer(20) <> 1) then
Layer(20) = 0
else
Layer(20) = 6
end if
REGEN
Stop
'//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Makro als Textdatei mit der Endung D3M oder BSC speichern.Statistik: Verfasst von DcUser — Freitag 4. September 2020, 09:38
]]>