Hallo,
ich taste mich in die Welt der macro's hinein und kommen an einer Stelle nicht weiter:
Bisher:
>SetStartPoint
{
}
>LayerOptions2
{
'geplant: Layer für Hilflinien unsichtbar und
' Layer 1 aktuell
}
>FitToWindow
{
}
>SaveBMP
{
<PointXYZ 0.000000000000000e+000,0.000000000000000e+000,0.000000000000000e+000
<PointXYZ 5.880537106997704e+001,-5.055514357873678e+001,0.000000000000000e+000
'Handeingabe des Dateinamens
}
>LayerOptions2
{
' geplant: Layer für Hilfslinien sichtbar und aktuell
}
Erklärung: Im screen wurden unter Zuhilfenahme von Hilflinien etwas konstruiert. Dann soll der Bildinhalt ohne Hilfslinien gespeichert werden. Der Datei- Name wird händisch eingegeben. -> Funktioniert soweit.
Die "LayerOption2" verlangt aber eine Handeingabe, die ich gern umgehen würde. Es ist immer die selbe und "nervt" bei hunderten Eingaben (bei einer Animation). Unter "Basic for CAD" fand ich nichts Passendes.
Gibt es vielleicht doch etwas ?
Gruß und Danke
DC V 25.2 R: 27.09.2018
Layer per Macro sichtbar/unsichtbar machen
Re: Layer per Macro sichtbar/unsichtbar machen
Hallo,
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.
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.
Beste Grüße,
DcUser
Nur, wenn noch nicht geschehen: Bitte immer die verwendete(n) Version(en) mit angeben. Je mehr Informationen zur Verfügung stehen, desto besser kann man helfen - vielen Dank.
DcUser
Nur, wenn noch nicht geschehen: Bitte immer die verwendete(n) Version(en) mit angeben. Je mehr Informationen zur Verfügung stehen, desto besser kann man helfen - vielen Dank.