批量DWG

lq8000 · 发表于 2023-6-28 22:24

;;;;批量DWG处理框架  很笨但可以解决问题，批量也能command
(defun c:ttc (/ ml file files)
  (vl-load-com)
  (setvar "OSMODE" 0)
  (setvar "sdi" 1)
  (setvar "lispinit" 0)
  (setq ml (acet-ui-pickdir "选择目录" "" "请指定目录"))
  (setq files (vl-directory-files ml "*.dwg"))
  (foreach file files
(command "open")
(command (strcat ml "\\" file))
;;;;请在这里发挥你的梦想
(vl-cmdf "pline" "0,0" "1,1" "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(vl-cmdf "qsave")
  )
  (setvar "sdi" 0)
  (setvar "lispinit" 1)
  (vl-cmdf "close")
)

(defun c:hhff();;出错恢复变量
  (setvar "sdi" 0)
  (setvar "lispinit" 1)
  )

lq8000 · 发表于 2023-6-28 22:28

搜素了各种帖子，憋屈了好几天，终于整明白了，分享给各位！

树櫴希德 · 发表于 2023-6-30 19:47

太强大了不明觉厉

jh3030912 · 发表于 2023-9-2 00:53

怎么使用呢？

jh3030912 · 发表于 2023-9-2 15:40

怎样设置成自定义命令TT1

guohq · 发表于 2023-11-15 22:51

acet-ui-pickdir 这个功能是哪里来的？要交待清楚了，不然别人也用不了。

lq8000 · 发表于 2023-12-30 19:02

Express，cad安装Express扩展即可使用不需要交待

账号		自动登录	找回密码
密码			注册

批量DWG

相关帖子