超链接的想法？
[*];存盘前为图纸添加超链接---(一级)----
[*](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是点击了 SAVESAVE_ASOPEN命令？
有呀，反应器。 自贡黄明儒 发表于 2023-4-28 08:00
有呀，反应器。
想了想还是不行，我的意思是，随DWG发布，对方即便纯CAD，打开会自动执行DWG里面的超链接，或有什么办法，弄进去的一段LISP自动执行，
因为很多协作，他们打开图，感觉截然不同，不知道是怎么画出来的，用的什么软件，干脆叫他们打开图档，就告诉他们一段话，等等。。。。
页:
[1]