[求助]：有批量INSERT 图块的程序吗?

westlake

在AUTOCAD中,有时想一次性insert多个图块,但是一直找不到,有时真没办法,20多个一个一个地INSERT,真是折磨人呀!
昨天发现CASS 6.1有那功能，不过实验后没有成功，故在此向大家求助，希望大家来帮帮我！！

小玩童

CASS这软件确实是挺破的，和SCS一样，看起来功能很多，但真要用的时候很多都不能用

xshrimp

插入时以以０，０基地点插入的,总图拼图时常用的.

小玩童

对啦，我想问问楼主，你那些图应该是从总图裁减的吧？那样就好办！

xshrimp

[php];;; 以0,0为基点按顺序批量插入文件夹中的dwg文件。
(defun c:plct (/ mulu_file name nn used_file z_dwg oldqaflags)
  (setvar "cmdecho" 0)
  (setq oldqaflags (getvar "qaflags"))
  (setq oldattdia (getvar "attdia"))
  (setvar "attdia" 0)
  (setvar "qaflags" 1)
  (setq used_file (getfiled "选一个dwg文件" "" "DWG" 2)) ; 原始数据
  (setq mulu_file (vl-filename-directory used_file)) ; 原始文件目录.
  (setq z_dwg (vl-directory-files mulu_file)) ; 取得所有文件列表
  (setq z_dwg (acad_strlsort z_dwg))
  (setq nn 0)
  (repeat (length z_dwg)
    (setq name (strcat mulu_file "\\" (nth nn z_dwg)))
    (if (= nil (vl-filename-extension name))
      (princ)
      (if (= ".DWG" (strcase (vl-filename-extension name)))
        (command ".insert" name "0,0" "1" "1" "0")
      )                                       ; end if
    )                                       ; end if
    (setq nn (+ 1 nn))
  )
  (command "EXPLODE" "ALL" "")
  (setvar "attdia" oldattdia)
  (setvar "qaflags" oldqaflags)
)[/php]

gufengyin

(setq name (strcat mulu_file "\" (nth nn z_dwg)))
应该修改为
(setq name (strcat mulu_file "\\" (nth nn z_dwg)))