怎么批量选取tif图像插入cad中

yangqingchao

本人也经常用到这个功能，一直都没找到合适的，只能单张插入，今天看到@Atsai提供的文件，使用起感觉非常方便，于是就将两个文件稍加整合，基本能实现楼主所说的功能，由于我不懂编程，所以难免有很多错误，但我自己测试基本功能可以使用，大神们不要喷我。

2. (vl-load-com)
   
3. 
   
4. (if (null degrad)
   
5.   (defun degrad  (ang)
   
6.     (* pi (/ ang 180.0))
   
7.   )
   
8. )
   
9. 
   
10. (if (null raddeg)
    
11.   (defun raddeg  (ang)
    
12.     (* 180.0 (/ ang pi))
    
13.   )
    
14. )
    
15. (defun c:iimg()
    
16.     (initget "1 2")
    
17.     (princ "\n选择插入影像方式:")
    
18.     (setq key (getkword "\n1单张\\2批量\\<1>:"))
    
19.        (cond ((not key) (dz))    ;
    
20.        ((= key "1") (dz))  ;
    
21.        ((= key "2") (pl))  ;
    
22.        );cond
    
23. )
    
24.   (defun dz()
    
25.    (findfile (setq im (getfiled "Select Image File"
    
26.                (getvar "dwgprefix")
    
27.                "tif;jpg;png;ecw"
    
28.                16
    
29.            )
    
30.         )
    
31.     )
    
32.   (tfw im)   
    
33.   )
    
34.   (defun pl()
    
35.     (setq dir (LM:getfiles "选择文件" "" "tif;jpg;png;ecw"))
    
36.     (repeat (setq n (length dir))
    
37.       (setq n (1- n))
    
38.       (setq e (nth n dir))
    
39.       (tfw e)
    
40.     )
    
41.     (princ (strcat "\n成功插入 " (itoa (length dir)) "个影像！"))
    
42.     (princ)
    
43.   )
    
44. 
    
45. 
    
