Layer per Macro sichtbar/unsichtbar machen

Alle Fragen, die Sie zu DesignCAD, DC Toolkit und FileLinker haben.
Antworten
Luv
Beiträge: 29
Registriert: Sonntag 5. Juli 2020, 08:14

Layer per Macro sichtbar/unsichtbar machen

Beitrag von Luv »

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
DcUser
Beiträge: 724
Registriert: Mittwoch 4. Juli 2018, 12:36

Re: Layer per Macro sichtbar/unsichtbar machen

Beitrag von DcUser »

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.
Antworten