依然小小鸟 发表于 2018-8-14 21:30:43

批量插入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 n10
                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))
            )

            (setqfnameList (reverse fnameList))
             (fil fdir   fnameList)
             (command "._-layer""s" "0" "")
             (command "zoom" "e")
         (setvar "cmdecho" oce)
         (setvar "osmode" 1)
         (PrinC)
)
(Defun fil (fdfnl / );;fd 路径 fnl 文件名列表
       (command "._-layer""s" "IMAGE" "")
       (SetQ n2 0y 0 x 0)
       (setq ln (length fnl))
       (Repeat ln
             (setq fname(Nth n2 fnl))      ;fname文件名
             (SetQ fn (StrCat fd "\\" fname));fn文件全路径名称
             (im   fny x)
       (setq x (+ x 450))
       (SetQ n2 (1+ n2))
       )
   )
(defunim (fny x / )
   (setq acadApp (vlax-get-acad-object)
         acadDoc (vla-get-ActiveDocument acadApp)
         mSpace    (vla-get-ModelSpace acadDoc)
    )
;;;;pt 插入点位 scale 比例尺 rot 旋转角
    (setq
       pt (listx 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文件是 十几页的那种


自贡黄明儒 发表于 2018-8-14 22:31:14

把tif换成pdf试试

spp_wall 发表于 2018-8-15 08:25:19

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

依然小小鸟 发表于 2018-8-15 09:00:21

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

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

依然小小鸟 发表于 2018-8-15 09:00:38

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

试过了 不行

依然小小鸟 发表于 2018-8-16 11:21:58

顶一下 有大神吗

依然小小鸟 发表于 2018-8-16 19:13:18

顶一下 有大神吗

依然小小鸟 发表于 2018-8-17 16:12:10

页: [1]
查看完整版本: 批量插入tiff源码，谁能帮忙修改为批量插入pdf