求一个可以将链接复制到其它对象上的工具

panliang9 发表于 2012-8-30 09:45:14

我的图形中使用到很多链接，很多时候我需要将一个对象上的链接复制到其它对象上去。

举例来说，有一个对象上附有一个链接，我可以shift+左键单击打开这个链接，现在我需要将其它对象也加上同一个链接，因为没有工具，只能一个一个的加链接，太费劲了！

能不能有一个工具，可以让我选中一个源对象，然后再选中其它对象，其它对象上就添加上了同样的链接。
这有一点象格式刷，选中一个源对象，然后再选其它对象，就能把链接刷到其它对象上了。

不知道这个想法能不能实现呢？

版主，各位大大，大家谁有空帮我写一个，这里先谢谢了！

panliang9 发表于 2012-8-30 12:31:00

很疑惑，刚发的贴子怎么就找不到了呢，自己顶一个，要不都沉太深了！

x_s_s_1 发表于 2012-8-30 13:48:03

vla-put-URL
vla-put-URLDescription
vla-put-URLNamedLocation
vla-get-URL
vla-get-URLDescription
vla-get-URLNamedLocation
这几个函数看看，不知为何我的cad2006加不了超链接，故而无法操作

panliang9 发表于 2012-8-30 16:50:45

x_s_s_1 发表于 2012-8-30 13:48 static/image/common/back.gif
vla-put-URL
vla-put-URLDescription
vla-put-URLNamedLocation

谢谢x_s_s_1

但我是LISP白痴来着，如果方便的话能帮我写一个吗？

panliang9 发表于 2012-8-31 13:53:45

继续顶一个，版主大人，各位高手，有空帮我一下！

Gu_xl 发表于 2012-8-31 14:48:16

(defun c:tt(/ e SorceLinkObj destLinkObj ss)
(setq e (car (entsel "\n选择源链接物体:")))
(setq SorceLinkObj (vla-get-Hyperlinks (vlax-ename->vla-object e)))
(if (> (vla-get-count SorceLinkObj) 0)
(progn
   (redraw e 3)
   (while (setq ss
   (ssget ":L"))
(repeat (setq n (sslength ss))
   (setq destLinkObj
(vla-get-Hyperlinks
   (vlax-ename->vla-object
      (ssname ss (setq n (1- n))))))
   (vlax-map-Collection
   SorceLinkObj
   '(lambda (o)
      (vla-add destLinkObj
(vla-get-url o)
(vla-get-URLDescription o)
(vla-get-URLNamedLocation o))))
   )
(princ "\n继续选择物体...")
)
   (redraw e 4)
   )
(princ "\n该物体没有超链接...")
)
(princ)
)

panliang9 发表于 2012-8-31 15:18:11

东西非常好用，Gu_xl版主，长期以来一直得到您无私的帮助，我非常感谢您！

天命发表于 2014-1-22 14:10:44

有没有能自动建立超链接的呢

panliang9 发表于 2014-1-23 08:54:56

回答“天命”！

有自动建立超链接的！

看下面这个贴子！

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

程序也是咱们的超级版主“GU_XL”帮我写的！

对我的帮助真是太大了！

我做机械设计的时候，在同一个文件夹里有很多图纸，有一些是装配图，有很多是零件图，装配图中有明细表，明细表里有那些零件图的名称。

使用了这样的工具，你就可以很方便的在装配图中很快的切换到相应的零件图里去，非常方便！

页: [1]

明经CAD社区's Archiver

求一个可以将链接复制到其它对象上的工具