---

Hallo,
ich habe eine Excelliste mit Punktkoordinaten von einem Vermessungsbüro bekommen.
Hat jemand eine Idee oder ein Makro, wie man diese Punkte automatisch in eine Szene als Punkte einlesen kann?
Es sind um die 200 Punkte und ich kann die nicht alle über Absolut Koordinaten rein kopieren.
Danke und Grüße
Bernd

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

---

Hallo,
mein Vorschlag wäre mit einem Open...Close Befehl und einem Makro zu arbeiten.
Für 3D Punkte:
Dazu das Makro im Szene Ordner abspeichern mit dem Namen
XYZ3DPunkteliste.mac
Danach die Koordinaten in eine DAT-Datei auch im Szene Ordner speichern
XYZ3DPunkteliste.dat
so zu schreiben, dass die Werte untereinander stehen. Dazu vorher in Excel Ihre Spalten transponieren und die Spalten dann untereinander kopieren und dann die gesamte Spalte kopieren und im Editor einfügen und als
XYZ3DPunkteliste.dat speichern.

XYZ3DPunkteliste.mac
REM   HICAD-Next VN:1800
REM          HiCAD          
START   59
HNEXT
REM   HiCAD   3 = 3-D SZENE
OPTION   3  59
REM   3D - SZENE   1 = Neu anlegen
OPTION   1 101
REM     Aktive Konstruktion speichern ?
ANTWORT 0
STRING  3D-Punkte
REM     Ändern ?
ANTWORT 0
Start 59
OPEN XYZ3DPunkteliste

REM   3D - SZENE   3 = Bearbeiten
OPTION   3 101
REM   TEILE   8 = Hauptteil neu
OPTION   8 102
REM   TEILE ERZEUG   8 = Leerteil
OPTION   8 103
STRING  3D
REM   TEILE   1 = Bearbeiten
OPTION   1 102
REM   BEARBEITEN   1 = Punkte/Kanten
OPTION   1 106

20:Input %AX
Input %AY
INPUT %AZ
If not dvorhd Goto 98

REM   PUNKTE/KANTEN   1 = Isolier. Pkt.
OPTION   1 117
POINT   A AX AY AZ
POINT   ESC
REM OPTION  ESC
REM OPTION  ESC
GOTO 20
98:Close
REM   HiCAD   2 = 2-D ZTL
OPTION   2  59
REM ALT2
OPTION  22   0
REM   ANSICHT   5 = Gesamtansicht
OPTION   5  52
REM ALT6
OPTION  26   0
REM     Variablenspeicher löschen ?
ANTWORT 1
OPTION  ESC
OPTION  ESC
END

XYZ3DPunkteliste.dat
100
100
100
200
200
200
300
300
300
400
400
400
0
30
300

Wenn Sie es auch für 2D-Punkte benötigen melden Sie sich!

------------------
Für die bereitgestellten Unterlagen gibt es keine Garantie und Gewährleistung!

K. Christ i.R.
Hicad 2017

[Diese Nachricht wurde von ch am 01. Mai. 2021 editiert.]

[Diese Nachricht wurde von ch am 01. Mai. 2021 editiert.]

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

---

Hallo,

ich hab den Vorschlag von Herrn Christ mal auf genommen und etwas modifiziert, so dass man jetzt Dateien einlesen kann bei denen die
3 Koordinaten in einer Zeile stehen und durch ein Trennzeichen in diesem Fall | getrennt sind.

Makro:

Code:

---

REM  HICAD-Next VN:1800
REM          HiCAD         
START  59
HNEXT
REM  HiCAD  3 = 3-D SZENE
OPTION  3  59
REM  3D - SZENE  1 = Neu anlegen
OPTION  1 101
REM    Aktive Konstruktion speichern ?
ANTWORT 0
STRING  3D-Punkte
REM    Ändern ?
ANTWORT 0
Start 59
OPEN XYZ3DPunkteliste

