---

Hallo

Wir erstellen Wasserschemas, welches eher einem Verfahrensschema ähnelt. Dieses wird mit Blöcke aufgebaut.

Für eine Legende lese ich alle Blöcke per VB aus. Nun müsste ich aber die ausgelesenen Daten in eine Tabelle speichern.
Früher habe ich die Daten in einem Excelsheet gespeichert und einen Objekt auf dem Draft gesetzt. Da jetzt die Tabellenfunktion gibt, möchte ich gerne eine Tabelle statt einen Excelsheet auf dem Draft haben.
Kann mir jemand helfen??

Peticeo

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

---

Private objApp As SolidEdgeFramework.Application
Private objDft As SolidEdgeDraft.DraftDocument
.....
For i = 1 To objDft.Tables.Count
  List1.Items.Add(objDft.Tables.Item(i).Titles.Item(1).value)
  List2.Items.Add(objDft.Tables.Item(i).Rows.Count)
Next i

So frage ich die Anzahl und Titel mit jeweiligen Zeilen an. Wie.....
kann ich eine NEUE erzeugen und positionieren?

Hilfe....

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

---

1. Wenn es eine Collection Tables gibt, dann gibt es voraussichtlich auch eine Methode Add, um eine neu Tabelle zu erzeugen

2. Wenn es eine Colection Tables gibt, gibt es auch ein Table-Objekt. Das hat dann auch ein paar Eigenschaften und Methoden wie z.B SetOrigin.

------------------
APeters@BSS-Online.de

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

---

Werde es morgen dirkt ausprobieren.

Danke

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

---

Guck mal im Objektbrowser nach. Den kennst Du doch, oder? Du programmierst doch öfter.

------------------
APeters@BSS-Online.de

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

---

eben nicht so fleissig.....

Private objBlocks As SolidEdgeDraft.Table

Call objBlocks.SetOrigin(5, 5)    'funz nicht 
'oder
Dim someObj As Object
someObj = New TabControl
Call someObj.setorigin(5, 5)      'und funz auch nciht 

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

---

OK. Also Tabelle erstellen geht.

SetOrigin
Die Parameter haben bei solchen meist einen Datentyp (z.B. Double) und müssen deshalb vorher declariert werden. Einfach irgendwelche Zahlen rein, geht nicht.

------------------
APeters@BSS-Online.de

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

---

koennte geklappt haben nur das

Call objBlocks.SetOrigin(5, 5)

wuerde das ergeben:

x = 5 meter und y = 5 Meter

------------------
Lieber Fehler riskieren als Initiative verhindern (R. Mohn)

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

---

War hieß denn eigentlich "funzt nicht". Ich dachte es gab ne Fehlermeldung, die Du nur geheim hältst.

Hast Du hinterher mal die Tabellen in der Collection gezählt?

------------------
APeters@BSS-Online.de

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

---

... man koennte es anhand obiger Codeschnipsel auch

Programming by Accident

nennen ...

------------------
Lieber Fehler riskieren als Initiative verhindern (R. Mohn)

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

---

Sorry, "funz nicht" --> aus anderen Foren beudeutet: Es funktioniert nicht.

Zitat:

---

Hast Du hinterher mal die Tabellen in der Collection gezählt?

---

Hmm. Leider funktioniert es immer noch nicht. Ich weiss nicht, wie meine neue Tabelle (objTab) zuweisen soll?!?

Code:

---

Dim objBlocks As New "Was denn"
Dim x,y As Double
x=0.01
y=0.01
Call objBlocks.SetOrigin(x, y)   

---

und ich müsste nachher ja alle Parameter noch eingeben können.
Bin am verzweifeln 

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

---

Zitat:

---

Original erstellt von peticeo:
Sorry, "funz nicht" --> aus anderen Foren beudeutet: Es funktioniert nicht.

Hmm. Leider funktioniert es immer noch nicht. Ich weiss nicht, wie meine neue Tabelle (objTab) zuweisen soll?!?

Code:

---

Dim objTab As New "Was denn"
Dim x,y As Double
x=0.01
y=0.01
Call objTab.SetOrigin(x, y)   

---

und ich müsste nachher ja alle Parameter noch eingeben können.
Bin am verzweifeln    

---

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

---

dann deklarier das Ding doch als Object -- passt immer

------------------
Lieber Fehler riskieren als Initiative verhindern (R. Mohn)

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

---

Wie ist die Fehlermeldung? ODER
Wie viele Zeilen und Spalten hat die nicht sichtbare Tabelle?

Wenn ich mich recht entsinne definiert
Dim x,y as Double
x = variant
Y = double

------------------
APeters@BSS-Online.de

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

---

     
Ich hab es geschaft 

Zitat:

---

Die Parameter haben bei solchen meist einen Datentyp (z.B. Double) und müssen deshalb vorher declariert werden. Einfach irgendwelche Zahlen rein, geht nicht.

---

... geht doch.

Code:

---

'Ich musste zuerst alle Parameter für die Tabelle zuweisen:
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objTables As SolidEdgeDraft.Tables
Dim objTable As SolidEdgeDraft.Table
Dim objTitles As SolidEdgeDraft.TableTitles
Dim objTitle As SolidEdgeDraft.TableTitle
Dim objColumns As SolidEdgeDraft.TableColumns
Dim objColumn As SolidEdgeDraft.TableColumn
Dim objRows As SolidEdgeDraft.TableRows
Dim objRow As SolidEdgeDraft.TableRow
Dim objCell As SolidEdgeDraft.TableCell

'danach ausfüllen, table, titles, columns, rows, ...usw
'zum Schluss

objTable.Update()
objTable.SetOrigin(0.1, 0.1)

---

Gruss aus der Schweiz
Peticeo

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

---

Das ist doch prima.

Dann ist es wei bei Properties. Da muss man auch ein Update machen, wenn man neue erzeugt hat. Sonst sind sie nicht da.

------------------
APeters@BSS-Online.de

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

---

[...]
Ich musste zuerst alle Parameter für die Tabelle zuweisen
[...]

seufz, das sind nicht die Parameter der Tabelle sondern deren Objekte

Nur vergiss nicht sie am Ende auch wieder zu loeschen

------------------
Lieber Fehler riskieren als Initiative verhindern (R. Mohn)

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