如何将多个DWG文件图纸自动导入一个DWG文件中？

123abc · 发表于 2004-11-22 23:42:00

请坛中老师帮忙：我们平时绘制的图纸，都是一页图纸一个DWG文件，都是采用相同的图框，文件编号依次为01.dwg、02.dwg……
本人想将这些图纸自动导入到一个DWG图纸中，按5 个一行有规律的进行排列，这能否实现？反之，能否将在一个DWG文件中，按5个一行排列的图纸，再自导出为一个个单个的DWG文件？如能用lisp编程更好。

meflying · 发表于 2004-11-23 08:25:00

可以，，，给一个你的图框（DWG文件）

123abc · 发表于 2004-11-23 10:05:00

图框

bobygril · 发表于 2004-11-23 12:31:00

这个应该挺实用的，飞版什么时候发出来啊？

meflying · 发表于 2004-11-24 08:53:00

我不信你的图框是这样的

meflying · 发表于 2004-11-24 09:26:00

这是按你的图框的一个导入程序，如果有什么问题，请详细说明，不要我来问。。。

(defun c:im( / i dir pt_last files os)
(setq i 0)
(setq dir (GetFolder "选择文件夹..."))
(setq pt_last (getpoint "选择起点:"))
(setq pt_last (polar pt_last 0 4200))
(setq files (vl-directory-files dir "*.dwg" 1))
(if (/= (substr dir (1- (strlen dir)) 1) "\")
(setq dir (strcat dir "\"))
)
(setvar "cmdecho" 0)
(command "_.undo" "be")
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(repeat (length files)
(setq pt_last (Insert (strcat "*" dir (nth i files)) pt_last i))
(setq i (1+ i))
)
(setvar "osmode" os)
(command "_.undo" "e")
(princ)
)
(defun insert(filename pt_last index)
(setq filename (strcat """ filename """))
(if (= (rem index 5) 0)
(setq pt_last (list (- (car pt_last) 4200) (- (cadr pt_last) 850)));polar pt_last pi 4200))
(setq pt_last (polar pt_last 0 1050))
)
(command "_.insert" filename pt_last "" "" )
pt_last
)
(defun GetFolder (msg / WinShell shFolder path catchit)
(setq winshell (vlax-create-object "Shell.Application"))
(setq
shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)
)
(setq
catchit (vl-catch-all-apply
'(lambda ()
(setq shFolder (vlax-get-property shFolder 'self))
(setq path (vlax-get-property shFolder 'path))
)
)
)
(if (vl-catch-all-error-p catchit)
nil
path
)
)

(defun c:im( / i dir pt_last files os)
   (setq i 0)
   (setq dir (GetFolder "选择文件夹..."))
   (setq pt_last (getpoint "选择起点:"))
   (setq pt_last (polar pt_last 0 4200))
   (setq files (vl-directory-files dir "*.dwg" 1))
   (if (/= (substr dir (1- (strlen dir)) 1) "\")
       (setq dir (strcat dir "\"))
   )
   (setvar "cmdecho" 0)
   (command "_.undo" "be")
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (repeat (length files)
       (setq pt_last (Insert (strcat "*" dir (nth i files)) pt_last i))
       (setq i (1+ i))
   )
   (setvar "osmode" os)
   (command "_.undo" "e")
   (princ)
)
(defun insert(filename pt_last index)
   (setq filename (strcat """ filename """))   
   (if (= (rem index 5) 0)
       (setq pt_last (list (- (car pt_last) 4200) (- (cadr pt_last) 850)));polar pt_last pi 4200))
       (setq pt_last (polar pt_last 0 1050))
   )
   (command "_.insert" filename pt_last "" "" )
   pt_last
)
(defun GetFolder (msg / WinShell shFolder path catchit)
   (setq winshell (vlax-create-object "Shell.Application"))
   (setq
       shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)
   )
   (setq
       catchit (vl-catch-all-apply
             '(lambda ()
     (setq shFolder (vlax-get-property shFolder 'self))
     (setq path (vlax-get-property shFolder 'path))
               )
         )
   )
   (if (vl-catch-all-error-p catchit)
       nil
       path
   )
)

chen4 · 发表于 2004-11-24 11:16:00

放错位置了

meflying · 发表于 2004-11-24 11:37:00

chen4发表于2004-11-24 11:16:00回复：（chen4）文件另存并激活、修改后保存放错位置了

？？？？？？

123abc · 发表于 2004-11-24 16:28:00

谢谢meflying老师：我晚上来认真学习，争取弄懂它。

123abc · 发表于 2004-11-24 23:07:00

meflying老师：没有找到GetFolder这个命令，我是AutoCAD2000.

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

如何将多个DWG文件图纸自动导入一个DWG文件中？

本帖子中包含更多资源

文件另存并激活、修改后保存