Tạo giúp lisp giúp chuyển file DWG sang DXF

[Nguyen Sonnd 0]

Bác nào tạo giúp em lisp chuyển nhanh file từ DWG sang DXF hoặc bác nào có lisp rồi chia sẻ cho em xin với ạ. 

Em cảm ơn.

[cuongtk2 474]

Code bởi Gemini, đã test.

(defun c:DXF (/ *error* dwgName dxfPath acDoc)
  (vl-load-com)
  
  ;; Ham xu ly loi
  (defun *error* (msg)
    (if (not (member msg '("Function cancelled" "quit / exit abort")))
      (princ (strcat "\n** Error: " msg " **"))
    )
    (princ)
  )

  (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))

  ;; 1. Lay duong dan va ten file hien tai (bo duoi .dwg)
  (setq dwgName (getvar "DWGPREFIX")) ; Lay thu muc chua file
  (setq dwgName (strcat dwgName (vl-filename-base (getvar "DWGNAME")) ".dxf")) ; Ghep ten file voi duoi .dxf

  ;; 2. Thuc hien lenh DXFOUT
  ;; Dung (if (findfile dwgName) ...) de kiem tra neu file ton tai thi ghi de
  (if (findfile dwgName)
    (command "._DXFOUT" dwgName "_Y" "16") ; "_Y" de dong y ghi de, "16" la phien ban AutoCAD 2013/2018
    (command "._DXFOUT" dwgName "16")
  )

  (princ (strcat "\nDa xuat file tai: " dwgName))
  (princ)
)