autolisp求交点坐标

slmax1 2011-02-11 01:29:52

知道四个点A B C D ，想求出它们对角线的交点坐标，有什么简单点的方法没有。

...全文

688 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

slmax1 2011-02-23

打赏
举报

回复

能不能说得详细点，

mokson 2011-02-21

打赏
举报

回复

用CAL命令：
ill(p1,p2,p3,p4)，确定两条直线 (p1、p2) 和 (p3、p4) 的交点。

slmax1 2011-02-15

打赏
举报

回复

还是没人吗？

slmax1 2011-02-14

打赏
举报

回复

不是吧，都几天了，一个人都没有啊

;;;本插件为AutoCADlisp插件，用于获取LINE命令绘出的线段的交点，交点坐标返回为被交线段上的点(即外观交点xy+被交线段对应该点的z值);;;获取切割线与相交直线的交点，返回被交线段上的交点。(defunC:JDHQ()(setvar"cmdecho"0)(princ"\n选择要切割的直线：")(setqlll(entsel));选择直线;;;;取得直线起点零高程坐标列表(...

主要是注意所使用的数据类型。之前用的是float，出现了一些意外，而且花费了我不少时间来反复验证、推导，做了很多的无用功，而且，反复推导得出来的计算步骤并没有什么不牢靠的地方。然后计算得到的结果却是让人如此之不省心，梗的我闷得慌。今天上午发来了一贴，多位朋友各抒己见，总算是让我发现了一些不足的地方，首当其冲的是一个变量弄错了，导致大批的计算失准。后来修正了这个bug以后，还是会出现计算不精确的地方...

;;ptc：圆心坐标，rad：半径(defunint_circle (ptc1 rad1 ptc2 rad2 / dst d pt1 pt2alpha beta)(setq dst (distance ptc1 ptc2)alpha (angle ptc2 ptc1)d (/ (+ rad1 dst rad2) 2.0))(cond;;; Circles are tangent((or (eq...

电脑系统【卸载或更改程序】，点击AutoCAD，添加功能【Express Tools】。(setq...(defun c:QS (/ DICEN) (setq DICEN (namedobjdict...一些提示吧，得到直线用的是ssget，它建立一个选择集，然后在选择集中分别取各实体(sslen...用命令：VLISp就能出来autolisp的编辑界面，里面还有很全的调试工具，自己摸索吧。。...

几何运算常用函数。

图象工具使用

1,451

社区成员

24,335

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章