[求助]取中点程序

8350 · 发表于 2008-4-28 08:21

清高手帮写个任意指定两点直接生成中点的程序，急用，谢谢！！

caoyin · 发表于 2008-4-28 18:57

本帖最后由作者于 2008-4-28 18:58:09 编辑

不能应用

什么是不能应用?

(if (and (setq p1 (getpoint "\n指定点1:"))
           (setq p2 (getpoint p1 "\n指定点2:"))
      )
    (command "_.line" "_non" (lt:midpoint p1 p2) "\\")
)

caoyin · 发表于 2008-4-28 08:55

(defun lt:midpoint (p1 p2) (mapcar '(lambda (x y) (/ (+ x y) 2.0)) p1 p2))

8350 · 发表于 2008-4-28 17:14

不能应用

董堃 · 发表于 2008-5-7 07:32

大侠，他是说不是完整的程序，他就不知道如何用

Andyhon · 发表于 2008-5-7 09:26

学问学问得先学会问

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