#
# Änderungskonstruktion eines Teiles mit Folien und Formelementen.
#
#--------------------------------------------------------------------------------------------------------
#$ TITEL "Änderungskonstruktion eines Teiles mit Folien und Formelementen";
#
#$ MELDUNG "
#-@f@ ACHTUNG !!!
#-Bei Tutorialbeginn wird die aktuelle Konstruktion gelöscht!@n@
#-
#-Soll Ihre aktuelle Konstruktion erhalten bleiben, dann muß diese @f@jetzt@n@ vor Tutorial-
#-beginn gespeichert werden! (Siehe nachfolgend Speichern der aktuellen Konstruktion!)
#-Wenn dieses @f@nicht@n@ der Fall ist, dann kann das Tutorial durch Anklicken des
#-Feldes @f@ Bestätigen @n@ fortgesetzt werden.
#-
#-
#-@f@Wird das Tutorial während des Ablaufes beendet@n@ bleibt die Konstruktion, welche bis
#-zu diesem Zeitpunkt erzeugt wurde, erhalten. Es erfolgt eine Abfrage, ob SISCAD-P
#-die Konstruktion löschen soll.
#-
#-
#-@f@Speichern der aktuellen Konstruktion:@n@
#-!
#-!     Das Tutorial muß dafür nicht beendet werden. Öffnen Sie die Zeichnungsverwaltung
#-!     durch anklicken des Symboles
#-!     @I<CTKatal>@
#-!     und wählen Sie @f@ selektieren nach ...    Konstruktionen @n@ an.
#-!     Wählen Sie eine eventuell vorhandene Bibliothek an, oder speichern Sie sofort
#-!     die aktuelle Konstruktion, indem Sie @f@ speichern @n@ anklicken. Es wird ein
#-!     Fenster mit der Überschrift:@f@ speichern @n@ angezeigt. Klicken Sie in das rechte
#-!     Feld unter @f@ Name der Konstruktion @n@ und geben den Dateinamen ein.
#-!     Für die Befehlsausführung klicken Sie auf das Symbol
#-!     @I<COk>@
#-!     Wurde eine Konstruktion unter dem angegebenen Namen in diesem Verzeichnis
#-!     schon einmal gespeichert erfolgt eine Abfrage, ob die vorhandene Datei über-
#-!     schrieben werden soll. Wird dieses nicht beabsichtigt, dann klicken Sie auf @f@Nein@n@,
#-!     wiederholen den Speichervorgang und speichern die Konstruktion unter neuen
#-!     Namen ab. Schließen Sie die Zeichnungsverwaltung. durch anklicken des Symboles
#-!     @I<GTKatal>
#-!
#-";
#
#$ INFO "
#-Die aktuelle Konstruktion wird gelöscht.
#-
#-Das Tutorial Änderungskonstruktion eines Teiles mit Folien und Formelementen 
#-wird von SISCAD-P eingelesen. Bitte etwas Geduld!
#-";
#$ LOESCHE KONSTRUKTION ;
#$ MELDUNG "
#-@k@
#-i                @x@       Änderungskonstruktion eines nichtparametrischen Teiles @k@
#-i                             @x@               mit Folien und Formelementen. @k@
#-i
#-i     Mit dieser CAD-Demo soll gezeigt werden, wie die Änderungskonstruktion eines
#-i     nichtparametrischen Teiles mit Folien und Formelementen vorgenommen wird.
#-i
#-i     Die Konstruktion des Teiles Schlittenplatte kann für die Konstruktion der
#-i     Flanschplatte verwendet werden.
#-i     Die Änderungskonstruktion besteht darin, daß die Plattenstärke 15mm beträgt
#-i     und vier Gewindebohrungen M6x10 (mit Längenabstand 46mm plus/minus 0,1 und
#-i     der Breitenabstand 16mm plus/minus 0,1) erzeugt werden. Die zusätzlichen
#-i     Gewindebohrungen erfordern die Darstellung der Seitenansicht von rechts.
#-i     In der Seitenansicht soll das Gewinde M6x10 im Schnitt dargestellt werden.
#-i@x@
#-i
#-i                                      ACHTUNG Hinweis !!!
#-i
#-i@k@     Im Ablauf des Tutorials werden alle Arbeitsschritte automatisch aus-@x@
#-i@k@     geführt. Ein Eingriff in den Tutorialablauf, z.B. einen Plaziervorgang@x@
#-i@k@     selbsttätig ausführen, bewirkt, daß der Tutorialablauf von @x@
#-i@k@     SISCAD-P nicht mehr Ordnungsgemäß ausgeführt werden kann!@x@
#-i@k@     Deshalb:@x@
#-i    Bitte führen Sie nur die Arbeitsschritte aus, zu denen Sie aufgefordert
#-i    werden!
#-i@k@     Werden dennoch eigene Anwendungen während des Tutorialablaufes vor-@x@
#-i@k@     genommen, kann das Tutorial nicht mehr ausgeführt werden (SISCAD-P bringt@x@
#-i@k@     Fehlermeldung!). Das Tutorial muß dann gestoppt und neu geladen werden!@x@
#-i@x@
#-i@k@     Die Aufforderungstexte sind in @n@ 'normalen Text' @k@ und mit einem @x@
#-i@k@     Ausrufezeichen @n@ '!' @k@ beginnend, gekennzeichnet.@x@
#-i
#-i@k@     Generell wird jede Information, über die Ausführung des Arbeits-@x@
#-i@k@     schrittes oder über SISCAD-P Themen wie die Parametrik, in@x@
#-i@k@     'kursiver Schriftart'  und mit einem  'i'  beginnend, gekennzeichnet.@x@
#-i
#-";
#
#$ INFO "
#-Das Teil Schlittenplatte wird geladen.
#-";
#
LADE TEIL DATEI="/usr/siscadp/red/tutorial/schlittenplatte.red"!
#
#$ WARTE 5 ;
#
#$ MELDUNG "
#-!
#-!     Die Schlittenplatte wird in der Gesamtansicht angezeigt.
#-!     Es besteht die Möglichkeit, daß durch Ihre Anordnung des geöffneten 
#-!     Tutorial-Fensters ein Teil der Gesamtansicht verdeckt ist.
#-!     Mit Hilfe der Funktionen im Grafik-fenster ( Fensterschieben, Dynamischer
#-!     Zoom ) können Sie die Gesamtansicht in den sichtbaren Bereich des Grafik -
#-!     Fensters verschieben!
#-!
#-";
#
#$ MELDUNG "
#-@k@
#-i
#-i     Die Änderungen am Teil Schlittenplatte, für das Teil Flanschplatte, werden
#-i     vorgenommen.
#-i
#-i     Das Teil Schlittenplatte wurde mit Parametrikbemaßung (gelbe Darstellung),
#-i     aber ohne parametrische Eigenschaften konstruiert. Das bedeutet, daß bei
#-i     einer Maßänderung z.B. der Plattendicke nicht die gewünschte Änderung der
#-i     Darstellung erfolgen kann, weil beispielsweise die Eigenschaften für Lot
#-i     und Paralellität fehlen.
#-i     Es kann daher nur eine Änderung der Geometrie z.B. mit SCHIEBE BEREICH vor-
#-i     genommen werden. Dafür müssen vorher die nötigen Parametrikmaße gelöscht
#-i     werden.
#-i
#-i     Informationen über Bemaßung siehe Dokumentation Tutorial.
#-i    
#-@n@
#-Die Längenmasse für Plattendicke, Senkungstiefe und Abstandsmaß von Körperkante 
#-zum Gewinde M4 in der Draufsicht werden gelöscht.
#-";
LOESCHE LAENGENMASS OP=[LAENGENMASS]7;!
#$ WARTE 5 ;
LOESCHE LAENGENMASS OP=[LAENGENMASS]6;!
#$ WARTE 5 ;
LOESCHE LAENGENMASS OP=[LAENGENMASS]13;!
#$ WARTE 5 ;
#
#$ INFO "
#-Die Plattendicke wird mit SCHIEBE BEREICH auf 15mm verändert.
#-";
SCHIEBE BEREICH DY PI=-5.6,2.3;68.2,-13.4;DY=-5;!
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 2 ;
#
#$ MELDUNG "
#-Die Formelemente müssen wegen der neuen Plattendicke variiert werden.
#-Dieses wird durch die Sachmerkmalleiste (SML) des Teiles vorgenommen.
#-@k@
#-i
#-i      @x@WICHTIGER HINWEIS FÜR DEN WEITEREN TUTORIALABLAUF!@k@
#-i
#-i     Der Ablauf des Tutorials erfolgt automatisch. Der CAD-Befehl wird in der
#-i     Befehlszeile des Tutorials angezeigt.
#-i     Deshalb wird der Arbeitsablauf als Information, beginnend mit 'i' und in
#-i     und in @x@'kursiver'@k@ Schriftart dokumentiert.
#-i     Der einzelne Ablaufschritt im Tutorial wird in @f@'normaler'@k@ Schrift-
#-i     art dargestellt.@x@
#-i     Bitte führen Sie nur die Anweisungen aus, zu denen Sie aufgefordert werden,
#-i     damit das Tutorial ordnungsgemäß abläuft.@k@
#-i     Anweisungen beginnen mit '!' und werden in @f@'normaler'@k@ Schriftart dar-
#-i     gestellt. Die Anweisungen sollen die einzelnen Arbeitsschritte verdeutlichen
#-i     und gleichzeitig eine Anwendungsübung sein.
#-i     Werden dennoch eigene Anwendungen während des Tutorialablaufes vorgenommen,
#-i     kann das Tutorial nicht mehr ausgeführt werden (SISCAD-P bringt Fehlermeldung!).
#-i     Das Tutorial muß dann gestoppt und neu geladen werden!
#-i
#-";
#
#$ MELDUNG "
#-@k@
#-i
#-i     Im normalen SISCAD-P Arbeitsablauf wird für die Formelementvariation die
#-i     Sachmerkmalleiste des Teiles geöffnet:
#-i
#-i     Dazu wird das Symbol Sachmerkmal-Leiste im Hauptmenü angeklickt.
#-i     @I<CVtb>@
#-i     Nach dem Öffnen der Sachmerkmalleiste werden die möglichen Aktionen auf-
#-i     gelistet
#-i
#-
#-@n@
#-!
#-!     Öffnen Sie die Sachmerkmal-Leiste, durch drücken des Symboles
#-!     @I<CVtb>@
#-!     im Hauptmenü.
#-!
#-!     Passen Sie die Fenstergröße für die Sachmerkmal-Leiste den Gegebenheiten an!
#-!
#-!     Im Grafik-Fenster 0 schalten Sie die Funktion Gesamtansicht ein!
#-!
#-";
#
#$ MELDUNG "
#-@k@
#-i
#-i     Durch Anklicken der Funktion @x@ Formelement @k@, kann zwischen der Anzeige der  
#-i     der aktiven Teile-Sachmerkmalleiste und der Anzeige von Sachmerkmalleisten
#-i     plazierter Formelemente wechselseitig geschaltet werden.
#-i
#-i     Wird die Funktion @x@ Formelement @k@ aktiviert (Symbol wird grün hinterlegt),
#-i     erscheint ein Bedienungsfenster (Titel: Formelement).
#-i     Nun können Formelemente innerhalb des aktiven Teiles identifiziert und/oder mit
#-i     eingeschalteten Pickradius angezeigt werden. 
#-i
#-@n@
#-!
#-!     Aktivieren Sie die Funktion @f@ Formelement @n@ und zeigen Sie die Formelemente
#-!     des aktiven Teiles an (eingeschalteter Pickradius bringt das Formelement in
#-!     roter Darstellung).
#-!     Das angezeigte Bedienfenster Formelement kann in seiner Plazierung störend
#-!     wirken und wird nach Bedarf verschoben.
#-!
#-";
#
#$ MELDUNG "
#-@k@
#-i
#-i     Der normale Ablauf in SISCAD-P Formelement-Varianten zu manipulieren:
#-i
#-i     Wird ein Formelement identifiziert, erscheint seine Sachmerkmalleiste. Nun kann
#-i     mit der Funktion @x@ Variante manipulieren @k@ eine Formelementvariante gewählt
#-i     und ausgeführt werden.
#-i
#-i     Als Anwendungsübung soll das Manipulieren einer Variante durch das Abgreifen
#-i     eines Parameterwertes aus der Konstruktion verdeutlicht werden. Als Hilfestellung
#-i     wurde in diesem Tutorial die Gerade, deren Länge abgegriffen werden soll, mit
#-i     einem roten Pfeil markiert.
#-i     Der Pfeil liegt auf der Folie TUTORIAL.
#-i
#-@n@
#-!
#-!     Schließen Sie die Sachmerkmalleiste durch drücken des Symboles
#-!     @I<CClose>@
#-!
#-";
#
#$ MELDUNG "
#-!     Öffnen Sie die Folien-Info durch anklicken des Symboles
#-!     @I<CTFolie>@
#-!     im Hauptmenü und blenden Sie die Folie TUTORIAL ein!
#-!
#-!     Sollten die Folien-Fenster störend wirken, werden diese mit der Maus
#-!     verschoben.
#-!
#-!     Danach schließen Sie die Folien-Info durch drücken des Schloß-Symboles.
#-!     @I<CClose>@
#-!
#-!     Öffnen Sie die Sachmerkmal-Leiste, durch drücken des Symboles
#-!     @I<CVtb>@
#-!     im Hauptmenü.
#-!
#-";
#
#$ MELDUNG "
#-!     Die Funktion @f@ Formelement @n@ ist noch aktiviert. Erzeugen Sie einen 
#-!     Ausschnittt, dessen Inhalt die Draufsicht der Konstruktion ist. 
#-!
#-!     Identifizieren Sie das Formelement Innen-Regelgewinde in der Draufsicht und
#-!     wählen  Sie aus der Variantentabelle der Formelementsachmerkmalleiste eine
#-!     Variante aus!
#-!
#-@k@
#-i     Es bestehen zwei Möglichkeiten die Variante auszuwählen:
#-i
#-i
#-i     Für beide Variantenauswahlarten gilt:
#-i     Besteht die Parametereingabe einer Variante aus einer Bereichsangabe (z.B. [0;[ )
#-i     dann muß ein Wert angegeben oder in der Konstruktion abgegriffen werden, bevor
#-i     die Variante ausgeführt wird.
#-i
#-i     1) Die Variantenspalte in der Variantentabelle wird angeklickt und durch
#-i        drücken des Symboles
#-i        @I<COk>@
#-i       im Fenster @x@ manipulieren @k@ aktiviert.
#-i
#-i     2) Die Funktion @x@Variante@k@ durch anklicken aktivieren und @x@manipulieren@k@
#-i        auswählen. Es erscheint ein Fenster mit dem Titel @x@manipulieren@k@ und ein
#-i        Editierfenster für erforderliche Parameterwertangaben.
#-i        Im Fenster @x@ manipulieren @k@ wird durch schieben des Reglers die Varianten-
#-i        nummer angegeben und durch drücken des Symboles
#-i        @I<COk>@
#-i        im Fenster @x@ manipulieren @k@ aktiviert.
#-i
#-@n@
#-!
#-!     Nach der Variantenwahl erscheint ein Edidtierfenster für die Parameterwerteingabe.
#-!     Die Fenstergröße müssen unter Umständen den Gegebenheiten angepaßt werden.
#-!
#-!     Der Parameterwert für Gewindelänge besteht aus der Bereichsangabe [0;[ und soll
#-!     aus der Konstruktion abgegriffen werden.
#-!     Die Gewindelänge des Formelementes muß der geänderten Plattendicke angepasst
#-!     werden. Die markierte Gerade in der Draufsicht besitzt die neuen Abmaße der
#-!     Plattendicke.    
#-!
#-!     Identifizieren Sie die markierte Gerade und wählen Sie aus dem Anzeigefenster die
#-!     Funktion @f@ Laenge @n@ durch anklicken aus.
#-!     Das Abmaß der Plattendicke wird im angezeigten Editierfenster für den Parameter
#-!     L Gewindelänge eingetragen.
#-!
#-!     Im normalen Ablauf einer Formelementvariation wären die Voraussetzungen dafür
#-!     abgeschlossen.@f@
#-!     Führen Sie die Formelementvariation nicht aus !!!, der weitere Ablauf des
#-!     Tutorials wäre nicht mehr Ordnungsgemäß!!!@n@
#-!     Schließen Sie die Sachmerkmalleiste durch drücken des Schloß-Symboles!
#-!     @I<CClose>@
#-!
#-";
#
#$ MELDUNG "
#-@n@
#-!     Öffnen Sie die Folien-Info durch drücken des Symboles
#-!     @I<CTFolie>@
#-!     und blenden Sie die Folie TUTORIAL aus!
#-!     Danach schließen Sie die Folien-Info durch drücken des Schloß-Symboles.
#-!     @I<CClose>@
#-!
#-";
#
#$ INFO "
#-Die Gesamtansicht der Konstruktion wird dargestellt.
#-";
#
#$ ZOOM GANZ ;
#
#$ WARTE 5 ;
#
#$ MELDUNG "
#-!
#-!    Es besteht die Möglichkeit, daß durch Ihre Anordnung der geöffneten Fenster
#-!    ( Tutorial ) die Gesamtansicht der Konstruktion
#-!    verdeckt ist. Mit Hilfe der Funktionen im Grafik-Fenster ( Fensterschieben,
#-!    Dynamischer Zoom ) können Sie die Gesamtansicht der Konstruktion in den
#-!    sichtbaren Bereich des Grafik-Fensters verschieben!
#-!
#-";
#
#$ WARTE 2 ;
#
#$ INFO "
#-Im weiteren Tutorialablauf werden die Formelemente für die Bohrung und das Innen-
#-gewinde in der Draufsicht für die neue Plattendicke variiert.
#-";
AENDERE FORMELEMENT SML OP=3;VARIANTENINDEX=1;PARINDEX=1;BELEGUNG=15!
#
#$ WARTE 5 ;
#
AENDERE FORMELEMENT SML OP=4;VARIANTENINDEX=4;PARINDEX=1;BELEGUNG=15!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Gewinde M4 sollen wieder mittig der Plattendicke sein. Die Gewinde werden
#-mit SCHIEBE BEREICH um -2,5mm verschoben.
#-";
#
SCHIEBE BEREICH DY PI=5.3,7.5;55.3,0.7;DY=-2.5;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ INFO "
#-Durch die Änderung der Plattendicke liegt der Nullpunkt des Teiles nicht mehr
#-auf den linken unteren Platteneckpunkt der Draufsicht.
#-Deshalb wird die gesamte Geometrie der Draufsicht mit SCHIEBE BEREICH auf den
#-Teile-Nullpunkt verschoben.
#-";
#
SCHIEBE BEREICH DY PI=-13.2,27.7;82.5,-18.8;DY=5;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ INFO "
#-Die parametrischen Längenmasse für Plattendicke, Senkungstiefe und Abstandsmaß
#-von Körperkante zum Gewinde M4 in der Draufsicht werden erzeugt.
#-Dafür wird die Parametrik-Bemaßung eingeschaltet.
#-Das Symbol Freiheitsgrade (Hauptmenü) erscheint mit gelben Massbild.
#-@I<CTFrPar>@
#-";
AENDERE VOREINSTELLG BEM PARAMETRIK=1!
#
#$ WARTE 5 ;
#
ERZEUGE LAENGENMASS SR BE1=[GERADE]3(5.1,14.3;0);BE2=[GERADE]16(12.5,7.3;0);PML=-3,8.2;KK=[GERADE]4;!
#
#$ WARTE 5 ;
#
ERZEUGE LAENGENMASS SR BE1=[GERADE]3(54.2,15.6;0);BE2=[GERADE]46(47.4,13;0);PML=63.5,19;KK=[GERADE]2;!
#
#$ WARTE 5 ;
#
ERZEUGE LAENGENMASS SR BE1=[GERADE]3(55.4,16.1;0);BE2=[GERADE]1(57.1,-1.6;0);PML=73.4,13;KK=[GERADE]2;!
#
#$ WARTE 5 ;
#
#$ MELDUNG "
#-Für die Schnittdarstellung der Gewindebohrungen in der Flanschplatte muß die Dar-
#-stellung der Seitenansicht von rechts konstruiert werden.
#- 
#-Die Ansichtsfolie für Seitenansicht rechts (SAR) wird erzeugt und aktiviert.
#-
#-!
#-!    Öffnen Sie die Folien-Info
#-!    @I<CTFolie>@
#-!    um das Arbeiten mit den Folien zu verfolgen.
#-!
#-!    Sollten die Folien-Fenster störend wirken, werden diese mit der Maus
#-!    verschoben.
#-!
#-";
#
ERZEUGE FOLIE NA=SAR;!
#
#$ WARTE 5 ;
#
AKTIVIERE FOLIE OP=SAR;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Fläche (Rechteck) und die Fasen-Gerade der Seitenansicht wird unter Einsatz
#-vom Intelligenten Fangmodus erzeugt. Ebenso die Mittellinie.
#-
#-Einschalten des Intelligenten Fangmodus durch anklicken des Symboles.
#-@I<GTFang>@
#-";
SCHALTE REGEL EIN 11!
#
#$ WARTE 5 ;
#
ERZEUGE FLAECHE LB P=-63.1,50([PUNKT]99);L=15;B=30;!
#
#$ WARTE 5 ;
#
ERZEUGE GERADE PP -48.1,75([PUNKT]4,[GERADE]85);-63.1,75([GERADE]87);!
#
#$ WARTE 5 ;
#
ERZEUGE GERADE PP -48.1,65([GERADE]33,[GERADE]85);-63.1,65([GERADE]87);LT=4;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Systemfolien werden aktiviert.
#-";
AENDERE VOREINSTELLG FOLIE GEOMETRIE=GEOFOLIE;TEXT=TEXTFOLIE;REFERENZBEM=REFERENZBEMFOLIE;PARAMETRIKBEM=PARAMETRIKBEMFOLIE;SCHRAFFUR=SCHRAFFURFOLIE;POSNUMMERN=POSNRFOLIE;BEARBEITUNG=BEARBEITUNGFOLIE;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Ausschalten des Intelligenten Fangmodus durch anklicken des Symboles.
#-@I<GTFang>@
#-";
SCHALTE REGEL AUS 11!
#
#$ WARTE 5 ;
#
#$ MELDUNG "
#-Die Formelemente d13t1-ird (Innen-Regelgewinde Draufsicht) und d13t1-gr (Innen-
#-Regelgewindesackloch) werden aus der Formelementbibliothek dinlike - dregel-
#-gewinde ausgewählt und plaziert.
#- Die Plazierangaben erfolgen durch Koordinateneingabe oder mit Intelligenten
#-Fangmodus.
#-
#-Das Formelement d13t1-ird (Innen-Regelgewinde Draufsicht) wird in die Vorder-
#-ansicht 3 mal plaziert.
#-";
PLAZIERE TEIL UNTEN P=0,0;DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.fel";WI=0;STL=0;!
#$ WARTE 3 ;
AENDERE TEIL SML OP=4;VARIANTENINDEX=3!
#$ WARTE 3 ;
AENDERE TEIL PARAMETER OP=4;P=KADD(0,0;7,57;SKMULT(-1;0,0));ALLE=1!
OP=4;WI=0!
OP=4;WI=0!
FEL OP=4!
#INTERPRETIERE DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.his"!
#WENN ((WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))>135)*(WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))<=315))
AENDERE TEXT E VERKTX("FT_";TXZ(IDERZOBJ;0));TWI=0!
#SONST
#- Ende des Makros "/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.his"
#
#$ WARTE 3 ;
#
PLAZIERE TEIL UNTEN P=0,0;DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.fel";WI=0;STL=0;!
#$ WARTE 3 ;
AENDERE TEIL SML OP=4;VARIANTENINDEX=3!
#$ WARTE 3 ;
AENDERE TEIL PARAMETER OP=4;P=KADD(0,0;7,73;SKMULT(-1;0,0));ALLE=1!
OP=4;WI=0!
OP=4;WI=0!
FEL OP=4!
#INTERPRETIERE DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.his"!
#WENN ((WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))>135)*(WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))<=315))
AENDERE TEXT E VERKTX("FT_";TXZ(IDERZOBJ;0));TWI=0!
#SONST
#- Ende des Makros "/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.his"
#$ WARTE 3 ;
PLAZIERE TEIL UNTEN P=0,0;DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.fel";WI=0;STL=0;!
#$ WARTE 3 ;
AENDERE TEIL SML OP=4;VARIANTENINDEX=3!
#$ WARTE 3 ;
AENDERE TEIL PARAMETER OP=4;P=KADD(0,0;53,57;SKMULT(-1;0,0));ALLE=1!
OP=4;WI=0!
OP=4;WI=0!
FEL OP=4!
#INTERPRETIERE DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.his"!
#WENN ((WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))>135)*(WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))<=315))
AENDERE TEXT E VERKTX("FT_";TXZ(IDERZOBJ;0));TWI=0!
#SONST
#- Ende des Makros "/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-ird.his"
#
#$ INFO "
#-Das Formelement d13t1-gr (Innen-Regelgewindesackloch) wird in die Seitenansicht
#-plaziert.
#-";
PLAZIERE TEIL UNTEN P=0,0;DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-gr.fel";WI=0;STL=0;!
#$ WARTE 3 ;
AENDERE TEIL SML OP=4;VARIANTENINDEX=3;PARINDEX=2;BELEGUNG=10;PARINDEX=3;BELEGUNG=12!
#
#$ INFO "
#-Der Plazierpunkt für das Formelement erfolgt durch Punktangabe mit dem
#-Intelligenten Fangmodus.
#-
#-Der Intelligente Fangmodus wird eingeschaltet, durch drücken des Symboles
#-@I<GTFang>@.
#-";
#
SCHALTE REGEL EIN 11!
#
#$ WARTE 3 ;
#
AENDERE TEIL PARAMETER OP=4;P=KADD(0,0;-63.1,57;SKMULT(-1;0,0));ALLE=1!
#
#$ WARTE 3 ;
#
OP=4;WI=90!
OP=4;WI=90!
FEL OP=4!
#INTERPRETIERE DATEI="/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-gr.his"!
#WENN ((WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))>135)*(WOGX(VERKTX("FML_";TXZ(IDERZOBJ;0)))<=315))
#SONST
AENDERE TEXT E VERKTX("FT_";TXZ(IDERZOBJ;0));TWI=0;RECHTS=0!
#- Ende des Makros "/usr/siscadp/fel//maschinenbau/dinlike/dregelgewinde/d13t1-gr.his"
#
#$ INFO "
#-Der Intelligente Fangmodus wird ausgeschaltet, durch drücken des Symboles
#-@I<GTFang>@
#-";
#
SCHALTE REGEL AUS 11!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Das Formelement Innen-Regelgewindesackloch in der Seitenansicht wird kopiert.
#-";
KOPIERE FORMELEMENT PP OP=[FORMELEMENT]12;P1=133;P2=142;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Geometrie des kopierten Formelementes wird in die unsichtbare Darstellung
#-geändert.
#-";
#
AENDERE GERADE OP=[GERADE]117;LT=2;!
#
#$ WARTE 5 ;
#
AENDERE GERADE OP=[GERADE]110;LT=2;!
#
#$ WARTE 5 ;
#
AENDERE GERADE OP=[GERADE]119;LT=2;!
#
#$ WARTE 5 ;
#
AENDERE GERADE OP=[GERADE]112;LT=2;!
#
#$ WARTE 5 ;
#
AENDERE GERADE OP=[GERADE]118;LT=2;!
#
#$ WARTE 5 ;
#
AENDERE GERADE OP=[GERADE]111;LT=2;!
#
#$ WARTE 5 ;
#
AENDERE GERADE OP=[GERADE]114;LT=2;!
#
#$ WARTE 5 ;
#
AENDERE GERADE OP=[GERADE]115;LT=2;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 5 ;
#
#$ INFO "
#-Das Formelement für Innen-Regelgewinde Draufsicht wird in der Vorderansicht
#-kopiert.
#-";
KOPIERE FORMELEMENT PP OP=[FORMELEMENT]11;P1=133;P2=142;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Formelementobjekte in der Seitenansicht werden der Ansichtsfolie SAR zugewiesen.
#-";
AENDERE FOLIE OP=SAR;ELEI=[GERADE]119;[GERADE]112;[GERADE]115;[GERADE]114;[GERADE]110;[GERADE]117;[GERADE]118;[GERADE]111;[GERADE]116;[GERADE]108;[GERADE]100;[GERADE]107;[GERADE]106;[GERADE]99;[GERADE]101;[GERADE]104;[GERADE]103;[GERADE]105;ELEI=[PUN
KT]184;160;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Durch Ein- und Ausblenden der Ansichtsfolie SAR wird kontrolliert, ob die gewünschten
#-Elemente auf der Folie liegen.
#-";
BLENDE FOLIE AUS OP=SAR;!
#
#$ WARTE 5 ;
#
BLENDE FOLIE EIN OP=SAR;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die neu plaziert und kopierten Formelemente in der Vorderansicht, werden der Ansichts-
#-folie Vorderansicht (VA) zugewiesen.
#-";
AENDERE FOLIE OP=VA;ELEI=[GERADE]94;ELEI=[GERADE]93;ELEI=[GERADE]91;[GERADE]90;[GERADE]122;[GERADE]121;[GERADE]97;[GERADE]96;ELEI=[KREIS]14;[KREIS]13;[KREIS]12;[KREIS]11;[KREIS]18;[KREIS]17;[KREIS]16;[KREIS]15;ELEI=[PUNKT]142;[GERADE]90;[GERADE]122;[
GERADE]97;!
AENDERE FOLIE OP=VA;ELEI=[PUNKT]201;ELEI=[PUNKT]151;ELEI=[PUNKT]133;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Durch Ein- und Ausblenden der Ansichtsfolie VA wird kontrolliert, ob die gewünschten
#-Elemente auf der Folie liegen.
#-";
#
#$ WARTE 5 ;
#
BLENDE FOLIE AUS OP=VA;!
#
#$ WARTE 5 ;
#
BLENDE FOLIE EIN OP=VA;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Das Gewindesackloch in der Seitenansicht soll in Schnittdarstellung konstruiert
#-werden.
#-
#-Die Ansichtsfolie SAR wird aktiviert.
#-";
AKTIVIERE FOLIE OP=SAR;!
#
#$ WARTE 5 ;
#
#$ MELDUNG "
#-!
#-!     Erzeugen Sie einen Ausschnitt, dessen Inhalt die Seitenansicht von rechts
#-!     ist.
#-!
#-";
#
#$ INFO "
#-Die Bruchlinie für die Schnittdarstellung vom Gewinde wird mit der
#-Skizzierhilfe und dem Intelligenten Fangmodus erzeugt.
#-
#-Der Intelligente Fangmodus wird eingeschaltet, durch drücken des Symboles
#-@I<GTFang>@.
#-";
#
SCHALTE REGEL EIN 11!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Skizzierhilfe wird durch drücken des Symboles
#-@I<CTSkizz>@
#-aktiviert und die Bruchlinie erzeugt.
#-";
ERZEUGE GERADE PP -63.1,62.7;-58.72,62.7!
[PUNKT]207;-55.566990751153,63.544846281956!
[PUNKT]208;-52.301965439893,62.669985386537!
[PUNKT]209;-48.1,62.669985386537!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Skizzierhilfe wird ausgeschaltet, durch drücken des Symboles
#-@I<GTSkizz>@.
#-
#-Ausschalten des Intelligenten Fangmodus, durch anklicken des Symboles
#-@I<GTFang>@.
#-";
#
SCHALTE REGEL AUS 11!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Bruchlinie wird als Linienzug definiert.
#-";
#
ERZEUGE LINIENZUG AUS LI=[GERADE]124(-62.1,63;0);125(-57.4,63;0);126(-54.5,63;0);127(-50,62.5;0);!
#
#$ WARTE 5 ;
#
#$ MELDUNG "
#-!
#-!     Schalten Sie die Grafik-Funktion Gesamtansicht ein.
#-!     Es besteht die Möglichkeit, daß durch Ihre Anordnung der geöffneten
#-!     Fenster (Folien-Info und Tutorial) die Gesamtansicht der Konstruktion
#-!     verdeckt ist. Mit Hilfe der Funktionen im Grafik-Fenster (Fenster-
#-!     schieben, Dynamischer Zoom) können Sie die Gesamtansicht der Kon-
#-!     struktion in den sichtbaren Bereich des Grafik-Fensters verschieben!
#-!
#-";
#  
#$ INFO "
#-Die Schraffurfläche wird erzeugt und mit der Schraffurfläche in der Draufsicht
#-vereinigt. Dafurch erstellt sich die gleiche Schraffur und bei einer Schraffur-
#-änderung erfolgt diese gleichzeitig bei allen vereinigten Schraffuren.
#-
#-Die Schraffurfläche wird erzeugt.
#-";
#
ERZEUGE FLAECHE AUT P=-51.7,60.6(0);!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Schraffurflächen werden vereinigt.
#-";
#
ERZEUGE FLAECHE VER OPI=[FLAECHE]3;[FLAECHE]6;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Linienzugdarstellung wird in schmale Vollinie geändert.
#-";
#
AENDERE LINIENZUG OP=[LINIENZUG]10;LB=1;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Schraffur der Seitenansicht wird der Ansichtsfolie SAR zugewiesen.
#-";
#
AENDERE FOLIE OP=SAR;ELEI=[SCHRAFFUR]1;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Durch ein- und ausblenden der Ansichtsfolie SAR wird überprüft, ob alle Elemente
#-für die Seitenansichtdarstellung der Flanschplatte auf der Ansichtsfolie SAR
#-sind.
#-";
#
BLENDE FOLIE AUS OP=SAR;!
#
#$ WARTE 5 ;
#
BLENDE FOLIE EIN OP=SAR;!
#
#$ WARTE 5 ;
#
#$ MELDUNG "
#-!
#-!    Das Folien-Info kann geschlossen werden, durch drücken des Schloß-Symboles.
#-!    @I<CClose>@
#-!
#-";
#
#$ INFO "
#-Die Systemfolien werden aktiviert.
#-";
#
AENDERE VOREINSTELLG FOLIE GEOMETRIE=GEOFOLIE;TEXT=TEXTFOLIE;REFERENZBEM=REFERENZBEMFOLIE;PARAMETRIKBEM=PARAMETRIKBEMFOLIE;SCHRAFFUR=SCHRAFFURFOLIE;POSNUMMERN=POSNRFOLIE;BEARBEITUNG=BEARBEITUNGFOLIE;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Bemaßung von Formelement d13t1-ird (Innen-Regelgewindesackloch, Schnitt-
#-darstellung in der Seitenansicht, wird über seine FeParametrikBemFolie ein-
#-geblendet und auf die Körperkanten des Teiles geändert.
#-";
#
BLENDE FORMELEMENT EIN OP=[FORMELEMENT]12;FOLIE=FEPARAMETRIKBEMFOLIE;!
#
#$ WARTE 5 ;
#
AENDERE LAENGENMASS OP=[LAENGENMASS]27;PML=-67.3,56.5;KK=[GERADE]87;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 5 ;
#
AENDERE LAENGENMASS OP=[LAENGENMASS]30;PML=-58.6,35;KK=[GERADE]84;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 5 ;
#
AENDERE LAENGENMASS OP=[LAENGENMASS]29;PML=-52.6,45;KK=[GERADE]84;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Formelement-Bemaßung des Innen-Regelgewindesackloches wird der
#-ParametrikBemFolie des Teiles zugewiesen.
#-";
#
AENDERE FOLIE OP=PARAMETRIKBEMFOLIE;ELEI=[LAENGENMASS]27;[LAENGENMASS]29;[LAENGENMASS]30;!
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Position des Längenmaßes 30 der Vorderansicht wird geändert, damit das Abstandsmaß
#-für die Innen-Regelgewinde (Formelement d13t1-ird) erzeugt werden kann.
#-";
#
AENDERE LAENGENMASS OP=[LAENGENMASS]19;PML=66.1,63;KK=[GERADE]6;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die fehlende Teilebemaßung wird erzeugt.
#-";
#
ERZEUGE LAENGENMASS SE BE1=[GERADE]93(2.8,73.2;0);BE2=[GERADE]90(2.1,57.2;0);PML=-5,67.4;KK=[GERADE]8;TLO=+0.1;TLU=-0.1;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 5 ;
#
ERZEUGE LAENGENMASS SE BE1=[GERADE]91(7,55.4;0);BE2=[GERADE]97(52.8,52.8;0);PML=42.9,35.2;KK=[GERADE]5;TLO=+0.1;TLU=-0.1;!
#
#$ WARTE 5 ;
#
#$ BILD NEU ;
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Stammdaten des Teiles stehen in der Teile-Info.
#-@I<CTStruk>@
#-
#-Die Schriftfeld- und Artikeldaten werden für die Flanschplatte geändert.
#-";
#
ERZEUGE VARIABLE T TXT="52E03054";NA=&ZEICHNR;!
#
#$ WARTE 3 ;
#
AENDERE VARIABLE T OP=&BENENNUNG;TXT="Flanschplatte";!
#
#$ WARTE 3 ;
#
ERZEUGE VARIABLE T TXT="12.04.95";NA=&DATUMBEARB;!
#
#$ WARTE 3 ;
#
ERZEUGE VARIABLE T TXT="P.Dittrich";NA=&NAMEBEARB;!
#
#$ WARTE 3 ;
#
AENDERE TEIL PARAMETER OP=1;SACHNUMMER="52E03054";!
#
#$ WARTE 3 ;
#
#$ MELDUNG "
#-!
#-!     Öffnen Sie die Teile-Info!
#-!     @I<CStrFa>@
#-!
#-!     Klicken Sie das Symbol für die Stammdaten - Eingabe an!
#-!     @I<CStammIo>@
#-!     Wählen Sie die @f@ Artikel @n@ ( durch anklicken ) an und es erscheint die
#-!     ausgefüllte Artikeldatenmaske.
#-!
#-!     Schließen Sie die Artikeldatenmaske mit dem Schloß-Symbol
#-!     @I<CClose>@
#-!     und wählen Sie @f@ Schriftfeld @n@ ( durch anklicken ) an.
#-!     Es erscheint die ausgefüllte Schriftfelddatenmaske.
#-!
#-!     Schließen Sie die Schriftfelddatenmaske und die Teile-Info mit dem
#-!     Schloß-Symbol.
#-!     @I<CClose>@
#-!
#-";
#
#$ MELDUNG "
#-@k@
#-i
#-i     Die Änderungskonstruktion ist nun komplett erstellt und würde in der
#-i     Zeichnungsverwaltung unter @x@ neuen @k@ Dateinamen gespeichert werden.
#-i
#-i     Die Zeichnung wird erst mit den Zeichnungselementen Schriftfeld und
#-i     Zeichnungsrahmen versehen, wenn eine Ausgabe (Druck, Plott) nötig ist.
#-i     Beim Plazieren der Konstruktion sind die Zeichnungselemente nicht 
#-i     relevant.
#-i
#-i     Wenn Sie sich die Zeichnungselemente für die Konstruktion nicht erzeugen
#-i     und anzeigen wollen, dann beenden oder laden Sie ein Tutorial.
#-i
#-@n@
#-!
#-!     Soll die erstellte Konstruktion mit den Zeichnungselementen erzeugt und
#-!     angezeigt werden, dann aktivieren Sie die Zeichnungsverwaltung, durch
#-!     anklicken es Symboles.
#-!     @I<CTKatal>@
#-!     Über den Menuepunkt @f@ selektieren nach... @n@ wählen Sie die @f@Makros@n@ an.
#-!     Interpretieren Sie das Makro Schriftfeld und die Zeichnungselemente
#-!     werden automatisch erstellt.
#-!     Die Interpretation wird folgendermaßen ausgeführt:
#-!
#-!     Das Symbol @f@ interpretieren @n@ wird angeklickt und danach das Makro Schriftfeld.
#-!
#-!     Anschließend führen Sie die Grafik-Funktion Gesamtansicht aus und die
#-!     Zeichnung mit ausgefülltem Schriftfeld und Zeichnungsrahmen wird
#-!     angezeigt.
#-!
#-";
#
#$ WARTE 5 ;
#
#$ INFO "
#-Die Parametrik wird ausgeschaltet und das Tutorial beendet.
#-";
#
AENDERE TEIL PARAMETER 1;PARAMETRIK=0;!	
#
#$ WARTE 2 ;
#
AENDERE VOREINSTELLG BEM PARAMETRIK=0;!	
#
#$ WARTE 2 ;
#
#$ LOESCHE INFO ;
#
#$ ENDE ;
