三角形と円の図面(dxfファイル)をAutoLispソースコード化するPythonプログラム

三角形と円を描いたdxfファイルをAutoLispソースコードに変換するPythonコードをDeep Seekを使って生成させた。

```python import tkinter as tk from tkinter import filedialog, messagebox, scrolledtext import ezdxf class AutoLISPConverterApp: def __init__(self, root): self.root = root self.root.title("AutoCAD to AutoLISP Converter") self.root.geometry("800x600") self.create_widgets() def create_widgets(self): # ファイル選択フレーム file_frame = tk.LabelFrame(self.root, text="ファイル選択", padx=5, pady=5) file_frame.pack(fill="x", padx=10, pady=5) self.file_path = tk.StringVar() tk.Entry(file_frame, textvariable=self.file_path, width=50).pack(side="left", padx=5) tk.Button(file_frame, text="参照...", command=self.browse_file).pack(side="left", padx=5) # 変換オプションフレーム option_frame = tk.LabelFrame(self.root, text="変換オプション", padx=5, pady=5) option_frame.pack(fill="x", padx=10, pady=5) self.include_layers = tk.BooleanVar(value=True) tk.Checkbutton(option_frame, text="レイヤー情報を含める", variable=self.include_layers).pack(anchor="w") self.include_colors = tk.BooleanVar(value=True) tk.Checkbutton(option_frame, text="色情報を含める", variable=self.include_colors).pack(anchor="w") # 変換ボタン tk.Button(self.root, text="AutoLISPに変換", command=self.convert_to_lisp, bg="#4CAF50", fg="white").pack(pady=10) # 結果表示 result_frame = tk.LabelFrame(self.root, text="生成されたAutoLISPコード", padx=5, pady=5) result_frame.pack(fill="both", expand=True, padx=10, pady=5) self.result_text = scrolledtext.ScrolledText(result_frame, wrap=tk.WORD, width=80, height=20) self.result_text.pack(fill="both", expand=True, padx=5, pady=5) # コピーボタン tk.Button(self.root, text="コードをコピー", command=self.copy_to_clipboard).pack(pady=5) def browse_file(self): filetypes = [("AutoCAD Files", "*.dwg *.dxf"), ("All Files", "*.*")] filename = filedialog.askopenfilename(filetypes=filetypes) if filename: self.file_path.set(filename) def convert_to_lisp(self): filename = self.file_path.get() if not filename: messagebox.showerror("エラー", "ファイルを選択してください") return try: doc = ezdxf.readfile(filename) lisp_code = self.generate_lisp_code(doc) self.result_text.delete(1.0, tk.END) self.result_text.insert(tk.END, lisp_code) except Exception as e: messagebox.showerror("エラー", f"ファイルの処理中にエラーが発生しました:\n{str(e)}") def generate_lisp_code(self, doc): lisp_code = [] lisp_code.append(";; AutoLISP code generated from AutoCAD drawing") lisp_code.append("(defun c:DrawGeneratedObjects ()") lisp_code.append(" (command \"_.UNDO\" \"_BEGIN\")") modelspace = doc.modelspace() for entity in modelspace: try: if entity.dxftype() == 'LINE': lisp_code.extend(self.process_line(entity)) elif entity.dxftype() == 'CIRCLE': lisp_code.extend(self.process_circle(entity)) elif entity.dxftype() == 'ARC': lisp_code.extend(self.process_arc(entity)) elif entity.dxftype() in ('POLYLINE', 'LWPOLYLINE'): lisp_code.extend(self.process_polyline(entity)) # 他の図形タイプもここに追加可能 except Exception as e: print(f"エンティティ処理中にエラーが発生しました: {str(e)}") continue lisp_code.append(" (command \"_.UNDO\" \"_END\")") lisp_code.append(" (princ)") lisp_code.append(")") lisp_code.append("(princ \"\\nType 'DrawGeneratedObjects' to draw the objects.\")") lisp_code.append("(princ)") return "\n".join(lisp_code) def process_line(self, line): start = line.dxf.start end = line.dxf.end code = [ f" (command \"_.LINE\" \"{start[0]},{start[1]}\" \"{end[0]},{end[1]}\" \"\")" ] if self.include_layers.get(): code.insert(0, f" (command \"_.LAYER\" \"_S\" \"{line.dxf.layer}\" \"\")") if self.include_colors.get() and line.dxf.color != 256: # 256はBYLAYER code.insert(0, f" (command \"_.COLOR\" \"{line.dxf.color}\")") return code def process_circle(self, circle): center = circle.dxf.center radius = circle.dxf.radius code = [ f" (command \"_.CIRCLE\" \"{center[0]},{center[1]}\" \"{radius}\")" ] if self.include_layers.get(): code.insert(0, f" (command \"_.LAYER\" \"_S\" \"{circle.dxf.layer}\" \"\")") if self.include_colors.get() and circle.dxf.color != 256: code.insert(0, f" (command \"_.COLOR\" \"{circle.dxf.color}\")") return code def process_arc(self, arc): center = arc.dxf.center radius = arc.dxf.radius start_angle = arc.dxf.start_angle end_angle = arc.dxf.end_angle code = [ f" (command \"_.ARC\" \"C\" \"{center[0]},{center[1]}\" \"{radius}\" \"{start_angle}\" \"{end_angle}\")" ] if self.include_layers.get(): code.insert(0, f" (command \"_.LAYER\" \"_S\" \"{arc.dxf.layer}\" \"\")") if self.include_colors.get() and arc.dxf.color != 256: code.insert(0, f" (command \"_.COLOR\" \"{arc.dxf.color}\")") return code def process_polyline(self, polyline): code = [] if self.include_layers.get(): code.append(f" (command \"_.LAYER\" \"_S\" \"{polyline.dxf.layer}\" \"\")") if self.include_colors.get() and polyline.dxf.color != 256: code.append(f" (command \"_.COLOR\" \"{polyline.dxf.color}\")") code.append(" (command \"_.PLINE\")") if hasattr(polyline, 'vertices'): # LWPOLYLINE for vertex in polyline.vertices: code.append(f" (command \"{vertex[0]},{vertex[1]}\")") else: # POLYLINE (古い形式) for point in polyline.points(): # ここを修正 code.append(f" (command \"{point[0]},{point[1]}\")") code.append(" (command \"\")") return code def copy_to_clipboard(self): code = self.result_text.get(1.0, tk.END) if code.strip(): self.root.clipboard_clear() self.root.clipboard_append(code) messagebox.showinfo("成功", "AutoLISPコードがクリップボードにコピーされました") else: messagebox.showwarning("警告", "コピーするコードがありません") if __name__ == "__main__": root = tk.Tk() app = AutoLISPConverterApp(root) root.mainloop() ```

こちらは変換により生成されたAutoLispソースコード

```autolisp ;; AutoLISP code generated from AutoCAD drawing (defun c:DrawGeneratedObjects () (command "_.UNDO" "_BEGIN") (command "_.LINE" "475817.0755677749,685171.5836531107" "1001497.635042477,558466.1549635085" "") (command "_.LINE" "1001497.635042477,558466.1549635085" "776888.6678596484,293101.9558366717" "") (command "_.LINE" "776888.6678596484,293101.9558366717" "475817.0755677749,685171.5836531107" "") (command "_.UNDO" "_END") (princ) ) (princ "\nType 'DrawGeneratedObjects' to draw the objects.") (princ) ```  

どうやら三角形しか反映されていないみたいだ。