0

我正在编写一个 lisp 应用程序来为 CNC 刀具创建 2D 模式。我有一个 Excel 程序，它为与每个模式关联的各个部分输出 3-10 个短 lisp 子例程，我可以让任意数量的这些子例程加载到我的“while”循环中并绘制该部分，但是我没有任何方法可以开始从其中一个模式潜艇生成的图纸中创建.dxf 文件，这将使我恢复循环。如果我拉出 dxfout 并擦除步骤，然后让它们相互叠加，它就像一种魅力。

(defun c:CreateDXF (/ owd ofd sdate)

  (setq owd (acet-file-cwd))
  (acet-file-chdir "P:\\")
  (setq ofd (getvar "filedia"))
  (setvar "filedia" 0)

  (setq sdate (getstring "\nEnter the order start date in YYYYMMDD format: "))

  (setq fpath (strcat "P:\\LSP\\" sdate))
  (setq wopath (acet-ui-pickdir "Select Work Order Folder" fpath))
  (setq flist (vl-directory-files wopath "*.lsp" 1))

  (while (> (length flist) 0)
    (setq fname (car flist))
    (setq wfile (strcat wopath "\\" fname))
    (vl-file-rename wfile "P:\\LSP\\temp.lsp")
    (load "P:\\LSP\\temp.lsp")
    (vl-file-rename "P:\\LSP\\temp.lsp" wfile)

    (setq savepath (strcat "P:\\DXF\\" sdate))
    (setq savename (strcat (vl-filename-base wfile) ".dxf"))

    (setq patt (ssget "x"))

    (command "_.dxfout" savepath "_Objects" patt "" "_Version" "2013" "16" "" "")

    (command "erase" "all" "")
    (setq flist (cdr flist))

    );while

  (acet-file-chdir owd)
  (setvar "filedia" ofd)

  (alert "Done")
  (princ)

);defun

在第一个 dxfout 步骤中按书面方式运行它会挂起。我可以通过lisp编辑器重置程序，然后文件出现在输出目录中，dxf出现在一个新选项卡中，但显然退出循环而不处理其余部分。

我错过了一些明显的东西吗？将所有图案片与命名实体一起绘制在同一图纸中，然后在最后批量处理每个实体会更好吗？

4

1 回答 1

0

从 AutoCAD 外部处理此问题可能更容易。也许使用 PowerShell 脚本来获取 .dwg 文件列表，打开 AutoCAD，然后循环遍历绘图列表，导出 .dxf，关闭 .dwg 并执行下一步，然后关闭 AutoCAD。

于 2017-04-20T02:35:10.553 回答