Formwerkzeuge Blech (ISD Group/HiCAD - CAD-Software)

Hallo Tavision,

vielleicht hilft dieses Rotationsteilmakro weiter:

REM   HICAD-Next VN:1212
REM HiCAD
START   59
HNEXT
REM   HiCAD   3 = 3-D SZENE
OPTION   3 59
REM   3D - SZENE   3 = Bearbeiten
OPTION   3 101
OPTION ESC
REM   3D - SZENE   S9= 3D Funktionen
OPTION 19 101
REM   3D FUNKTIONEN   5 = Skizze anlegen
OPTION   5 196
OPTION ESC
REM   3D - SZENE   3 = Bearbeiten
OPTION   3 101
REM   TEILE   1 = Bearbeiten
OPTION   1 102
REM   BEARBEITEN   2 = Kantenzüge
OPTION   2 106
REM   3D KANTENZUG   4 = 3D Konstrukt.
OPTION   4 137
POINT   A 0 0
POINT   A 45 45
POINT   R 50 0
POINT   A 100 0
POINT   A 0 0
POINT   ESC
POINT   ESC
OPTION ESC
OPTION ESC
OPTION ESC
REM   3D - SZENE   S9= 3D Funktionen
OPTION 19 101
REM   3D FUNKTIONEN   S2= Hauptteil neu
OPTION 12 196
REM    Eingabe über Macros?
ANTWORT 1
REM    Rotationskörper
INTEGER 9
REM    Segment?
ANTWORT 0
REM    Referenziert?
ANTWORT 0
REM    Featureprotokoll?
ANTWORT 1
REM    Drehachse interaktiv(j)? oder über 2 Punkte (n)?
ANTWORT 0
POINT   A 0 0
POINT   A 10 0
REM    Körpername :
STRING Rot
STRING RET
OPTION ESC
OPTION ESC
OPTION ESC
END

oder als Hohlteil:

REM HICAD-Next VN:1212
REM HiCAD
START 59
HNEXT
%w:=2
%r:=10
(
Echo Wandstärke des Rotationskörpers w in mm
Echo Radius der Kegelspitze r in mm
var %w w
var %r r
)
REM HiCAD 3 = 3-D SZENE
OPTION 3 59
REM ALT2
OPTION 22 0
REM KOORD. SYSTEM 9 = Verändern
OPTION 9 152
REM PROJEKTION 7 = Draufsicht
OPTION 7 111
OPTION ESC
OPTION ESC
REM 3D - SZENE S9= 3D Funktionen
OPTION 19 101
REM 3D FUNKTIONEN 5 = Skizze anlegen
OPTION 5 196
OPTION ESC
REM 3D - SZENE 3 = Bearbeiten
OPTION 3 101
REM TEILE 1 = Bearbeiten
OPTION 1 102
REM BEARBEITEN 2 = Kantenzüge
OPTION 2 106
REM 3D KANTENZUG 2 = Kreis (bogen)
OPTION 2 137
REM 3D-KREISBOGEN 2 = MP- P -(P)
OPTION 2 121
POINT A 0 0
POINT A -r 0
POINT A -r*0.7071067 r*0.7071067
REM Kreis O.K. ?
ANTWORT 1
POINT ESC
OPTION ESC
REM 3D KANTENZUG 4 = 3D Konstrukt.
OPTION 4 137
POINT A -r*0.7071067 r*0.7071067
POINT R 5*r 5*r
POINT R r 0
POINT ESC
POINT ESC
REM 3D KANTENZUG S5= Kntzug bearb.
OPTION 15 137
REM KANTENZÜGE 10= Neu Gruppier.
OPTION 10 133
REM O.K. ?
ANTWORT 1
OPTION ESC
REM 3D KANTENZUG S1= Parallelzug
OPTION 11 137
POINT A -(r-1)*0.7071067 (r-1)*0.7071067
REM Distanz :
REAL W
OPTION ESC
REM BEARBEITEN 2 = Kantenzüge
OPTION 2 106
REM 3D KANTENZUG 4 = 3D Konstrukt.
OPTION 4 137
POINT A -r 0
POINT R w 0
POINT ESC
POINT A r+(5*r)-r*0.7071067 (5*r)+r*0.7071067
POINT R 0 -w
POINT ESC
POINT ESC
OPTION ESC
OPTION ESC
OPTION ESC
REM 3D - SZENE S9= 3D Funktionen
OPTION 19 101
REM 3D FUNKTIONEN S2= Hauptteil neu
OPTION 12 196
REM Eingabe über Macros?
ANTWORT 1
REM Rotationskörper
INTEGER 9
REM Segment?
ANTWORT 0
REM Referenziert?
ANTWORT 0
REM Featureprotokoll?
ANTWORT 1
REM Drehachse interaktiv(j)? oder über 2 Punkte

(n)?
ANTWORT 0
POINT A 0 0
POINT A r 0
REM Körpername :
STRING ROT2
STRING RET
OPTION ESC
OPTION ESC
REM ALT5
OPTION 25 0
REM 3D RASTER S1= Eb. anlegen
OPTION 11 129
REM ~Kante-Kante(0)-Kante,Punkt(1)-drei

Punkte(2)-X/Y-Ebene(3)-Fläche(4): ~
INTEGER 3
OPTION ESC
OPTION ESC
OPTION ESC
REM BERECHNUNG BERECHNUNG
OPTION 3 159
REM 3D - SZENE 3 = Bearbeiten
OPTION 3 101
OPTION ESC
REM 3D - SZENE S9= 3D Funktionen
OPTION 19 101
OPTION ESC
OPTION ESC
REM BERECHNUNG BERECHNUNG
OPTION 3 159
REM 3D - SZENE 3 = Bearbeiten
OPTION 3 101
REM TEILE 8 = Hauptteil neu
OPTION 8 102
OPTION ESC
REM TEILE 10= Aktivieren
OPTION 10 102
STRING 3D-Skizze
REM TEILE 7 = Löschen
OPTION 7 102
REM O.K. ?
ANTWORT 1
OPTION ESC
REM HiCAD 3 = 3-D SZENE
OPTION 3 59
REM 3D - SZENE 3 = Bearbeiten
OPTION 3 101
REM TEILE 10= Aktivieren
OPTION 10 102
STRING ROT2
REM TEILE 1 = Bearbeiten
OPTION 1 102
REM BEARBEITEN 8 = Bohren/Schnei
OPTION 8 106
REM 2D MIT TRANS. 3 = 2D Linienmenü
OPTION 3 112
REM LINIEN 2 = Streckenzug
OPTION 2 6
POINT A (5*r)-r*0.7071067 (5*r)+r*0.7071067
POINT A r+(5*r)-r*0.7071067 0
POINT R 3*r 0
POINT R 0 10*r
POINT A (5*r)-r*0.7071067 (5*r)+r*0.7071067
POINT ESC
OPTION ESC
OPTION ESC
OPTION ESC
END

Ohne Gewährleistung!!

Hat es geklappt?

------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn
http://home.wms-hn.de/people/teachers/ch/christ/

Hilfestellungen und Makros:
Hicad: http://home.wms-hn.de/people/teachers/ch/christ/christ4.html
Catia V5: http://home.wms-hn.de/people/teachers/ch/christ/christ41.html

Stellenangebote für Techniker und Konstrukteure:
http://home.wms-hn.de/people/teachers/ch/christ/christ3.html

[Diese Nachricht wurde von ch am 28. Aug. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP