将图中所有链接地址由相对路径改为绝对路径！

panliang9

GU_XL版主，各位高手们，大家好！

我的图里有很多链接，用的都是相对路径，现在想求一个办法将这些链接的相对路径一次性全部改为绝对路径，不用进入每个链接里点开对话框进行相对改绝对的勾选。

就是运行命令后，选中带有链接的对象，对象带的是相对链接就自动的变成了绝对链接！

这样做了后，这些对象复制到其它图形里的时候，它上面带的链接就依然有效了。

版主帮我看一下，有没有可能性呢！

先谢谢大家了！

panliang9

如果CAD的查找命令象WORD一样的支持通配符，这也许就好办了，我用的是2007，刚才试了一下，不行！

Gu_xl

遍历所有对象，逐一修改替换！

panliang9

版主你好！
我是LISP白痴，能不能出手相助！

panliang9

正在和同事们讨论这个，大家听见高手来了，正在围观中！

xiaxiang

上例图别人才能更好的帮助您吧

panliang9

xiaxiang版主，好的，我明天上例图，家里的电脑实在是太差，就没装CAD，明天发两个图上来。

希望你能帮到我！

panliang9

上传一个装配文件，文件中序号和图形中都带有链接，ctl+鼠标左键 点击链接就可打开和这个装配图在同一个文件夹的文件，这些链接是用“GU_XL”版主帮我写的两个程序加上去的。

版主“GU_XL”当初帮我写的程式的地址在下面：

http://bbs.mjtd.com/thread-88899-1-1.html

http://bbs.mjtd.com/thread-96224-1-1.html

“GU_XL”版主给我写的这两个程式，给我的工作莫大的帮助，这里再次深表谢意！

现在的需要就是假如我把这些图形复制到其它文件夹里的其它文件上去，附着在图形和文字上的链接就失效了。因为是相对链接，位置变了，文件夹就失效了。

所以就求版主和各位大侠们再帮我一次，帮我写一个程序，能够选中图中的对象，将它的相对链接改为绝对链接！

panliang9

自已顶一个！

同样的问题是“将许多绝对路径改为相对路径”

搜出"GU_XL"版主在国外论坛里对另一个类似问题的回复，这个贴子问的是它有很多块都带有外链，问有没办法一次性修改。
http://www.theswamp.org/index.php?topic=43042.0
想注册一下，没能注册进去。

(defun c:tt(/ blkname Hyperlinks ss n)
(setq blkname (getstring "\nInput insert name :")
Hyperlinks (getstring "\nInput Hyperlinks :"))
(if (and
(/= "" blkname)
(/= "" Hyperlinks)
      (setq ss (ssget (list '(0 . "insert")(cons 2 blkname))))
)
   (repeat (setq n (sslength ss))
     (seturl (ssname ss (setq n (1- n))) Hyperlinks)
     )
   )
(princ)
)