;;;;批量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)
)
声明：因本站是虚拟物品一旦购买概不退款，请谨慎购买！
加微信：139 5099 9860 拉客服进一个微信群,即可免费获得一个年会员！
任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理（gf#celiang.net 请把#替换成@）。