[求助]如何获取这个选择集

piao1887

我需要选择所有包含在line层 长度大于20的直线 请问这个选择集怎么做？

guohq

(setq ss (ssget "x" '((cons 0 "line")
        (cons 8 "line"))) ss2 (ssadd) nn 0)
(repeat (sslength ss)
  (setq ent (ssname ss nn) nn (1+ nn))
  (if (> (vla-get-length (vlax-ename->vla-object ent)) 20.0)
    (setq ss2 (ssadd ent ss2))
    )
  )

ss2是得到的选择集