---

Hallo Zusammen,
wer kann uns helfen, die Gesamtlänge aller Linien , die:
1. nicht in einen Linienzug verbunden werden können, aber
2. auf eine Schicht gelegt werden können oder
3. zu einem Bauteil gehören können
auszurechnen?
Für jeden Wink sind wir Euch im Voraus dankbar.

------------------
Servus
Rene-gad

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

---

Hallo!!!

Testen Sie das Makro einmal!!!

REM   HICAD-Next VN:1210
REM          HiCAD          
START   59
HNEXT
REM   HiCAD   2 = 2-D ZTL
OPTION   2  59
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   8 = Hauptteil neu
OPTION   8   2
REM   NEUES TEIL   1 = Teil anlegen
OPTION   1   3
STRING  Bauteil-Schicht
REM ALT1
OPTION  21   0
REM   NEUZEICHNUNG   1 = alle Teile
OPTION   1  51
REM   BAUTEILE   1 = Linien
OPTION   1   2
REM   LINIEN   S5= LE kopieren
OPTION  15   6

ECHO Tippen Sie die Linien einzeln an

REM     einzeln
INTEGER 1
REPEAT
POINT   #
UNTIL PESC
OPTION  ESC
REM ALT2
OPTION  22   0
REM   ANSICHT   5 = Gesamtansicht
OPTION   5  52
REM ALT1
OPTION  21   0
REM   NEUZEICHNUNG   2 = akt. Teil(e)
OPTION   2  51
REM ALT2
OPTION  22   0
REM   ANSICHT   5 = Gesamtansicht
OPTION   5  52

REM   HICAD-Next VN:1210
REM          HiCAD          
START   59
HNEXT
REM   HiCAD   2 = 2-D ZTL
OPTION   2  59
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1

ECHO Tippen Sie die Linien einzeln an

REM ALT3
OPTION  23   0
REM   INFORMATIONEN   4 = Linienelement
OPTION   4  53
%A:=0
%z3:=0
10:POINT   #
%A:=z3
%A:=A+z3
$A:=%A
IF PESC GOTO 20
GOTO 10
POINT   ESC
20:OPTION  ESC

REM   HICAD-Next VN:1210
REM          HiCAD          
START   59
HNEXT
REM   HiCAD   2 = 2-D ZTL
OPTION   2  59
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   S6= Texte
OPTION  16   2
REM   TEXT   1 = Texte einfüg.
OPTION   1  25
POINT   A 0 0
REM     Beschriftungswinkel:
WINKEL  RET
REM     Text:
$B:="Die aufsummierten Längen sind:  "+$A
STRING $B
POINT   ESC
OPTION  ESC
OPTION  ESC

REM   HICAD-Next VN:1210
REM          HiCAD          
START   59
HNEXT
REM   HiCAD   2 = 2-D ZTL
OPTION   2  59
REM   ZEICHENTEILE   3 = ZTL bearbeit.
OPTION   3   1
REM   BAUTEILE   10= Bt. auswählen
OPTION  10   2
STRING  Bauteil-Schicht

REM ALT2
OPTION  22   0
REM   ANSICHT   5 = Gesamtansicht
OPTION   5  52

ECHO Ziehen Sie über alle Linien ein Rechteck

REM   BAUTEILE   1 = Linien
OPTION   1   2
REM   LINIEN   10= Par. ändern
OPTION  10   6
REM   LINIEN-PARAM.   3 = Schichtnummer
OPTION   3  18
REM     Schicht
INTEGER 10
OPTION  ESC
REM     im Rechteck
INTEGER 4
POINT   #
POINT   #
POINT   ESC
REM     O.K. ?
ANTWORT 1
OPTION  ESC
REM ALT2
OPTION  22   0
REM   ANSICHT   5 = Gesamtansicht
OPTION   5  52
END

Hat es geklappt?

Liebe Grüße

------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn

http://home.wms-hn.de/~christ/christ1.html

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