46. (defun tfw ( im / img file res pt  xres yres xrot yrot left top minpt maxpt)
    
47.           ;define the function name and variables
    
48.       (if (= (type im) 'str)
    
49.   (progn
    
50.     (setq  img
    
51.      (vla-addraster
    
52.        (vla-get-block
    
53.          (vla-get-activelayout
    
54.            (vla-get-activedocument (vlax-get-acad-object))
    
55.          )
    
56.        )
    
57.        im
    
58.        (vlax-make-variant
    
59.          (vlax-safearray-fill
    
60.            (vlax-make-safearray vlax-vbdouble (cons 0 2))
    
61.            '(0.0 0.0 0.0)
    
62.          )
    
63.        )
    
64.        1.0
    
65.        0.0
    
66.      )
    
67.     )
    
68.     (if (snvalid (vl-filename-base im))
    
69.       (vla-put-name img (vl-filename-base im))
    
70.     )
    
71.     (setq im (vlax-vla-object->ename img))
    
72.   )
    
73.   (setq imG (vlax-ename->vla-object (ssname im 0)))
    
74.       )
    
75.       (if (findfile (vl-string-subst
    
76.           ".ers"
    
77.           (vl-filename-extension (vla-get-imagefile img))
    
78.           (vla-get-imagefile img)
    
79.         )
    
80.     )
    
81.   (setq file (vl-string-subst
    
82.          ".ers"
    
83.          (vl-filename-extension (vla-get-imagefile img))
    
84.          (vla-get-imagefile img)
    
85.        )
    
86.   )
    
87.   (if (findfile (vl-string-subst
    
88.       ".tfw"
    
89.       (vl-filename-extension (vla-get-imagefile img))
    
90.       (vla-get-imagefile img)
    
91.           )
    
92.       )
    
93.     (setq  file (vl-string-subst
    
94.            ".tfw"
    
95.            (vl-filename-extension (vla-get-imagefile img))
    
96.            (vla-get-imagefile img)
    
97.          )
    
98.     )
    
99.     (if (findfile  (vl-string-subst
    
100.         ".jgw"
     
101.         (vl-filename-extension (vla-get-imagefile img))
     
102.         (vla-get-imagefile img)
     
103.       )
     
104.         )
     
105.       (setq file (vl-string-subst
     
106.        ".jgw"
     
107.        (vl-filename-extension (vla-get-imagefile img))
     
108.        (vla-get-imagefile img)
     
109.            )
     
110.       )
     
111.       (if  (findfile (vl-string-subst
     
112.           ".pgw"
     
113.           (vl-filename-extension (vla-get-imagefile img))
     
114.           (vla-get-imagefile img)
     
115.         )
     
116.     )
     
117.         (setq file (vl-string-subst
     
118.          ".pgw"
     
119.          (vl-filename-extension (vla-get-imagefile img))
     
120.          (vla-get-imagefile img)
     
121.        )
     
122.         )
     
123.       )
     
124.     )
     
125.   )
     
126.       )
     
127.       (if (or file
     
128.         (setq file (getfiled "Select World File"
     
129.            (vl-string-subst
     
130.              ""
     
131.              (vl-filename-extension (vla-get-imagefile img))
     
132.              (vla-get-imagefile img)
     
133.            )
     
134.            "tfw;jgw;pgw;ers"
     
135.            0
     
136.        )
     
137.         )
     
138.     )
     
139.   (if (= (vl-filename-extension file) ".ers")
     
140.     (progn
     
141.       (setq file (open file "r"))
     
142.       (repeat 19 (read-line file))
     
143.       (setq left (atof (last (split (read-line file) " ")))
     
144.       top  (atof (last (split (read-line file) " ")))
     
145.       )
     
146.       (close file)
     
147.       (vla-put-origin
     
148.         img
     
149.         (vlax-make-variant
     
150.     (vlax-safearray-fill
     
151.       (vlax-make-safearray 5 (cons 0 2))
     
152.       (list left (- top (vla-get-height img)) 0.0)
     
153.     )
     
154.         )
     
155.       )
     
156.       (vla-put-imagewidth img (vla-get-width img))
     
157.       (vla-put-imageheight img (vla-get-height img))
     
158.       (vla-getboundingbox img 'minpt 'maxpt)
     
159.       (vla-zoomwindow (vlax-get-acad-object) minpt maxpt)
     
160.     )
     
161.     (progn
     
162.       (setq file (open file "r")
     
163.       xres (atof (read-line file))
     
164.       xrot (atof (read-line file))
     
165.       yrot (atof (read-line file))
     
166.       yres (atof (read-line file))
     
167.       ins  (list (atof (read-line file)) (atof (read-line file)) 0.0)
     
168.       ins  (polar ins
     
169.             (* (/ (+ xrot 90.0) 180.0) pi)
     
170.             (* (vla-get-height img) yres)
     
171.            )
     
172.       )
     
173.       (close file)
     
174.       (vla-put-rotation img (degrad xrot))
     
175.       (vla-put-origin
     
176.         img
     
177.         (vlax-make-variant
     
178.     (vlax-safearray-fill (vlax-make-safearray 5 (cons 0 2)) ins)
     
179.         )
     
180.       )
     
181.       (vla-put-imageheight
     
182.         img
     
183.         (* (vla-get-height img) (abs yres))
     
184.       )
     
185.       (vla-put-imagewidth img (* (vla-get-width img) (abs xres)))
     
186.       (vla-getboundingbox img 'minpt 'maxpt)
     
187.       (vla-zoomwindow (vlax-get-acad-object) minpt maxpt)
     
188.     )
     
189.   )
     
190.       )
     
191.     ;)
     
192. ;  )
     
193.   (princ)        ;exit quietly
     
194. )

(vl-load-com)<br /> <br /> (if (null degrad)<br />   (defun degrad  (ang)<br />     (* pi (/ ang 180.0))<br />   )<br /> )<br /> <br /> (if (null raddeg)<br />   (defun raddeg  (ang)<br />     (* 180.0 (/ ang pi))<br />   )<br /> )<br /> (defun c:iimg()<br />     (initget "1 2")<br />     (princ "\n选择插入影像方式:")<br />     (setq key (getkword "\n1单张\\2批量\\<1>:"))<br />        (cond ((not key) (dz))    ;<br />        ((= key "1") (dz))  ;<br />        ((= key "2") (pl))  ;<br />        );cond<br /> )<br />   (defun dz()<br />    (findfile (setq im (getfiled "Select Image File"<br />                (getvar "dwgprefix")<br />                "tif;jpg;png;ecw"<br />                16<br />            )<br />         )<br />     )<br />   (tfw im)    <br />   )<br />   (defun pl()<br />     (setq dir (LM:getfiles "选择文件" "" "tif;jpg;png;ecw"))<br />     (repeat (setq n (length dir))<br />       (setq n (1- n))<br />       (setq e (nth n dir))<br />       (tfw e)<br />     )<br />     (princ (strcat "\n成功插入 " (itoa (length dir)) "个影像！"))<br />     (princ)<br />   )<br /> <br /> <br /> (defun tfw ( im / img file res pt  xres yres xrot yrot left top minpt maxpt)<br />           ;define the function name and variables<br />       (if (= (type im) 'str)<br />   (progn<br />     (setq  img<br />      (vla-addraster<br />        (vla-get-block<br />          (vla-get-activelayout<br />            (vla-get-activedocument (vlax-get-acad-object))<br />          )<br />        )<br />        im<br />        (vlax-make-variant<br />          (vlax-safearray-fill<br />            (vlax-make-safearray vlax-vbdouble (cons 0 2))<br />            '(0.0 0.0 0.0)<br />          )<br />        )<br />        1.0<br />        0.0<br />      )<br />     )<br />     (if (snvalid (vl-filename-base im))<br />       (vla-put-name img (vl-filename-base im))<br />     )<br />     (setq im (vlax-vla-object->ename img))<br />   )<br />   (setq imG (vlax-ename->vla-object (ssname im 0)))<br />       )<br />       (if (findfile (vl-string-subst<br />           ".ers"<br />           (vl-filename-extension (vla-get-imagefile img))<br />           (vla-get-imagefile img)<br />         )<br />     )<br />   (setq file (vl-string-subst<br />          ".ers"<br />          (vl-filename-extension (vla-get-imagefile img))<br />          (vla-get-imagefile img)<br />        )<br />   )<br />   (if (findfile (vl-string-subst<br />       ".tfw"<br />       (vl-filename-extension (vla-get-imagefile img))<br />       (vla-get-imagefile img)<br />           )<br />       )<br />     (setq  file (vl-string-subst<br />            ".tfw"<br />            (vl-filename-extension (vla-get-imagefile img))<br />            (vla-get-imagefile img)<br />          )<br />     )<br />     (if (findfile  (vl-string-subst<br />         ".jgw"<br />         (vl-filename-extension (vla-get-imagefile img))<br />         (vla-get-imagefile img)<br />       )<br />         )<br />       (setq file (vl-string-subst<br />        ".jgw"<br />        (vl-filename-extension (vla-get-imagefile img))<br />        (vla-get-imagefile img)<br />            )<br />       )<br />       (if  (findfile (vl-string-subst<br />           ".pgw"<br />           (vl-filename-extension (vla-get-imagefile img))<br />           (vla-get-imagefile img)<br />         )<br />     )<br />         (setq file (vl-string-subst<br />          ".pgw"<br />          (vl-filename-extension (vla-get-imagefile img))<br />          (vla-get-imagefile img)<br />        )<br />         )<br />       )<br />     )<br />   )<br />       )<br />       (if (or file<br />         (setq file (getfiled "Select World File"<br />            (vl-string-subst<br />              ""<br />              (vl-filename-extension (vla-get-imagefile img))<br />              (vla-get-imagefile img)<br />            )<br />            "tfw;jgw;pgw;ers"<br />            0<br />        )<br />         )<br />     )<br />   (if (= (vl-filename-extension file) ".ers")<br />     (progn<br />       (setq file (open file "r"))<br />       (repeat 19 (read-line file))<br />       (setq left (atof (last (split (read-line file) " ")))<br />       top  (atof (last (split (read-line file) " ")))<br />       )<br />       (close file)<br />       (vla-put-origin<br />         img<br />         (vlax-make-variant<br />     (vlax-safearray-fill<br />       (vlax-make-safearray 5 (cons 0 2))<br />       (list left (- top (vla-get-height img)) 0.0)<br />     )<br />         )<br />       )<br />       (vla-put-imagewidth img (vla-get-width img))<br />       (vla-put-imageheight img (vla-get-height img))<br />       (vla-getboundingbox img 'minpt 'maxpt)<br />       (vla-zoomwindow (vlax-get-acad-object) minpt maxpt)<br />     )<br />     (progn<br />       (setq file (open file "r")<br />       xres (atof (read-line file))<br />       xrot (atof (read-line file))<br />       yrot (atof (read-line file))<br />       yres (atof (read-line file))<br />       ins  (list (atof (read-line file)) (atof (read-line file)) 0.0)<br />       ins  (polar ins<br />             (* (/ (+ xrot 90.0) 180.0) pi)<br />             (* (vla-get-height img) yres)<br />            )<br />       )<br />       (close file)<br />       (vla-put-rotation img (degrad xrot))<br />       (vla-put-origin<br />         img<br />         (vlax-make-variant<br />     (vlax-safearray-fill (vlax-make-safearray 5 (cons 0 2)) ins)<br />         )<br />       )<br />       (vla-put-imageheight<br />         img<br />         (* (vla-get-height img) (abs yres))<br />       )<br />       (vla-put-imagewidth img (* (vla-get-width img) (abs xres)))<br />       (vla-getboundingbox img 'minpt 'maxpt)<br />       (vla-zoomwindow (vlax-get-acad-object) minpt maxpt)<br />     )<br />   )<br />       )<br />     ;)<br /> ;  )<br />   (princ)        ;exit quietly<br /> )

