[求助]请问如何用lisp语言实现3dmesh命令

stulsx · 发表于 2004-4-13 17:10:00

网格点的坐标我已经存进了序列中，如 ((0 1 10) (0 3 10) (0 5 10) (5 1 20) (5 3 20)(5 5 20)),我不知道如何用Lisp语言实现，
???(command "3dmesh" 2 3 ........) 省略号应该怎样写呢？
请大虾给予指点，多谢

alin · 发表于 2004-4-14 21:15:00

(setq ptlst (list '(0 1 10) '(0 3 10) '(0 5 10) '(5 1 20) '(5 3 20) '(5 5 20)))
(command "3dmesh" 2 3)(foreach pt ptlst (command pt))

龙龙仔 · 发表于 2004-4-15 08:08:00

(command "3dmesh" 2 3 )
(apply 'command '((0 1 10) (0 3 10) (0 5 10) (5 1 20) (5 3 20) (5 5 20)))