这个程序为什么ss3是空
(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>")
)
)
)
(sssetfirstsss ss3)
)
)
这个程序为什么ss3是空？？？？？？？？？？？？？
(setq ptlstc ((-3.12105 -1497.3) (-8.08641 -1497.3) (-8.08641 -1501.71) (-3.12105 -1501.71)))
这里就会出现语法错误，根本运行不到后边去
(setq ptlstc '((-3.12105 -1497.3) (-8.08641 -1497.3) (-8.08641 -1501.71) (-3.12105 -1501.71)))
(foreach pt2 ptlstC
(and pt2
(setq ss3(ssget "X"(list(list 13 (car pt2)(cadr pt2)0))))
(sssetfirstsss ss3))
)
页:
[1]