Question

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

（setq selection（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)
)

保存为选定对象dwg格式

1 个答案: