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

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

提示: 作者被禁止或删除内容自动屏蔽

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

(defun ipt (ipt1 ipt2)
(inters (car ipt1) (cdr ipt1) (car ipt2) (cdr ipt2))
)

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

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))
  (princ (strcat "\n这两条线段的交点坐标为：" (itoa ctpnt))
  (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 nil))
  (setq x (car ctpnt))
  (setq y (cadr ctpnt))
  (princ (strcat "\n这两条线段交点为：X=" (rtos x) " Y=" (rtos y) "!"))
  (prin1)
)
阿拉是新手！有需改进的地方还请指出！：）

zhynt · 发表于 2002-12-29 15:41: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

提示: 作者被禁止或删除内容自动屏蔽

dwgplt · 发表于 2002-12-31 12:03:00

提示: 作者被禁止或删除内容自动屏蔽

龙龙仔 · 发表于 2002-12-31 12:25:00

alin · 发表于 2002-12-31 13:27:00

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

skyry · 发表于 2002-12-31 17:37:00

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

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

Re

我写的为什么运行不了~

成功了！

是“princ”这一行有误

用"交点坐标"尋找看看!!

以前的帖子有类似的问题，如。。。

呵呵````

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	发表于 2002-12-29 10:00:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2002-12-30 14:09:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2002-12-31 12:03:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