lisp代码将一个CAD文件中的多张图纸分给导出到文件夹

yimiyangguang55

求教群里的各位高人：
      最近处理CAD图纸遇到一个问题，需要将一个AutoCAD文件中的多张图纸，想按照从左至右，从上到下的顺序，分割为独立的文件，并保存在源文件所在的文件夹中，命名可以以源文件名+序号表示；
     另外也需要将多个CAD文件中的图纸，全部汇总到一个CAD文件中，按照文件名，从左往右排列。这样两种文件可以方便切换操作。
AI写的代码错误一大堆，完全用不了。还是需要高手指导。
谢谢了

lzspain

第一个拆分，可以用秋枫批打实现，第二个合并，可以用谜你工具箱实现

szhorse

拆分：dwg单文件，个人认为目前MSteel是首选。
合并：论坛中应该有不少，图纸合并；迷你是个不错的选择

yimiyangguang55

论坛里的mini工具箱 没有合并功能，谁能分享一个。 分割发现bplot就可以分割

Klein

分图推荐MSteel批打印，如果图框是标准块还可以实现文件按规则自动命名

你有种再说一遍

其实嘛...这个问题嘛...我觉得还是蛮简单的...
唯一的难点就是导图的时候需要转换视口视点的控制...

yimiyangguang55

你有种再说一遍 发表于 2024-5-20 16:56
其实嘛...这个问题嘛...我觉得还是蛮简单的...
唯一的难点就是导图的时候需要转换视口视点的控制...

有什么好的程序吗

你有种再说一遍

yimiyangguang55 发表于 2024-5-21 16:55
有什么好的程序吗

貌似没有,不过学了c#的人基本都能做出来.

unclearriver

第二个需求可以大概参考一下
(defun c:tt (/ lst p1)
        (setvar "cmdecho" 0)
        (setq p1 '(0 0 0))
        (setq lst (vl-directory-files "C:\\多个DWG文件所在的文件夹" nil 1) p1 '(0 0 0) )
        (foreach x lst
                (setq p1 (polar p1 0 90000))
                (vl-cmdf "insert" (strcat  "C:\\多个DWG文件所在的文件夹\\" x) p1 1 1 0)
        )
        (setvar "cmdecho" 1)
        (princ)
)

yimiyangguang55

unclearriver 发表于 2024-5-22 21:14
第二个需求可以大概参考一下
(defun c:tt (/ lst p1)
        (setvar "cmdecho" 0)

没法合并