这样有什么错误lisp

lzy9788 · 发表于 2004-3-19 14:46:00

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

雅明 · 发表于 2004-3-19 14:58:00

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

lzy9788 · 发表于 2004-3-19 15:15:00

上面的好了，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]