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

批量DWG

;;;;批量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:06

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

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

太强大了 不明觉厉

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

怎么使用呢？

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

怎样设置成 自定义命令TT1

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

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

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

Express，cad安装Express扩展即可使用不需要交待
页: [1]
查看完整版本: 批量DWG