XMF Joiner

by DataMine · 17 posts
10 years ago in Other
Posted 10 years ago · Author
This is a vbs script written by dcdani @ imvu (http://www.dcdani.com).

The purpose of this script is to join multiple mesh files (xmf) into a single mesh file. For example, if you have 2 chair meshes, it will combine them into a single product. Both meshes will retain their texture information and positioning. However, if both products share the same position, it will clip them into each other.

' By dcdani @ imvu
' www.dcdani.com

' se le arrastran encima los ficheros y los junta en uno solo :-|
Set WshShell = WScript.CreateObject("WScript.Shell")
Set inCsvSys = CreateObject("Scripting.FileSystemObject")
dim resultado,rtxt,submeshes
dim fout
If Wscript.Arguments.Count = 0 Then
    msgbox "Please drag-drop files to join"
   fout=Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "joined.xmf"
   ' w=WshShell.Popup("Joining... please wait", 1, "_JoinXmf by dcdani @imvu www.dcdani.com ", 64) 
   for k=0 to Wscript.Arguments.Count-1
    leefichero  Wscript.Arguments(k)
    rtxt=rtxt & vbcrlf & "Procesado:" &   Wscript.Arguments(k)
  Set outxmf   = inCsvSys.OpenTextFile(fout ,"2",True) 
  outxmf.writeline "<HEADER MAGIC=""XMF"" VERSION=""919"" />"
  outxmf.writeline "<MESH NUMSUBMESH=" & """" & submeshes & """" & ">"
  resultado=replace(resultado,vbcrlf & vbcrlf ,vbcrlf)
  outxmf.writeline resultado 
  outxmf.writeline "</MESH>"
  msgbox "xmf Joiner : www.dcdani.com . dcdani @ imvu " & vbcrlf & "Submeshes:" & submeshes & vbcrlf & "File created in :" & fout
End If

sub leefichero(f)
  Set inxmf    = inCsvSys.OpenTextFile(f,"1",True)
  dim fall
  if instr(fall,"<MESH") then
      if instr(fall,"NUMSUBMESH=") then
         submeshes=submeshes + dumc*1
         ' tenemos hasta el submeshes, terminamos la linea
      end if
  end if
  fall=replace(fall,vbcrlf & "</MESH>","")
  resultado=resultado & fall
end sub
Posted 10 years ago
Is there a script that separates out submeshes?

-- Sun Dec 08, 2013 1:48 pm --


Joins and provides UV maps into one xmf with submeshes.

Another thought, is it possible to use these joiners that combines several meshes into one without having them combine into submeshes? Or is this only accomplished from 3ds?
Posted 6 years ago
Do anybody know if this still works or can tell me how to use this script plz
Posted 6 years ago · Author
8ball187 wrote:
Do anybody know if this still works or can tell me how to use this script plz

Should still work.


1) Copy and paste the code into a new text file.
2) rename the text file to meshjoin.vbs
3) drag multiple meshes onto the file
Posted 6 years ago
Thanks DM I'm going try it when I get back home...It will be a life saver for me if it works
Posted 5 years ago
@DM Does this scrip still work? I tried to make one as per instruction but files wont drag drop onto it. Even http://deliverancenow.info/IMVU/cast/cast.html doesn't work for me now... when I click this link it says account suspended....Thanks.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Sign in

Already have an account? Sign in here


Create an account

Sign up for a new account in our community. It's easy!

Select a forum Protection     Help & Support     Introductions     Mafia News     IMVU News General Discussion     IMVU Lounge        IMVU Series / Roleplaying        Social Games     Mafia Market     Mafia Tools        Premium IMVU Tools        Off Topic Tools     Off Topic     Contests Creator Corner     Graphics Design        Photoshop        GIMP     Basic Creator Help     Catalog And Product Showcase     3D Meshing        3Ds Max        Sketchup        Blender Gangsters with Connections     White Hat Activities        Google Hacking        Trackers Programming Corner     Coding        Python        .Net (C#, VB, etc)        Flash        JAVA        Autoit        Batch        HTML & CSS        Javascript        PHP        Other        IMVU Homepage Codes           General           About me Panel           Messages Panel           Special Someone Panel           Visitors Panel           New Products Panel           Rankings Panel           Wishlist Panel           My Badges Panel           Outfits Panel           Url Panel           Groups Panel           Slideshow Panel           My Room Panel           Sandbox panel           Layouts     Help & Requests Free Credits     Approved Methods     Submit Methods Free Money     Approved Methods     Submit Methods Adult Corner     Get Mafia AP Here     AP Lounge        AP Social Games        Casual Dating Tips     IMVU Slave Market & Escorts