请教陈老师:关于Autolisp语言运用hyperlink命令?

chenran

陈老师你好:
    本人想在autolisp程序中使用AutoCAD2002中的hyperlink(超连接)命令,目的是想将刚刚画好的图形建立超连接,并在"显示文字"中显示"这是一个圆!",在连接地址中显示"C:\aaa.txt".
    我是这样写的:
    (defun c:chaolianjie()
    (setq pnt '(100 50))
    (setq r 50)
    (commamd "circle" pnt r)   
    (command "hyperlink" (entlast) "")
    但是它会跳出超连接的对话框让我输入,我想直接在autolisp程序中完成对话框中的输入,可以吗?请指教!十分感谢!!

meflying

wujin

其实我最终的目的是：把图形里面的指定图层(如text层)的文字进行统计并做一个统计表出来。如下图
可是我不会创建文字的选择集。只有求教大家啦。

meflying

如果你想选择全部的文字，可以这样：
(setq ss (ssget "x" '((0 . "text,mtext"))))
如果想手动：
(setq ss (ssget '((0 . "text,mtext"))))

具体参考帮助：ssget