[求助]如何求两条直线的交点？

dwgplt · 发表于 2002-12-29 10:00:00

(defun ipt (ipt1 ipt2)
(inters (car ipt1) (cdr ipt1) (car ipt2) (cdr ipt2))
)
这里定义了一个函数“ipt”其中ipt1、ipt2、分别为两条线段的端点坐标表

zhynt · 发表于 2002-12-29 13:34:00

(defun c:crop()
  (setvar "cmdecho" 0)
  (setq en1 (entsel "\n选择第一条线段："))
  (setq en2 (entsel "\n选择第二条线段："))
  (setq en1_data (entget (car en1)))
  (setq en2_data (entget (car en2)))
  (setq en1_s (assoc 10 en1_data))
  (setq en1_e (assoc 11 en1_data))
  (setq en2_s (assoc 10 en2_data))
  (setq en2_e (assoc 11 en2_data))
  (setq en1_s (cdr en1_s))
  (setq en1_e (cdr en1_e))
  (setq en2_s (cdr en2_s))
  (setq en2_e (cdr en2_e))
  (setq ctpnt (inters en1_s en1_e en2_s en2_e nil))
  (princ (strcat "\n这两条线段的交点坐标为：" (itoa ctpnt))
  (prin1)
)

skyry · 发表于 2002-12-29 15:01:00

(defun c:crop()
  (setvar "cmdecho" 0)
  (setq en1 (entsel "\n选择第一条线段："))
  (setq en2 (entsel "\n选择第二条线段："))
  (setq en1_data (entget (car en1)))
  (setq en2_data (entget (car en2)))
  (setq en1_s (assoc 10 en1_data))
  (setq en1_e (assoc 11 en1_data))
  (setq en2_s (assoc 10 en2_data))
  (setq en2_e (assoc 11 en2_data))
  (setq en1_s (cdr en1_s))
  (setq en1_e (cdr en1_e))
  (setq en2_s (cdr en2_s))
  (setq en2_e (cdr en2_e))
  (setq ctpnt (inters en1_s en1_e en2_s en2_e nil))
  (setq x (car ctpnt))
  (setq y (cadr ctpnt))
  (princ (strcat "\n这两条线段交点为：X=" (rtos x) " Y=" (rtos y) "!"))
  (prin1)
)
阿拉是新手！有需改进的地方还请指出！：）

skyry · 发表于 2002-12-29 15:21:00

(defun c:crop()
  (setvar "cmdecho" 0)
  (setq en1 (entsel "\n选择第一条线段："))
  (setq en2 (entsel "\n选择第二条线段："))
  (setq en1_data (entget (car en1)))
  (setq en2_data (entget (car en2)))
  (setq en1_s (assoc 10 en1_data))
  (setq en1_e (assoc 11 en1_data))
  (setq en2_s (assoc 10 en2_data))
  (setq en2_e (assoc 11 en2_data))
  (setq en1_s (cdr en1_s))
  (setq en1_e (cdr en1_e))
  (setq en2_s (cdr en2_s))
  (setq en2_e (cdr en2_e))
  (setq ctpnt (inters en1_s en1_e en2_s en2_e))
  (prompt "\n这两条线段的交点坐标为：")
  (print ctpnt)
  (prin1)
)

dwgplt · 发表于 2002-12-30 14:09:00

http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&RootID=14934&ID=14934

[求助]如何求两条直线的交点？

发表回复

精选推荐