快速给直线（或其他图元）增加超链接文字。

zzc83

快速给增加超链接文字。
如：输入命令，选择直线（或其他图元），输入文字回车，   直线（或其他图元）就带超链接文字了？

snddd2000

1. (defun C:tt (/ ss str)
   
2.   (while (not ss)
   
3.     (setq ss (ssget "_+.:S:E"))
   
4.     (if        (and ss (> (sslength ss) 1))
   
5.       (progn (setq ss nil) (princ "选择在重叠区域；请重新选择："))
   
6.     )
   
7.   )
   
8.   (setq str (getstring "超链接文本："))
   
9.   (if (and str (> (strlen str) 0))
   
10.     (seturl (ssname ss 0) str)
    
11.   )
    
12.   (princ)
    
13. )

(defun C:tt (/ ss str)<br />   (while (not ss)<br />     (setq ss (ssget "_+.:S:E"))<br />     (if        (and ss (> (sslength ss) 1))<br />       (progn (setq ss nil) (princ "选择在重叠区域；请重新选择："))<br />     )<br />   )<br />   (setq str (getstring "超链接文本："))<br />   (if (and str (> (strlen str) 0))<br />     (seturl (ssname ss 0) str)<br />   )<br />   (princ)<br /> )

香田里浪人

好像特性里就有超链接

天命

看看能用不

天命

不知道路径是绝对的还是相对的