这样有什么错误lisp

lzy9788

(setq ss (ssget "c" pt1 pt2 '((-4 . "<and")
(6 . "lzy-center")
(62 . 1)
(-4 . "and>")))) 我想根据线型、颜色选择对象，这样错了吗?

雅明

首先你这PT1 和PT2两点就不知道是什么数据了! 开始应赋值吧!

lzy9788

上面的好了，PT1 PT2已有值了的 再问一下： (setq ss (ssget "c" pt1 pt2 '((8 . lay)))) 其中pt1 pt2均赋值，lay为一定义量。下面引用: (defun c:bre1 ()
(setq co (getvar "cecolor")
os (getvar "osmode"))
(setvar "osmode" 759)
(princ "\n请选择图中轴线，读取数据...")
(setq ss1 (ssget ":s"))
(setq nam (ssname ss1 0)
ent (entget nam))
(setq lay (cdr (assoc 8 ent))) (setq pt1 (getpoint "输入第一点\n"))
(setq pt2 (getpoint pt1 "输入第二点\n"))
[I](setq ss (ssget "c" pt1 pt2 '((8 . lay))))[/I]

lzy9788

哦，我太笨了，好了


(setq ss (ssget "c" pt1 pt2 (list (cons 8        lay))))

雅明

请问你想做什么啊？