[求助]：[0221]请问SSGET "F"的使用

viz528

[求助]：[0221]请问SSGET "F"的使用.
我想使用 SSGET "F" 画过两线段求出其资料
但好像出错了
不知道该怎样修正
烦请各位高手解答一下
谢谢~

(SETQ PT1 (GETPOINT "\N第一点:"))
(SETQ PT2 (GETPOINT PT1 "\N第二点:"))
(SETQ SS1 (SSGET "F" (LIST PT1 PT2)
                       (LIST (CONS 0 "LINE")
                       )
))

(SETQ ET1 (ENTGET (SSNAME SS1 0))
      ET2 (ENTGET (SSNAME SS1 1))
      PT1 (CDR (ASSOC 10 P:ET1))
      PT2 (CDR (ASSOC 11 P:ET1))
      PT3 (CDR (ASSOC 10 P:ET2))
      PT4 (CDR (ASSOC 11 P:ET2))
)

f5612140

  (setq ss (ssget "f" (list pt1 pt2) '((0 . "LINE"))))

or
  (setq ss (ssget "f" (list pt1 pt2) (list '(0 . "LINE"))))