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

ng0077

[求助]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")”

如何能做到？

Andyhon

(SETQ ssTKMC (SSGET (list tkmc)))

ng0077

就这么简单??  我试试

ng0077

完美，太完美了，感谢 Andyhon   大人