Scgraffuren

[Seppel]

Guten Tag!
Ich arbeite mit DesignCAD 2D 2018 64-bit mit WIN 7
Schraffuren. Wo finde ich die mDateien dazu.
Ich möchte einen Tei, der für mich überflüssigen Schraffurenl löschen.

MfG. Seppel

[DcUser]

Eine Möglichkeit der Reduzierung ist mir nicht bekannt. Früher ging das mal über die Datei DcHatch.sys. Aber das habe ich ausprobiert, das System arbeitet nun anscheinend anders. Vielleicht kann man die Überlegung umkehren und es mit einem Makro lösen. Wie viele Schraffuren werden benötigt?

[Seppel]

Hallo und danke für Dein "Kümmern" um mein kleines Problem. Ich habe früher jahrelang mit WSketch gearbeitet, da konnte man ganz einfach Dateien löschen.

Ich brauche höchstens 10 Schraffuren. DesignCad kann ja weit mehr als der normale Benutzer brauch.

MfG. Seppel

[DcUser]

Vielleicht wäre das eine Erleichterung.

10 Makros/Dateien mit der Erweiterung .d3m für die einzelnen Schraffuren anlegen. Entweder mit einem Text-Editor (z.B. Windows Notepad) - wichtig, es muss ein reiner Text-Editor sein - oder, jedes Makro mit dem Befehl Makro aufzeichnen (Menü Tools) aufzeichnen und mit einem Text-Editor nachbearbeiten.

Makro nach dem Aufzeichnen/vor der Bearbeitung:

>SetStartPoint
{
}
>HatchFill
{
<Color 0,0,0
<Layer 1
<PointXYZ 3.764081556922641e+000,-5.560575351564907e-001,0.000000000000000e+000
<SelectOnly 1
<UseScreenArea 1
<Aperture 0.000000000000000e+000
<Scale 1.000000000000000e+000
<Angle 0.000000000000000e+000
<Type 1
<Name "ANSI31"
}

Nach der Bearbeitung:

>HatchFill
{
<Scale 1.000000000000000e+000
<Angle 0.000000000000000e+000
<Name "ANSI31"
}


Danach in den DesignCAD-Optionen eine neue Toolbox anlegen und die Makros auf Schaltflächen (Buttons) zuordnen.

Anmerkung: Wie gesagt, ist nur ein Vorschlag. Kann natürlich auch sein, dass man der Meinung ist, dieser Weg ist zu umständlich.
Jeder hat da einen anderen Geschmack. Man kann das ganze auch in einem Makro realisieren, wie z.B.:

wert = 0

Input "Welche Schraffur?" wert

if wert = 0 then Goto Ende

>HatchFill
{
<Scale 1.000000000000000e+000
<Angle 0.000000000000000e+000
if wert = 1 then <Name "ANSI31"
if wert = 2 then <Name "ANSI32"
if wert = 3 then <Name "ANSI33"
}

Ende:
Stop