社区 › Auto Lisp › 阅读并创建超链接

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

以下是一些示例：
 
访问超链接：
添加超链接：
(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

 
谢谢你，多伯。
 
 
更改：

(setq fn (getfiled "Select a File to Link to" "" "" 16))
收件人：
4

查看完整版本: 阅读并创建超链接