[编程申请]：誰可以幫我做個簡單LISP!!!

gallen · 发表于 2004-7-16 12:43:27

您需要登录才可以下载或查看，没有账号？立即注册

×

誰可以幫我做個簡單LISP!!!
這LISP可把,所有選取的物體的z坐標變成0,
例如一條 LINE 的兩點是 (X1,Y1,Z1) (X2,Y2,Z2)
用 LISP 後, LINE 變成 (X1,Y1,0) (X2,Y2,0)

eachy · 发表于 2004-7-16 14:11:12

[php](defun z->0 (p)
(mapcar '(lambda (x) (list (car x) (cadr x) 0.)) p)
)[/php]

hi71400 · 发表于 2004-7-16 15:20:25

记得有现成的东东，你在本站找找看。

gallen · 发表于 2004-7-20 09:28:14

請問哪 PHP代码怎麽用

lsjjm · 发表于 2004-7-20 11:49:15

令(setq p (list (list x1 y1 z1)(list x2 y2 z2)))
加载运行程序.

hangbbs · 发表于 2004-7-20 12:24:38

到lisp程序版块看我的程序，可以方便的改z值

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