超链接的想法？

尘缘一生

• ;存盘前为图纸添加超链接---(一级)----
• (defun sl-add-pe_url (/ nam)
•   (setq nam (ssname (ssget "X" '((0 . "*TEXT"))) 0))
•   (if (= (geturl nam) nil)
•     (seturl nam "https://item.taobao.com/item.htm?spm=a1z10.1-c.w5003-21569979140.2.686661790simug&id=671111707164&scene=taobao_shop")
•   )
•   (princ)
• )
• ;打开图纸显示超链接---(一级)----
• (defun sl-op-pe_url (/ ss nam n url)
•   (setq ss (ssget "X" '((0 . "*TEXT"))))
•   (repeat (setq n (sslength ss))
•     (setq nam (ssname ss (setq n (1- n))))
•     (if (/= (setq url (geturl nam)) nil)
•       (command "BROWSER" url)
•     )
•   )
•   (princ)
• )
  

有没有用程序办法，判定，CAD是点击了 SAVE  SAVE_AS  OPEN  命令？

自贡黄明儒

有呀，反应器。   

尘缘一生

自贡黄明儒 发表于 2023-4-28 08:00
有呀，反应器。

    想了想还是不行，我的意思是，随DWG发布，对方即便纯CAD，打开会自动执行DWG里面的超链接，或有什么办法，弄进去的一段LISP自动执行，
     因为很多协作，他们打开图，感觉截然不同，不知道是怎么画出来的，用的什么软件，干脆叫他们打开图档，就告诉他们一段话，等等。。。。