明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: lusj

[求助]请问如何求出两条多义线的交点?

  [复制链接]
发表于 2004-8-22 14:36:00 | 显示全部楼层
meflying发表于2004-8-3 8:39:00再次说明:这里的参数使用ent1、ent2就可以了,不需要通过(vlax-ename->vla-object...)转化成vla-object,我已经说了无数次了,好象没有任何人关注这点,继续...

估计是因为在vlisp的帮助中这样举例,就一直这样使用了,谢谢提醒
发表于 2004-9-14 01:55:00 | 显示全部楼层
mcad


您真是我的救命恩人。您写的程序让我获取的交点满足任何情况下的精度要求。


这下我输出坐标不会有问题了。


感激。
发表于 2004-12-7 14:12:00 | 显示全部楼层
程序很好,也很实用,谢谢创作者
发表于 2004-12-18 22:11:00 | 显示全部楼层
请问一个很弱的问题,就是我加载.lsp文件成功了,但是如何运行初结果了?
发表于 2004-12-20 20:14:00 | 显示全部楼层
谢谢四楼的 mccad 。你的那个太好用了,以前不懂怎么用,现在知道了。呵呵。送你一朵鲜花,可千万别把这鲜花插到牛粪上哦。哈哈。也谢谢meflying老师。让我知道了怎么引用。
发表于 2005-4-3 12:49:00 | 显示全部楼层
谢谢,让我上了一场观摩课
发表于 2005-5-23 17:50:00 | 显示全部楼层
感谢各位老师呀


学习,路很遥远呢
发表于 2005-5-23 22:09:00 | 显示全部楼层
4楼mccad的程序并不完善,对于两条spline相交,只返回交点个数的一半,请mccad检验
发表于 2005-5-31 21:49:00 | 显示全部楼层
(defun c:qie ()
;;在画切线的曲线附近确定两点
(setq pt1 (getpoint "Please specify one point:"))
(setq pt2 (getpoint "Please specify tow point:"))
(repeat 7
;;连接pt1和pt2附近的切点的切线然后差除这条切线
(command "line" pt1 (setq pt2 (osnap pt2 "tan")) "")
(command "erase" "L" "")
;;连接pt2和pt1附近的切点的切线然后擦除这条线
(command "line" pt2 (setq pt1 (osnap pt1 "tan")) "")
(command "erase" "L" "")
)
(command "line" pt1 pt2"");_重复7次后得到切线
(prin1)
)
发表于 2005-6-7 20:21:00 | 显示全部楼层
整理一个最终版本好么?我都不知道用哪个好了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-2-23 17:29 , Processed in 0.227839 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表