autocad - 另存为选定对象 dwg 格式

Question

我尝试保存 dwg 文档，但仅使用选定的对象，我知道我可以使用 wblock 命令，但我只需要使用 ssget 和 saveas 命令。

(setq 选择 (ssget))

任何知道任何选择？

Answer 1

如果要使用 SAVEAS 命令，则必须在调用 SAVEAS 之前从图形中删除所有未选择的对象。您必须记住 AutoLISP 在文档上下文中运行，因此只要 SAVEAS 命令破坏当前文档，LISP 例程就会结束。

(defun c:foo (/ s1 s2 i)
  (if (setq s1 (ssget))
    (progn
      (setq s2 (ssget "_X"))
      (repeat (setq i (sslength s1))
        (ssdel (ssname s1 (setq i (1- i))) s2)
      )
      (repeat (setq i (sslength s2))
        (entdel (ssname s2 (setq i (1- i))))
      )
      (command "_.saveas"
               ""
               (strcat
                 "C:\\Temp\\DrawingFromSelection_"
                 (menucmd "M=$(edtime,$(getvar,date),YYYYMMDD-HHMMSS)")
               )
      )
    )
  )
  (princ)
)