sujianpo 发表于 2011-8-21 00:20:32

还可以，不错的支持了

nokoy 发表于 2011-8-27 08:29:30

lqss 发表于 2011-3-12 09:54 static/image/common/back.gif
试试这个。

怎么使用啊，麻烦兄弟说明一下。

zlf2008 发表于 2011-8-27 13:30:51

呵呵，这样也可以，不错

gxlx2007 发表于 2011-10-12 20:17:33

怎么个用法呀？介绍下

xyp1964 发表于 2011-10-20 08:45:15

;; 原点批量插图块
(defun c:tt (/ pf path lst)
(defun sub (path lst mode / a name)
    (foreach a lst
      (setq name (strcat path a)
          name (if (= mode 0)
                   name
                   (strcat "*" name)
               )
      )
      (command "insert" name "0,0" "1" "1" "")
    )
)
(setq        dwg(getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8)
        path (strcat (vl-filename-directory dwg) "\\")
        lst(vl-directory-files path "*.dwg" 1)
        ukw(UKWORD 1 "1 2" "1-按块插入/2-解块插入" ukw)
)
(prompt "\n程序正在插入图幅，请等待...")
(cond        ((= ukw "1") (sub path lst 0))
        ((= ukw "2") (sub path lst t))
)
(princ)
)
(defun ukword (bit kwd msg def / inp)
(if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getkword msg))
(if inp
    inp
    def
)
)

leest76 发表于 2011-10-25 21:01:03

有这个吗   一般都是插入的

xiaolong1487 发表于 2011-10-26 09:05:02

试用9楼的！

QQ899 发表于 2011-11-6 22:31:35

挺不错的，顶啊!!!!!!!!!!

mjz521yy 发表于 2011-12-16 13:04:47

俺有，批量拼图程序绿色版。需要就。。。

haiyunzhou 发表于 2012-1-14 15:25:28

非常不错
页: 1 2 3 [4] 5 6 7
查看完整版本: 多个CAD文件合并到一张CAD图中