阅读并创建超链接

robierzo · 发表于 2022-7-6 07:34:05

你好我有两个问题。
1-我需要阅读与文本相关联的超链接。超链接是一个Excel文件。我用这个：

(setq nombre_ent (car(entsel "\nSelecciona objeto: ")))
 (setq obj_vla (vlax-ename->vla-object nombre_ent))
 (setq prop (vla-get-hyperlinks obj_vla))

如何获取文件名？

2-如何创建指向与文本关联的Excel文件的超链接？
文件名为：“C:\Temp\Ventas\u 2012.xls”
非常感谢。

Lee Mac · 发表于 2022-7-6 07:47:26

以下是一些示例：

访问超链接：
添加超链接：

copy

(defun c:test2 ( / en fn )
   (if
       (and
           (setq fn (getfiled "Select a File to Link to" "" "" 16))
           (setq en (car (entsel "\nSelect Object to Add Hyperlink: ")))
       )
       (vla-add (vla-get-hyperlinks (vlax-ename->vla-object en)) fn (vl-filename-base fn))
   )
   (princ)
)
(vl-load-com) (princ)

robierzo · 发表于 2022-7-6 08:09:05

非常感谢师父。这是一种荣誉！

Lee Mac · 发表于 2022-7-6 08:12:43

非常欢迎robierzo，很乐意帮忙。

dober · 发表于 2022-7-6 08:34:04

谢谢你做了

嗨，李

超级Lisp程序

我总是有一个固定的文件夹，从那里我可以获得链接
你也能设置一下吗。
非常感谢。

你好，李

超级Lisp程序

我有一个固定的房间
Kann man das auch einstellen。
丹克

Lee Mac · 发表于 2022-7-6 08:36:07

谢谢你，多伯。

更改：

copy


(setq fn (getfiled "Select a File to Link to" "" "" 16))

收件人：

copy

[编程交流] 阅读并创建超链接

发表回复

精选推荐