3ds Max: Selektierte Scheitelpunkte auslesen

[nobicasa]

Hi,

Könne mir bitte mal jmd ( Link gesperrt ) ein kleines Script schreiben mit
dem ich alle selektierten Scheitelpunkte angezeigt bekomme ?

also zB. so:

X Y Z
-1.000 1.000 0.000
2.000 1.000 5.000
...
0.000 -1.000 0.050

Ich bekomme das mit dem Scripteditor nicht so recht hin.

Ich würde es ja so machen: (Pseudocode)

Object = AktuellSelektiertesObject;
for i = 1 to Object.Vertex.Count do
(
print "%f %f %f", Object.Vertex.PosX, Object.Vertex.PosY, Object.Vertex.PosZ
)

Leider kann ich die Scriptsprache nicht...

[scrimski]

In welches Dateiformat soll geschrieben werden?

Ich bekomme das mit dem Scripteditor nicht so recht hin.

Super Beschreibung. Genauer gehts nicht?
Was hast du bis jetzt?

[nobicasa]

Zitat von scrimski

In welches Dateiformat soll geschrieben werden?

Zum Beispiel in eine einfache Textdatei oder einfach im MAXScript Listener anzeigen. Das kann man dan per C&P in eine Datei verfrachten.

Zitat von scrimski

Super Beschreibung. Genauer gehts nicht?
Was hast du bis jetzt?

Ich würde es ja so machen: (Pseudocode)

Object = AktuellSelektiertesObject;
for i = 1 to Object.Vertex.Count do
(
print "%f %f %f", Object.Vertex.PosX, Object.Vertex.PosY, Object.Vertex.PosZ
)

Leider kann ich die Scriptsprache nicht...

[scrimski]

Leider kann ich die Scriptsprache nicht...

Kann man ja lernen. Besonders schwer ist es nicht gerade.

Viel einfacher als das sind Suchmaschinen wie google,
mit "Maxscript" als Suchbegriff kommt man genau dahin, Link gesperrt.
Benutz man da die Suchfunktion mit "Vertex Position Export" bekommt man eine kleine Auswahl an Scripts für den Export von Positionsdaten.

Ich würde einfach mal das erste probieren(hört sich nämlich nach dem an, was du suchst).

Falls nicht - selber schreiben. Dein Code ist von der Struktur eigentlich richtig.
Aus

Object = AktuellSelektiertesObject;

wird

 obj= $

aus

for i = 1 to Object.Vertex.Count do

wird

for i = 1 to obj.numverts do

print(getVert obj i)

steht für die Ausgabe der Positionskoordinaten des Vertex i (definiert in der for-Schleife)

Also

obj= $

for i = 1 to obj.numverts do
(
	print (getVert obj i)
)

Getestet und korrigiert

Das Objekt muss ein Mesh sein, also entweder konvertieren oder ein editMesh/MeshSelect Modifier oben in den Stack.

[nobicasa]

Danke erst mal.

Kann man ja lernen. Besonders schwer ist es nicht gerade.

Naja, habe jetzt den Tag dafür gebraucht wo ich eigentlich etwas anderes machen müsste.

Viel einfacher als das sind Suchmaschinen wie google,
mit "Maxscript" als Suchbegriff kommt man genau dahin, wo man hin muss.

Das war das erste was ich versucht hatte. Leider brauch ich mein eigenes Script.

Das Ergebnis, nicht weltbewegend aber es tuts:

-- Export Vertexdata to File

messageBox "Pick a Geometry"

obj = pickobject prompt:"Pick Geometry" filter:GetGeometry

if isValidNode obj then
(
	tmesh = snapshotAsMesh obj
	out_name = GetSaveFileName filename:"PData.dat" types:"Data(*.dat)|*.dat|All Files|*.*"
	
	if out_name != undefined then
	(
		out_file = createfile out_name
		num_verts = tmesh.numverts 
		format "OBJName: %\n" (obj.name) to:out_file
		format "%\n" (num_verts) to:out_file
		for i = 1 to num_verts do
		(
		vert = getVert tmesh i
		format "\t% % %\n" vert.x vert.y vert.z to:out_file
		)
	close out_file
	format "Points saved to: %" out_name
        messageBox "Done."	
	)
) else messageBox "Not a valid Geometry"

[scrimski]

Schon schick, mit Selection Box und direktem Export(aus der Scriptreferenz 'How to...'?).

Bin ich immer ehrlich gesagt zu faul zu und die Formatierung würde ich in einem Texteditor machen.

Kern des Scripts ist halt

 getVert tmesh i

Der Rest UI, FIle-OPs und eine failsafe-Routine.

[nobicasa]

Zitat von scrimski

Bin ich immer ehrlich gesagt zu faul zu und die Formatierung würde ich in einem Texteditor machen.

Naja, bei 800 Scheitelpunkten hört sich der Spass auf mit dem von Hand formatieren etc. pp. Wenn du das dann drei oder vier mal macht...

[scrimski]

Wieso von Hand?

Der Zeilenoutput kommt aus dem Max-Editor, alles was gemacht werden muss, ist Zeichen ersetzen. Und das kann sogar das Windows-Notepad.