多个CAD文件合并到一张CAD图中

sujianpo

还可以，不错的支持了

nokoy

lqss 发表于 2011-3-12 09:54
试试这个。

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

zlf2008

呵呵，这样也可以，不错

gxlx2007

怎么个用法呀？介绍下

xyp1964

2. ;; 原点批量插图块
   
3. (defun c:tt (/ pf path lst)
   
4.   (defun sub (path lst mode / a name)
   
5.     (foreach a lst
   
6.       (setq name (strcat path a)
   
7.             name (if (= mode 0)
   
8.                    name
   
9.                    (strcat "*" name)
   
10.                  )
    
11.       )
    
12.       (command "insert" name "0,0" "1" "1" "")
    
13.     )
    
14.   )
    
15.   (setq        dwg  (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8)
    
16.         path (strcat (vl-filename-directory dwg) "\")
    
17.         lst  (vl-directory-files path "*.dwg" 1)
    
18.         ukw  (UKWORD 1 "1 2" "1-按块插入/2-解块插入" ukw)
    
19.   )
    
20.   (prompt "\n程序正在插入图幅，请等待...")
    
21.   (cond        ((= ukw "1") (sub path lst 0))
    
22.         ((= ukw "2") (sub path lst t))
    
23.   )
    
24.   (princ)
    
25. )
    
26. (defun ukword (bit kwd msg def / inp)
    
27.   (if (and def (/= def ""))
    
28.     (setq msg (strcat "\n" msg "<" def ">: ")
    
29.           bit (* 2 (fix (/ bit 2)))
    
30.     )
    
31.     (setq msg (strcat "\n" msg ": "))
    
32.   )
    
33.   (initget bit kwd)
    
34.   (setq inp (getkword msg))
    
35.   (if inp
    
36.     inp
    
37.     def
    
38.   )
    
39. )

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

leest76

有这个吗   一般都是插入的

xiaolong1487

试用9楼的！

QQ899

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

mjz521yy

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

haiyunzhou

非常不错