[编程申请]：对象选择问题，高手支招则个

qiaqiadeng

不知为何下面代码不能实现
程序意图：选择与ang相差正负0.01的文字
(setq ang (cdr (assoc '50 (entget (car (entsel "\n请选择一个参考对象:"))))))
(sslength (ssget "c"
                 (setq p1 (getpoint))
                 (getcorner p1 "\nkkkk:")
                 '('(-4 . "<and")
                   '(-4 . "<and")
                   '(0 . "*TEXT")
                   '(-4 . "<=")
                   (cons 50 (+ ang 0 0.01))
                   '(-4 . "and>")
                   '(-4 . "<and")
                   '(0 . "*TEXT")
                   '(-4 . ">=")
                   (cons 50 (- ang 0 0.01))
                   '(-4 . "and>")
                   '(-4 . "and>")
                  )
          )
)

zxq0220

这样可以运行：
(setq ang (cdr (assoc 50 (entget (car (entsel "\n请选择一个参考对象:"))))))
(sslength (ssget "c"
(setq p1 (getpoint))
(getcorner p1 "\nkkkk:")
(list
'(0 . "*TEXT")
'(-4 . "<=") (cons 50 (+ ang 0.01))
)
)
)
但这样不知为何就不行了。
(setq ang (cdr (assoc 50 (entget (car (entsel "\n请选择一个参考对象:"))))))
(sslength (ssget "c"
(setq p1 (getpoint))
(getcorner p1 "\nkkkk:")
(list
'(0 . "*TEXT")
'(-4 . "<AND")


'(-4 . "<=") (cons 50 (+ ang 0.01))
'(-4 . ">=") (cons 50 (- ang 0.01))

'(-4 . "AND>")
)
)
)