[LISP函数]：判断两条直线的关系(自己编的，不好意思)

deger72 · 发表于 2003-4-30 11:14:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

;;; test two line with their four end point. return
;;; 1 -> 相交
;;; 0 -> 平行
;;;  -1 -> 重合
(defun Line_test (po1 po2 po3 po4)
  (if (inters
po1
po2
po3
po4
nil
   )
(setq Line_test 1)
(progn
   (if (or
      (inters
      po1
      po4
      po2
      po3
      )
      (inters
      po1
      po3
      po2
      po4
      )
   )
(setq Line_test 0)
(setq Line_test -1)
   )
)
  )
)

ll_j · 发表于 2003-4-30 19:45:02

你这里函数与变量使用了同一个名称，使用一次就不可用了。

deger72 · 发表于 2003-5-18 12:36:22

试试

pheniex · 发表于 2003-6-12 13:20:39

不知做何用途？不要拿来玩！

qingshan · 发表于 2003-6-14 10:54:48

怎么用DELPHI的这么少，有没有人用，可不可以用它来吊用

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

[LISP函数]：判断两条直线的关系(自己编的，不好意思)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子