Help needed for exporting graphplot3d to dxf

*To*: mathgroup at smc.vnet.net*Subject*: [mg104019] Help needed for exporting graphplot3d to dxf*From*: Jonas Aarsø Larsen <jaarsoe at gmail.com>*Date*: Fri, 16 Oct 2009 07:17:19 -0400 (EDT)

Hi, I have a notebook that uses an parsing algorithm to generate a network surface based on cellular automata rules. The problem I am having is when using graphplot3d I cant seem to be able to export it to a dxf file, which is what I need. Here is the lines of codes producing the graph: ca = 23; init = 1; size = Large; i = 1; g = GraphPlot3D[treerules[CellularAutomaton[ca, inits[size][[init]], size /. {Small -> 10, Medium -> 15, Large -> 20}], i]] This gives me the graph (treerules refers to the parsing algorithm). I then try to use the following code for exporting since this has been succesful with other notebooks I have used: << GraphUtilities` F = Flatten[g] Thread[VertexList[F] -> GraphCoordinates3D[F]]; EdgeList[F] /. %; Graphics3D[Line[#] & /@ %] Export["Network1.dxf", %] when I run this it tells me: Flatten::normal: Nonatomic expression expected at position 1 in Flatten [g]. and i produces a dxf file with no geometry in it. Can anyone help me understand what I need to change? Thanks, Jonas