I want to convert a TikZ graph from TikZiT into a graph in Mathematica. I want to retain the vertices, edges, and the positions of the vertices. As for the color of the vertices or the style of the edges, I don't need to worry about that for now. Then I used the code written by GPT (with some minor adjustments on my part). When the edge style is not set, everything works fine.
The information of a graph in TikZIt is explained as follows.
\node [style=square] (1) at (10, -10) {};The node, named 1, is located at (10, -10).
\draw [style=blackedge] (5) to (11);or
\draw (5) to (11);This means an egde (5,11) (edge style is like to style=..).
A graph code is stored in test.tikz:
\begin{tikzpicture}[scale=1.0] \begin{pgfonlayer}{nodelayer} \node [style=square] (1) at (10, -10) {}; \node [style=whitenode] (2) at (5.29412, -3.33333) {}; \node [style=square] (3) at (10, 10) {}; \node [style=square] (4) at (-10, -10) {}; \node [style=whitenode] (5) at (3.33333, -5.29412) {}; \node [style=whitenode] (6) at (2.54902, -1.37255) {}; \node [style=whitenode] (7) at (5.29412, 3.33333) {}; \node [style=whitenode] (8) at (3.33333, 5.29412) {}; \node [style=square] (9) at (-10, 10) {}; \node [style=whitenode] (10) at (-5.29412, -3.33333) {}; \node [style=whitenode] (11) at (-3.33333, -5.29412) {}; \node [style=whitenode] (12) at (1.37255, -2.54902) {}; \node [style=square] (13) at (0.980392, -0.980392) {}; \node [style=whitenode] (14) at (2.54902, 1.37255) {}; \node [style=whitenode] (15) at (1.37255, 2.54902) {}; \node [style=whitenode] (16) at (-3.33333, 5.29412) {}; \node [style=whitenode] (17) at (-5.29412, 3.33333) {}; \node [style=whitenode] (18) at (-2.54902, -1.37255) {}; \node [style=whitenode] (19) at (-1.37255, -2.54902) {}; \node [style=square] (20) at (-0.980392, -0.980392) {}; \node [style=square] (21) at (0.980392, 0.980392) {}; \node [style=whitenode] (22) at (-1.37255, 2.54902) {}; \node [style=whitenode] (23) at (-2.54902, 1.37255) {}; \node [style=square] (24) at (-0.980392, 0.980392) {}; \end{pgfonlayer} \begin{pgfonlayer}{edgelayer} \draw (1) to (2); \draw (1) to (3); \draw (1) to (4); \draw (1) to (5); \draw (2) to (5); \draw (2) to (6); \draw (2) to (7); \draw (3) to (7); \draw (3) to (8); \draw (3) to (9); \draw (4) to (9); \draw (4) to (10); \draw (4) to (11); \draw (5) to (11); \draw (5) to (12); \draw (6) to (12); \draw (6) to (13); \draw (6) to (14); \draw (7) to (8); \draw (7) to (14); \draw (8) to (15); \draw (8) to (16); \draw (9) to (16); \draw (9) to (17); \draw (10) to (11); \draw (10) to (17); \draw (10) to (18); \draw (11) to (19); \draw (12) to (13); \draw (12) to (19); \draw (13) to (20); \draw (13) to (21); \draw (14) to (15); \draw (14) to (21); \draw (15) to (21); \draw (15) to (22); \draw (16) to (17); \draw (16) to (22); \draw (17) to (23); \draw (18) to (19); \draw (18) to (20); \draw (18) to (23); \draw (19) to (20); \draw (20) to (24); \draw (21) to (24); \draw (22) to (23); \draw (22) to (24); \draw (23) to (24); \draw (16) to (15); \draw (8) to (22); \draw (17) to (22); \draw (16) to (23); \draw (23) to (10); \draw (17) to (18); \draw (18) to (11); \draw (10) to (19); \draw (19) to (5); \draw (12) to (11); \draw (6) to (5); \draw (12) to (2); \draw (2) to (14); \draw (7) to (6); \draw (15) to (7); \draw (8) to (14); \draw (22) to (21); \draw (15) to (24); \draw (24) to (13); \draw (21) to (20); \draw (20) to (12); \draw (13) to (19); \draw (23) to (20); \draw (24) to (18); \draw (13) to (14); \draw (6) to (21); \draw (9) to (10); \draw (17) to (4); \draw (4) to (5); \draw (11) to (1); \draw (1) to (7); \draw (3) to (2); \draw (9) to (8); \draw (16) to (3); \draw (4) to (3); \draw (9) to (1); \end{pgfonlayer}\end{tikzpicture}ImportTikZGraph[file_String] := Module[{tikzCode, lines, nodes, edges, line, parts, nodeID, xCoord, yCoord, startNode, endNode, g},(*Import the TikZ code from the file*) tikzCode = Import[file, "Text"]; (*Initialize lists for nodes and edges*)nodes = {}; edges = {}; (*Split the TikZ code into lines*) lines = StringSplit[tikzCode, "\n"]; (*Extract node information*) For[i = 1, i <= Length[lines], i++, line = StringTrim[lines[[i]]]; If[StringStartsQ[line, "\\node"],(*Extract node ID and coordinates*) parts = StringCases[line, "\\node [" ~~ ___ ~~ "] (" ~~ nodeID : DigitCharacter .. ~~ ") at (" ~~ x : (DigitCharacter | "." | "-" | "E") .. ~~ ", " ~~ y : (DigitCharacter | "." | "-" | "E") .. ~~ ") {};" :> {nodeID, x, y}]; If[Length[parts] > 0, nodeID = ToExpression[parts[[1, 1]]]; xCoord = ToExpression[parts[[1, 2]]]; yCoord = ToExpression[parts[[1, 3]]]; AppendTo[nodes, nodeID -> {xCoord, yCoord}];];];]; (*Extract edge information*) For[i = 1, i <= Length[lines], i++, line = StringTrim[lines[[i]]]; If[StringStartsQ[line, "\\draw"],(*Extract the start and end nodes of edges*) parts = StringCases[line, "\\draw (" ~~ startNode : DigitCharacter .. ~~ ") to (" ~~ endNode : DigitCharacter .. ~~ ");" :> {startNode, endNode}]; If[Length[parts] > 0, startNode = ToExpression[parts[[1, 1]]]; endNode = ToExpression[parts[[1, 2]]]; AppendTo[edges, UndirectedEdge[startNode, endNode]];];];]; (*Create the graph from extracted edges and node positions*) g = Graph[edges, VertexCoordinates -> nodes, VertexStyle -> GrayLevel[1], VertexSize -> Medium]; (*Return the graph*)g]graph = ImportTikZGraph["test.tikz"]
However, when I set the edge styles, it seems to fail. I've tried a few times.
\begin{tikzpicture}[scale=1.0] \begin{pgfonlayer}{nodelayer} \node [style=square] (1) at (10, -10) {}; \node [style=whitenode] (2) at (5.29412, -3.33333) {}; \node [style=square] (3) at (10, 10) {}; \node [style=square] (4) at (-10, -10) {}; \node [style=whitenode] (5) at (3.33333, -5.29412) {}; \node [style=whitenode] (6) at (2.54902, -1.37255) {}; \node [style=whitenode] (7) at (5.29412, 3.33333) {}; \node [style=whitenode] (8) at (3.33333, 5.29412) {}; \node [style=square] (9) at (-10, 10) {}; \node [style=whitenode] (10) at (-5.29412, -3.33333) {}; \node [style=whitenode] (11) at (-3.33333, -5.29412) {}; \node [style=whitenode] (12) at (1.37255, -2.54902) {}; \node [style=square] (13) at (0.980392, -0.980392) {}; \node [style=whitenode] (14) at (2.54902, 1.37255) {}; \node [style=whitenode] (15) at (1.37255, 2.54902) {}; \node [style=whitenode] (16) at (-3.33333, 5.29412) {}; \node [style=whitenode] (17) at (-5.29412, 3.33333) {}; \node [style=whitenode] (18) at (-2.54902, -1.37255) {}; \node [style=whitenode] (19) at (-1.37255, -2.54902) {}; \node [style=square] (20) at (-0.980392, -0.980392) {}; \node [style=square] (21) at (0.980392, 0.980392) {}; \node [style=whitenode] (22) at (-1.37255, 2.54902) {}; \node [style=whitenode] (23) at (-2.54902, 1.37255) {}; \node [style=square] (24) at (-0.980392, 0.980392) {}; \end{pgfonlayer} \begin{pgfonlayer}{edgelayer} \draw [style=blackedge] (1) to (2); \draw [style=blackedge] (1) to (3); \draw [style=blackedge] (1) to (4); \draw [style=blackedge] (1) to (5); \draw [style=blackedge] (2) to (5); \draw [style=blackedge] (2) to (6); \draw [style=blackedge] (2) to (7); \draw [style=blackedge] (3) to (7); \draw [style=blackedge] (3) to (8); \draw [style=blackedge] (3) to (9); \draw [style=blackedge] (4) to (9); \draw [style=blackedge] (4) to (10); \draw [style=blackedge] (4) to (11); \draw [style=blackedge] (5) to (11); \draw [style=blackedge] (5) to (12); \draw [style=blackedge] (6) to (12); \draw [style=blackedge] (6) to (13); \draw [style=blackedge] (6) to (14); \draw [style=blackedge] (7) to (8); \draw [style=blackedge] (7) to (14); \draw [style=blackedge] (8) to (15); \draw [style=blackedge] (8) to (16); \draw [style=blackedge] (9) to (16); \draw [style=blackedge] (9) to (17); \draw [style=blackedge] (10) to (11); \draw [style=blackedge] (10) to (17); \draw [style=blackedge] (10) to (18); \draw [style=blackedge] (11) to (19); \draw [style=blackedge] (12) to (13); \draw [style=blackedge] (12) to (19); \draw [style=blackedge] (13) to (20); \draw [style=blackedge] (13) to (21); \draw [style=blackedge] (14) to (15); \draw [style=blackedge] (14) to (21); \draw [style=blackedge] (15) to (21); \draw [style=blackedge] (15) to (22); \draw [style=blackedge] (16) to (17); \draw [style=blackedge] (16) to (22); \draw [style=blackedge] (17) to (23); \draw [style=blackedge] (18) to (19); \draw [style=blackedge] (18) to (20); \draw [style=blackedge] (18) to (23); \draw [style=blackedge] (19) to (20); \draw [style=blackedge] (20) to (24); \draw [style=blackedge] (21) to (24); \draw [style=blackedge] (22) to (23); \draw [style=blackedge] (22) to (24); \draw [style=blackedge] (23) to (24); \draw [style=blueedge] (16) to (15); \draw [style=blueedge] (8) to (22); \draw [style=blueedge] (17) to (22); \draw [style=blueedge] (16) to (23); \draw [style=blueedge] (23) to (10); \draw [style=blueedge] (17) to (18); \draw [style=blueedge] (18) to (11); \draw [style=blueedge] (10) to (19); \draw [style=blueedge] (19) to (5); \draw [style=blueedge] (12) to (11); \draw [style=blueedge] (6) to (5); \draw [style=blueedge] (12) to (2); \draw [style=blueedge] (2) to (14); \draw [style=blueedge] (7) to (6); \draw [style=blueedge] (15) to (7); \draw [style=blueedge] (8) to (14); \draw [style=blueedge] (22) to (21); \draw [style=blueedge] (15) to (24); \draw [style=blueedge] (24) to (13); \draw [style=blueedge] (21) to (20); \draw [style=blueedge] (20) to (12); \draw [style=blueedge] (13) to (19); \draw [style=blueedge] (23) to (20); \draw [style=blueedge] (24) to (18); \draw [style=blueedge] (13) to (14); \draw [style=blueedge] (6) to (21); \draw [style=blueedge] (9) to (10); \draw [style=blueedge] (17) to (4); \draw [style=blueedge] (4) to (5); \draw [style=blueedge] (11) to (1); \draw [style=blueedge] (1) to (7); \draw [style=blueedge] (3) to (2); \draw [style=blueedge] (9) to (8); \draw [style=blueedge] (16) to (3); \draw [style=blueedge, bend left=60, looseness=2.25] (4) to (3); \draw [style=blueedge, bend left=60, looseness=2.25] (9) to (1); \end{pgfonlayer}\end{tikzpicture}It looks the following: