批量插入tiff源码，谁能帮忙修改为批量插入pdf

依然小小鸟

(defun C:A3( );;批量插入图形
          (vl-load-com)
          (setq oce (getvar "cmdecho"))
          (setvar "cmdecho" 0)
          (setvar "osmode" 0)
          (if (= (tblobjname "layer" "IMAGE") nil)
             (command "._-layer"  "n" "IMAGE" "")
            )
;;;          (setq caddir (getvar "dwgprefix"))                                        ;;当前CAD路径
          (setq caddir (vl-filename-directory (findfile "acad.exe")))
          (setq fdir  (vl-filename-directory (getfiled "文件路径" caddir  "tif" 16)));;fdir文件路径
          (SetQ flist (Cdr (Cdr (VL-Directory-Files fdir))))                         ;;flist文件列表
          (SetQ n1  0
                fnameList  '()
           )
            (Repeat (Length flist)
               (SetQ fatom (Nth n1 flist))
                (If  (= (strcat "." "tif" ) (VL-FileName-Extension fatom))          ;判断fatom 文件变量 是否是tif文件
                        (SetQ fnameList (Cons fatom fnameList))                     ;将文件加入到fnameList序列中
                 )
               (SetQ n1 (1+ n1))
              )

              (setq  fnameList (reverse fnameList))
             (fil fdir   fnameList)
             (command "._-layer"  "s" "0" "")
             (command "zoom" "e")
         (setvar "cmdecho" oce)
         (setvar "osmode" 1)
         (PrinC)
)
(Defun fil (fd  fnl / );;fd 路径 fnl 文件名列表
       (command "._-layer"  "s" "IMAGE" "")
       (SetQ n2 0  y 0 x 0)
       (setq ln (length fnl))
       (Repeat ln
               (setq fname  (Nth n2 fnl))      ;fname文件名
               (SetQ fn (StrCat fd "\\" fname));fn文件全路径名称
               (im   fn  y x)
       (setq x (+ x 450))
       (SetQ n2 (1+ n2))
       )
   )
(defun  im (fn  y x / )
   (setq acadApp (vlax-get-acad-object)
         acadDoc (vla-get-ActiveDocument acadApp)
         mSpace    (vla-get-ModelSpace acadDoc)
    )
  ;;;;  pt 插入点位 scale 比例尺 rot 旋转角
    (setq
       pt (list  x y 0)
       scale 420
       rot 0
     )
(setq image-obj (vla-AddRaster mSpace fn (vlax-3d-point pt) scale rot))
;;;;(vla-put-ImageVisibility image-obj :vlax-false);该行取消后直接显示图像，但插入速度有些慢
(princ )
)
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
哪位大神能帮忙改为批量插入PDF  我的PDF文件是 十几页的那种

自贡黄明儒

把tif换成pdf试试

spp_wall

TIFF 都是一张张图片 PDF可能是很多张  PDF导出成图片 然后再插入不就好了？

依然小小鸟

spp_wall 发表于 2018-8-15 08:25
TIFF 都是一张张图片 PDF可能是很多张  PDF导出成图片 然后再插入不就好了？

PDF格式方便编辑 而且清晰度高一些  另外 CAD2010版本之后已经自带能插入 pdf参考底图

依然小小鸟

自贡黄明儒 发表于 2018-8-14 22:31
把tif换成pdf试试

试过了 不行

依然小小鸟

  顶一下 有大神吗

依然小小鸟

顶一下 有大神吗

依然小小鸟

[em01