[求助]autolisp ssget [filter-list] 详细使用方法

[求助]autolisp ssget [filter-list] 详细使用方法
函数：
(ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list])
用 ssget 函数 按属性提取 图元，
如：
(SETQ TKMC (SSGET '((2 . "A$C5D086817"))))
但是 '((2 . "A$C5D086817")))) 如何使用函数代替??
如：
(defun c:ssid()
(setq tkmc(assoc 2 (entget(car(entsel))))
sstkmc(ssget tkmc)
)
)
先用鼠标选取一个图块 读取图块参数， 取得 图块名称 “2 . "A$C5D086817"” ，然后用 ssget 选取所有
同样名称的图块，
但是在使用 sstkmc(ssget tkmc) 的时候 提示 “错误: 错误的点参数” ，
改成 sstkmc(ssget (tkmc)) 的时候 提示 “错误: 函数错误: (2 . "A$C5D086817")”
如何能做到？