图像绝对路径转换成相对路径的插件

newer · 发表于 2017-1-12 11:34:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2017-1-12 11:37 编辑

不少图形中的图像插入时候都是绝对路径，这样DWG拷贝到其他机器后，由于路径不存在所以图像都不显示，为了解决这个问题，本插件把DWG图中所有的图像定义引用的图像文件都拷贝到当前DWG目录下的IMAGES目录中，然后修改图像定义的路径为相对路径。以后拷贝DWG时候，同时把IMAGES目录打包就可以到任何机器里面打开显示图像了。

本插件运行在XDRX API 2017.01.12以上版本。
XDRX API 最新下载地址：http://bbs.xdcad.net/thread-668896-1-1.html

[sell]

(defun c:XDTB_IMAGERePath ( / dir dir1 filename fn i img imgdef imgs j name names)
  (xdrx_begin)
  (if (setq imgs (xdrx_object_get "imagedictionary"))
    (progn
      (setq dir (getvar "dwgprefix")
            fn (getvar "dwgname")
            i 0 j 0
      )
      (while (setq imgdef (xdrx_object_next))
        (setq img (cadr imgdef))
        (if (and
              (/= "" (setq name (xdrx_getpropertyvalue img "sourcefilename")))
              (xdrx_string_regexps ":" name)
            )
          (progn
            (if (= i 0)
              (progn
                (xdrx_system_createfolder (setq dir1 (strcat dir "images")))
                (setq i (1+ i))
              )
            )
            (setq names (xdrx_system_splitpath name)
                  filename (strcat (nth 2 names) (nth 3 names))
            )
            (vl-file-copy name (strcat dir1 "\\" filename))
            (xdrx_setpropertyvalue img "sourcefilename" (strcat ".\\images\\"
                                                                filename
                                                        ) "load" "updateEntities"
            )
            (setq j (1+ j))
          )

        )
      )
      (if (> j 0)
        (xdrx_prompt "\n将" j "个图像定义转换成相对目录，图像保存在" dir1 "下.")
        (xdrx_prompt "\n图中不存在绝对路径的图像定义.")
      )
    )
  )
  (xdrx_end)
  (princ)
)

[/sell]

duxiaoqing85 · 发表于 2017-1-22 17:48:50

向楼主学习！！

434939575 · 发表于 2017-2-17 13:55:31

这个实用，好！

spp_wall · 发表于 2017-2-20 16:08:58

但是好像比例是个问题

newer · 发表于 2017-2-20 16:20:46

spp_wall 发表于 2017-2-20 16:08

和比例有什么关系？

spp_wall · 发表于 2017-2-20 16:30:40

我的图片插入后放大缩小旋转然后再用程序处理后好像大小有变化

newer · 发表于 2017-2-20 18:02:48

spp_wall 发表于 2017-2-20 16:30

程序没有修改图像，只是修改了路径，应该不会有变化的，测试了几个都没发现变化。

把你的图形压缩下，带图片（相对路径的）传到论坛来帮你看下。

alliuyx · 发表于 2017-2-22 08:38:44

确实是难得好帖啊，顶先

455383153 · 发表于 2017-7-11 19:02:43

看看能不能用

123926 · 发表于 2017-8-15 11:13:28

下载下来试试就知道了

shpdzhj · 发表于 2018-1-4 11:56:51

试过很好用，谢谢了！！！！！

ares40000 · 发表于 2018-5-7 13:37:53

烦死人了，好他妈烦，画施工图

59222256 · 发表于 2018-7-28 18:07:41

向大神学习，找到了

kyky1002 · 发表于 2019-9-23 19:43:55

多谢分享，lz好人

账号		自动登录	找回密码
密码			立即注册

[图像] 图像绝对路径转换成相对路径的插件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。