这个程序为什么ss3是空

caoyongjun

(setq ptlstc ((-3.12105 -1497.3) (-8.08641 -1497.3) (-8.08641 -1501.71) (-3.12105 -1501.71)))
   (foreach pt2        ptlstC
     (if (/= pt2 nil)
       (progn
         (setq pt2 (append pt2 '(0.0)))
         (setq ss3 (ssget "X"
                          (list
                            '(-4 . "<OR")
                            (cons 13 pt2)
                            '(-4 . "OR>")
                          )
                   )
         )
   (sssetfirst  sss ss3)
       
       )
     )
   这个程序为什么ss3是空？？？？？？？？？？？？？

llsheng_73

(setq ptlstc ((-3.12105 -1497.3) (-8.08641 -1497.3) (-8.08641 -1501.71) (-3.12105 -1501.71)))
这里就会出现语法错误，根本运行不到后边去

1. (setq ptlstc '((-3.12105 -1497.3) (-8.08641 -1497.3) (-8.08641 -1501.71) (-3.12105 -1501.71)))
   
2. (foreach pt2 ptlstC
   
3.   (and pt2
   
4.        (setq ss3(ssget "X"(list(list 13 (car pt2)(cadr pt2)0))))
   
5.        (sssetfirst  sss ss3))
   
6.   )

(setq ptlstc '((-3.12105 -1497.3) (-8.08641 -1497.3) (-8.08641 -1501.71) (-3.12105 -1501.71)))<br /> (foreach pt2 ptlstC<br />   (and pt2<br />        (setq ss3(ssget "X"(list(list 13 (car pt2)(cadr pt2)0))))<br />        (sssetfirst  sss ss3))<br />   )