---

Hallo,
vielleicht kann mir jmd unter die Arme greifen:

Die Problemstellung:

Ich möchte selbst erzeugte Ebenen automaisch benennen lassen, um später dann genau auf diese Namen zurückgreifen zu können.
Dabei habe ich mir folgendes Schema überlegt:

dim n as long
n=1

for n=1 to 10 step 1
dim Ebene(n) as hybridshapeplaneoffsetpt
set Ebene(n)=Wzk3D.addnewplaneoffsetpt (RefE, RefP(n))
Ebene(n).name = "Plane.n"
Hbody.appendhybridshape Ebene(n)
n=n+1
next

Der o.g. Code ist natürlich nicht funktionsfähig.

Vielleicht kann mir jmd einen Lösungsansatz zeigen, wie ich mit der Variable nam besten umgehen kann.

Vielen Dank im Voraus.

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

---

Hi dabaeda,

ich hab dein Beispiel mal etwas angepasst.

---------------------------------------------
Code
---------------------------------------------
dim n as long

dim Ebene(10) as hybridshapeplaneoffsetpt

for n=0 to 10

set Ebene(n)=Wzk3D.addnewplaneoffsetpt (RefE, RefP(n))
Ebene(n).name = "Plane." & n+1
Hbody.appendhybridshape Ebene(n)

next

---------------------------------------------
Code Ende
---------------------------------------------

Jetzt stellt sich mir nur die Frage was "RefP(n)" sein soll.

Aber ich hoffe es hilft etwas weiter

Gruß
Proofin

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

---

Danke zunächst mal für die schnelle Antwort.
Das werde ich morgen gleich mal ausprobieren und das Ergebnis hier posten.

Unter "RefP(n)" meinte ich Punkte, die ich im vorangegangen Code erstellt habe. (n) sollte dabei die variable Nummerierung sein.
Leider wird das so nicht zugelassen.

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

---

Moin,

einen String und einen Zähler (Integer ) setzt du so zusammen:

sString = "Ref" & n

Gruß

------------------
tomtom1972

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

---

ICh ahbe jetzt mal folgenden Code geschrieben:

dim P1, P2, P3, p0 as hybridshapepointcoord
set P1 = Wzk3D.addnewpointcoord (0, 0, 0)
set P0 = Wzk3D.addnewpointcoord (100, 0, 0)
set P3 = Wzk3D.addnewpointcoord (150, 0, 0)
set P2 = Wzk3D.addnewpointcoord (200, 0, 0)
dim RefP1, RefP2, RefP3, RefP0 as Reference
set RefP1 = MeinPart.createreferencefromobject (P1)
set RefP2 = MeinPart.createreferencefromobject (P2)
set RefP3 = MeinPart.createreferencefromobject (P3)
set RefP0 = MeinPart.createreferencefromobject (P0)
Hbody.appendhybridshape P1
Hbody.appendhybridshape P2
Hbody.appendhybridshape P3
Hbody.appendhybridshape P0

dim n as long
n=0

sString = "RefP" & n

dim Ebene(3) as hybridshapeplaneoffsetpt

for n=0 to 3

set Ebene(n)=Wzk3D.addnewplaneoffsetpt (RefE, sString
Ebene(n).name = "Plane." & n
Hbody.appendhybridshape Ebene(n)
n=n+1
next

unter: 

Zitat:

---

set Ebene(n)=Wzk3D.addnewplaneoffsetpt (RefE, sString)

---

herrscht eine Unstimmigkeit, schätzungsweise an dem Wort: "sString"

Wahrscheintlich habe ich eure Tips voll durcheinandergewürfelt angewandt.

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

---

Moin dabaeda,

versuch mal folgendes

-----------------------------------
Code
-----------------------------------

dim P1, P2, P3, p0 as hybridshapepointcoord
set P1 = Wzk3D.addnewpointcoord (0, 0, 0)
set P0 = Wzk3D.addnewpointcoord (100, 0, 0)
set P3 = Wzk3D.addnewpointcoord (150, 0, 0)
set P2 = Wzk3D.addnewpointcoord (200, 0, 0)
dim RefP(3) as Reference
set RefP(1) = MeinPart.createreferencefromobject (P1)
set RefP(2) = MeinPart.createreferencefromobject (P2)
set RefP(3) = MeinPart.createreferencefromobject (P3)
set RefP(0) = MeinPart.createreferencefromobject (P0)
Hbody.appendhybridshape P1
Hbody.appendhybridshape P2
Hbody.appendhybridshape P3
Hbody.appendhybridshape P0

dim n as long
n=0

dim Ebene(3) as hybridshapeplaneoffsetpt

for n=0 to 3

set Ebene(n)=Wzk3D.addnewplaneoffsetpt (RefE, Ref(n))
Ebene(n).name = "Plane." & n
Hbody.appendhybridshape Ebene(n)

next

-----------------------------------
Code
-----------------------------------

Jetzt hast du 2 Arrays (Ebene, RefP) gleicher Grösse.
Dies kannst du mit der For Schleife abarbeiten.

Das n=n+1 in der Schleife darfst du nicht setzen,
da n automatisch hoch gezählt wird.

Gruß
Proofin

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

---

Super, vielen vielen Dank.

Jetzt hat es geklappt.

Habe nur in: 

Zitat:

---

set Ebene(n)=Wzk3D.addnewplaneoffsetpt (RefE, Ref(n))

---

noch ein P eongesetzt. (RefP(n))

Hoffentlich habe ich noch Unities zu vergeben. 

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