这样有什么错误lisp

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

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

雅明 · 发表于 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]

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

哦，我太笨了，好了

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

雅明 · 发表于 2004-3-19 15:57:00

请问你想做什么啊？

账号		自动登录	找回密码
密码			注册