如何求一条直线与一条构造线的交点？

clh521 · 发表于 2015-7-16 23:19:28

如量，如何求一条直线与一条构造线的交点？，用什么函数能求出来

fl202 · 发表于 2015-7-17 09:17:27

假设直线的两个端点pt3 pt4 所求交点为inpt，构造线上的点为pt1 pt2 ，则pt1 pt3 pt4 均为已知，求出pt2即可求得inpt了。

查了下构造线：
((-1 . <图元名: 7ffffb45cd0>) (0 . XLINE) (330 . <图元名: 7ffffb039f0>) (5 . A1955) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . INST) (100 . AcDbXline) (10 3000.0 1200.0 0.0) (11 0.894427 0.447214 0.0))

其中10为构造线通过的点pt1，11(pt11) 的数据pt11
(setq ang1 (angle '(0 0) pt11)
(setq pt2 (polar pt1 ang1 1000))
(setq inpt (insert pt1 pt2 pt3 pt4))
你明白了吗？

clh521 · 发表于 2015-7-17 09:51:34

谢谢，明白了，等晚上我再把完整的函数写出来

clh521 · 发表于 2015-7-17 09:52:11

fl202 发表于 2015-7-17 09:17
假设直线的两个端点pt3 pt4 所求交点为inpt，构造线上的点为pt1 pt2 ，则pt1 pt3 pt4 均为已知，求出pt2即 ...

谢谢，明白了，等晚上我再把完整的函数写出来

clh521 · 发表于 2015-7-21 23:14:32

本帖最后由 clh521 于 2015-7-21 23:17 编辑

fl202 发表于 2015-7-17 09:17
假设直线的两个端点pt3 pt4 所求交点为inpt，构造线上的点为pt1 pt2 ，则pt1 pt3 pt4 均为已知，求出pt2即 ...

;功能：求直线与构造线的交点
;用法：(lxlint  直线图元名  构造线图元名)
;举例：(lxlint  (car(entsel))  (car(entsel)))
(defun lxlint (ent1 ent2 / l xl pt1 pt2 pt3 pt4 ang1 inpt)
(setq l (entget ent1)
      xl (entget ent2))
(setq pt1 (cdr(assoc '10 l))
      pt2 (cdr(assoc '11 l))
      pt3 (cdr(assoc '10 xl)))
(setq ang1 (angle '(0 0) (cdr(assoc '11 xl))))
(setq pt4 (polar pt3 ang1 1000))
(setq inpt (inters pt1 pt2 pt3 pt4))
)

edata · 发表于 2015-7-22 20:40:18

inters加上nil

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

[已解答] 如何求一条直线与一条构造线的交点？

相关帖子