REM  3D - SZENE  3 = Bearbeiten
OPTION  3 101
REM  TEILE  8 = Hauptteil neu
OPTION  8 102
REM  TEILE ERZEUG  8 = Leerteil
OPTION  8 103
STRING  3D
REM  TEILE  1 = Bearbeiten
OPTION  1 102
REM  BEARBEITEN  1 = Punkte/Kanten
OPTION  1 106

$TRENNZEICHEN:=|

20:Input $ZEILE

If not dvorhd Goto 98
%LAENGE:=LEN($ZEILE)
%TRENN1:=IDX($ZEILE,$TRENNZEICHEN)
$AX:=$ZEILE(1:%TRENN1-1)
%AX:=VAL($AX)
$ZEILEGEK:=$ZEILE(%TRENN1+1:%LAENGE)
%TRENN2:=IDX($ZEILEGEK,$TRENNZEICHEN)
$AY:=$ZEILEGEK(1:%TRENN2-1)
%AY:=VAL($AY)
%LAENGEGEK:=LAENGE-TRENN1
$AZ:=$ZEILEGEK(%TRENN2+1:%LAENGEGEK)
%AZ:=VAL($AZ)
REM  PUNKTE/KANTEN  1 = Isolier. Pkt.
OPTION  1 117
POINT  A AX AY AZ
POINT  ESC
REM OPTION  ESC
REM OPTION  ESC
GOTO 20
98:Close
REM  HiCAD  2 = 2-D ZTL
OPTION  2  59
REM ALT2
OPTION  22  0
REM  ANSICHT  5 = Gesamtansicht
OPTION  5  52
REM ALT6
OPTION  26  0
REM    Variablenspeicher löschen ?
ANTWORT 1
OPTION  ESC
OPTION  ESC
END

---

Inhalte Beispiel Datei(XYZ3DPunkteliste.dat)

Code:

---

100|100|100
200|200|200
300|300|300
400|400|400
0|30|300

---

Gruß
Malte

------------------
Stell dir vor es geht und keiner kriegts hin!

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

---

Hallo Malte,
das haben Sie super gelöst!

------------------
Für die bereitgestellten Unterlagen gibt es keine Garantie und Gewährleistung!

K. Christ i.R.
Hicad 2017

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

---

Hallo Zusammen,
ich möchte mich ganz herzlich für eure Hilfe bedanken. Leider kann ich es im Moment nicht testen. Sobald ich wieder arbeitsfähig bin werde ich mich melden.
Danke und Grüße

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

---

Hallo,

„Gute Besserung“ für Sie!

------------------
Für die bereitgestellten Unterlagen gibt es keine Garantie und Gewährleistung!

K. Christ i.R.
Hicad 2017

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

---

XYZ3DPunkteliste.mac.txt XYZ3DPunkteliste.dat.txt

Hallo Herr Christ, hallo Malte,

es hat geklappt. Die Punkte sind da wo sie sein sollen, obwohl HiCAD verschiedene Werte für folgende Attribute verlangte:

$ZEILE 6x
$AX 2x
$ZEILEGEK 4x
$AY 2x
$AZ 2x

Diese Abfragen habe ich weg geklickt.
Danach waren 2 Punkte auf A_0_0_0.
Der Rest war gut. Alle habe ich nicht geprüft, aber das Ergebnis ist für mich so völlig ausreichend.

Vielen Dank nochmal.
Das mac und die dat habe ich angehängt, falls Sie dies noch selber testen wollen.

Viele Grüsse
Bernd

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

---

3D-PUNKTE.SZA.TXT

Hallo,

bei mir lief das Makro von Malte ohne "Störung" durch.
Anbei die SZA-Datei mit Ihren Daten!!

------------------
Für die bereitgestellten Unterlagen gibt es keine Garantie und Gewährleistung!

K. Christ i.R.
Hicad 2017

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