tonglesky

dfg df gdf gdf

yangqingchao

JHX948954875 发表于 2018-4-25 10:49
你好，这个怎么运行？

请看21楼的帖子

ypl522532167

我也遇到需要批量插入TIFF文件

依然小小鸟

yangqingchao 发表于 2018-5-7 16:28
本人也经常用到这个功能，一直都没找到合适的，只能单张插入，今天看到@Atsai提供的文件，使用起感觉非常方 ...

命令是哪个 怎么用不了呢

yangqingchao

依然小小鸟 发表于 2018-6-13 19:03
命令是哪个 怎么用不了呢

命令就是iimg，运行不了的话，看看是什么提示呢，我这可以呢

依然小小鸟

yangqingchao 发表于 2018-6-14 14:52
命令就是iimg，运行不了的话，看看是什么提示呢，我这可以呢

如何单纯的批量插入tiff呢  不需要定位 就是批量插入tiff就行  我的tiff是A3 PDF转换过来的 每次自己手动一张一张的插入tiff太慢  而且插入完tiff 发现比例不对（不是正常的A3大小）  大神你可以帮忙实现吗  批量插入tiff  或者更直接的 批量插入PDF  而且大小正好是原始大小  我不需要定位

yangqingchao

依然小小鸟 发表于 2018-6-14 22:32
如何单纯的批量插入tiff呢  不需要定位 就是批量插入tiff就行  我的tiff是A3 PDF转换过来的 每次自己手动 ...

http://bbs.xdcad.net/thread-711226-1-1.html这里有

依然小小鸟

yangqingchao 发表于 2018-6-15 08:55
http://bbs.xdcad.net/thread-711226-1-1.html这里有

没装晓东的任何东西 用不了貌似

公输

xyp1964 发表于 2017-10-13 08:43
;; tt(批量插入图像)
(defun c:tt ()
  (setq        pt  '(0 0)

哥们，此插件可否分享一下呢，谢谢了。