如何将一个表两端的括号去掉.

shenshang

(setq xyz '((0 0 0) (10 10 0) (10 20 0) (0 20 0)))

(command "_-vports" "p" xyz)

执行出错

(setq x1 (nth 0 xyz))

(setq x2 (nth 1 xyz))

(setq x3 (nth 2 xyz))

(setq x4 (nth 3 xyz))

(command "_-vports" "p" x1 x2 x3 x4)

执行正确,

请问:如何将一个表两端的括号去掉.

或者说有什么好的简单方法可实现以上方法?

dinosaurhxe

(setq xyz '((0 0 0) (10 10 0) (10 20 0) (0 20 0)))

(command "_-vports" "p" )

(foreach xx xyz (command xx))

飞诗(fsxm)

(mapcar 'command xyz) ;这样也行