是啊,俺都是不厌其烦,

我不会。

用vlisp简单写了一个，做个引子吧
(defun c:test()
;com init
(vl-load-com)
;call the directory common dialog by shell,then get the directory path
(setq objSH (vlax-create-object "Shell.Application"))
(setq dir (vlax-invoke-method objSH ’BrowseForFolder 0 "Select a forlder:" 1))
(setq msg (vl-catch-all-apply
’(lambda ()
(setq dir (vlax-get-property dir ’self))
(setq path (vlax-get-property dir ’path))
)
)
)
(if (vl-catch-all-error-p msg) (setq path nil))

(if path (setq dir (strcat path "\\")) (progn (princ "get directory path failure")(exit)))

;;get the list of all dwgfilename
(setq dwglist (vl-directory-files dir "*.dwg" 1))

;iter
(setq len (length dwglist))
(setq i -1)
(setq ybuf nil)

(repeat len
(setq dwgpath (strcat dir (nth (setq i (1+ i)) dwglist)))
;insert dwg by block
(command "_.insert" dwgpath (list 0 0 0) "" "" "")
(setq ent (entlast))
(vla-getboundingbox (vlax-ename->vla-object ent) ’minpoint ’maxpoint)
(setq pt1 (vlax-safearray->list minpoint)
pt2 (vlax-safearray->list maxpoint)
;here,you can calc perfect coordinates for your insert dwg
x1 (car pt1)
y1 (cadr pt1)
y2 (cadr pt2)
h (- y2 y1)
)
(if (= nil ybuf)
(progn
(setq ybuf (+ y2 (* h 1.1)))
)
(progn
(setq pt2 (list x1 ybuf))
(setq ybuf (+ ybuf (* h 1.1)))
(command "_.move" ent "" pt1 pt2)

)
)

(command "_.explode" ent)
);end iter
)

;;以下程序用于插入PKPM计算书wpj*.dwg
(defun c:iwpj ()
(setq dir (qf_getFolder "选择文件夹:"))
(if dir
(progn
(setq x 0)
(setq diet 30000)
(setq i (getint "\n输入起始层号:"))
(setq i (1- i))
(setq num (getint "\n输入最大层号:"))
(repeat (- num i)
(princ (strcat dir (strcat "\\wpj" (rtos i 2 0) ".dwg")))
(command
"_insert"
(strcat dir
(strcat "\\wpj" (rtos (setq i (1+ i)) 2 0) ".dwg")
)
(list 0 (setq x (+ diet x)) 0)
1000
1000
0
)

)
)
)
)

子函数:
(defun qf_getFolder (msg / WinShell shFolder path catchit)
;; 作者：秋枫，参考了灯火的VBA程序
;; 用法：(qf_getFolder msg)
;; 例子：(qf_getFolder "选择文件夹:")
;; 返回值：字符串，文件夹路径，如果点了cancel, 返回nil

(vl-load-com)
(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
)
)

我倒觉得简单点的话，就直接用外部引用，2004以上可以一次选很多张，一起引用，再一起绑定，就行了，只是要挪动一下位置

斑主的和吴所不及的已经是并列最佳了
俺就不来抢你们的积分了

有个小建议
根据图名分行列
免得排得比长城还长

比如PKPM计算书通常都是按楼层的
文件名都是以数字结尾
把相同的类型的如WPJ*按楼层排成一列
PL*再另外排成一列

。。。。

都是高手啊，我是菜鸟，只有学习的份，不过感谢版主给我提供这么好的学习机会。

CAD用蛮多，对于编程不是很懂，希望高手能给一些基本资料，让我等低手学习学习

以前学的编程知识,好久没用快忘完了,看来还应该再温习一次