设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 求直线与圆弧的交点
返回列表 发新帖
查看: 2063|回复: 7

[每日一码] 求直线与圆弧的交点

[复制链接]
lgx9612

已领礼包: 146个

财富等级: 日进斗金
发表于 2014-8-29 21:50:50 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
本帖最后由 lgx9612 于 2014-8-30 08:15 编辑

求直线与圆弧的交点（附:直线跟圆弧都是给定参数而定的，图中并没有这此图素，是虚拟的，此程序用来计算用）
  2. (defun inters_arc&line (l-point1 l-point2 c-centerpoint c-rad r-start-ang r-end-ang / line_angle_lgx per-line_oarc-point_lgx
  3.            line-inters-perline length-perline_lgx return_result_lgx length-inter-arc_lgx inter-point1 inter-point2
  4.            return_point interangle-lgx)
  5. ;;;原创,编写:刘国新
  6. ;;;求直线与圆弧的交点
  7. ;;;使用方法如下1;
  8. ;;;(inters_arc&line (getpoint "点一\n") (getpoint "点一\n") (cdr (assoc 10 (setq arc (entget (car (entsel "请选择圆弧\n"))))))
  9. ;;;(cdr (assoc 40 arc))(cdr (assoc 50 arc))(cdr (assoc 51 arc)))
  10. ;;;使用方法如下2;
  11. ;;;(inters_arc&line (cdr (assoc 10 (setq line (entget (car (entsel "请选择直线\n")))))) (cdr (assoc 11 line))
  12. ;;;(cdr (assoc 10 (setq arc (entget (car (entsel "请选择圆弧\n"))))))
  13. ;;;(cdr (assoc 40 arc))(cdr (assoc 50 arc))(cdr (assoc 51 arc)))
  14. ;;;参数如下
  15. ;;;l-point1 直线的起点
  16. ;;;l-point2 直线的终点
  17. ;;;c-centerpoint 圆弧的中心点
  18. ;;;c-rad         圆弧的半径
  19. ;;;r-start-ang   圆弧起始角,弧度值
  20. ;;;r-end-ang     圆弧终止角,弧度值
  21. (if (or (= l-point1 nil) (= l-point2 nil) (= c-centerpoint nil)(= c-rad nil)(<= c-rad 0))
  22. (setq return_result_lgx nil)
  23. (progn
  24. (setq line_angle_lgx (angle l-point1 l-point2))
  25. (setq per-line_oarc-point_lgx (polar c-centerpoint (+ line_angle_lgx (* pi 0.5)) c-rad))
  26. (setq line-inters-perline (inters l-point1 l-point2 per-line_oarc-point_lgx c-centerpoint nil))
  27. (setq length-perline_lgx (distance c-centerpoint line-inters-perline))
  28. (if (= r-start-ang nil)
  29. (setq r-start-ang 0.0)
  30. )
  31. (if (= r-end-ang nil)
  32. (setq r-end-ang 0.0)
  33. )
  34. (setq r-start-ang (atof (angtos r-start-ang 0 8)))
  35. (setq r-end-ang (atof (angtos r-end-ang 0 8)))
  36. (if (and (= r-end-ang 0.0)(= r-start-ang 0.0))
  37. (setq r-end-ang 360.0)
  38. )
  39. (progn
  40. (setq return_result_lgx nil)
  41. (if (< (abs (- length-perline_lgx c-rad)) 0.001)
  42. (progn
  43. (setq inter-point1 line-inters-perline)
  44. (setq inter-point2 nil)
  45. )
  46. (if (< (- length-perline_lgx c-rad) 0)
  47. (progn
  48. (setq length-inter-arc_lgx (sqrt (- (* c-rad c-rad) (* length-perline_lgx length-perline_lgx))))
  49. (setq inter-point1 (polar line-inters-perline line_angle_lgx length-inter-arc_lgx))
  50. (setq inter-point2 (polar line-inters-perline (+ line_angle_lgx pi) length-inter-arc_lgx))
  51. )
  52. (progn
  53. (setq inter-point1 nil)
  54. (setq inter-point2 nil)
  55. )
  56. )
  57. )
  58. (if (/= inter-point1 nil)
  59. (if (/= (setq return_point (inters l-point1 l-point2 inter-point1 c-centerpoint)) nil)
  60. (progn
  61. (setq interangle-lgx (atof (angtos (angle c-centerpoint return_point) 0 8)))
  62. (if (< r-end-ang r-start-ang)
  63. (if (or (<= interangle-lgx r-end-ang)(>= interangle-lgx r-start-ang))
  64. (setq return_result_lgx (list 1 return_point))
  65. )
  66. (if (and (>= interangle-lgx r-start-ang)(<= interangle-lgx r-end-ang))
  67. (setq return_result_lgx (list 1 return_point))
  68. )
  69. )
  70. )
  71. (if (/= (setq return_point (inters l-point1 l-point2 inter-point1 (polar inter-point1 (+ (angle c-centerpoint inter-point1) (* pi 0.5)) 5))) nil)  
  72. (progn
  73. (setq interangle-lgx (atof (angtos (angle c-centerpoint return_point) 0 8)))
  74. (if (< r-end-ang r-start-ang)
  75. (if (or (<= interangle-lgx r-end-ang)(>= interangle-lgx r-start-ang))
  76. (setq return_result_lgx (list 1 return_point))
  77. )
  78. (if (and (>= interangle-lgx r-start-ang)(<= interangle-lgx r-end-ang))
  79. (setq return_result_lgx (list 1 return_point))
  80. )
  81. )
  82. )
  83. (if (or (equal inter-point1 l-point1 0.005)(equal inter-point1 l-point2 0.005))
  84. (setq return_result_lgx (list 1 inter-point1))
  85. )
  86. )
  87. )
  88. )
  89. (if (/= inter-point2 nil)
  90. (if (/= (setq return_point (inters l-point1 l-point2 inter-point2 c-centerpoint)) nil)
  91. (if (= return_result_lgx nil)
  92. (progn
  93. (setq interangle-lgx (atof (angtos (angle c-centerpoint return_point) 0 8)))
  94. (if (< r-end-ang r-start-ang)
  95. (if (or (<= interangle-lgx r-end-ang)(>= interangle-lgx r-start-ang))
  96. (setq return_result_lgx (list 1 return_point))
  97. )
  98. (if (and (>= interangle-lgx r-start-ang)(<= interangle-lgx r-end-ang))
  99. (setq return_result_lgx (list 1 return_point))
  100. )
  101. )
  102. )
  103. (progn
  104. (setq interangle-lgx (atof (angtos (angle c-centerpoint return_point) 0 8)))
  105. (if (< r-end-ang r-start-ang)
  106. (if (or (<= interangle-lgx r-end-ang)(>= interangle-lgx r-start-ang))
  107. (setq return_result_lgx (list 2 (cadr return_result_lgx) return_point))
  108. )
  109. (if (and (>= interangle-lgx r-start-ang)(<= interangle-lgx r-end-ang))
  110. (setq return_result_lgx (list 2 (cadr return_result_lgx) return_point))
  111. )
  112. )
  113. )
  114. )
  115. (if (/= (setq return_point (inters l-point1 l-point2 inter-point2 (polar inter-point2 (+ (angle c-centerpoint inter-point2) (* pi 0.5)) 5))) nil)
  116. (if (= return_result_lgx nil)
  117. (progn
  118. (setq interangle-lgx (atof (angtos (angle c-centerpoint return_point) 0 8)))
  119. (if (< r-end-ang r-start-ang)
  120. (if (or (<= interangle-lgx r-end-ang)(>= interangle-lgx r-start-ang))
  121. (setq return_result_lgx (list 1 return_point))
  122. )
  123. (if (and (>= interangle-lgx r-start-ang)(<= interangle-lgx r-end-ang))
  124. (setq return_result_lgx (list 1 return_point))
  125. )
  126. )
  127. )
  128. (progn
  129. (setq interangle-lgx (atof (angtos (angle c-centerpoint return_point) 0 8)))
  130. (if (< r-end-ang r-start-ang)
  131. (if (or (<= interangle-lgx r-end-ang)(>= interangle-lgx r-start-ang))
  132. (setq return_result_lgx (list 2 (cadr return_result_lgx) return_point))
  133. )
  134. (if (and (>= interangle-lgx r-start-ang)(<= interangle-lgx r-end-ang))
  135. (setq return_result_lgx (list 2 (cadr return_result_lgx) return_point))
  136. )
  137. )
  138. )
  139. )
  140. (if (or (equal inter-point2 l-point1 0.005)(equal inter-point2 l-point2 0.005))
  141. (if (= return_result_lgx nil)
  142. (setq return_result_lgx (list 1 inter-point2))
  143. (setq return_result_lgx (list 2 (cadr return_result_lgx) inter-point2))
  144. )
  145. )
  146. )
  147. )
  148. )
  149. )
  150. )
  151. )
  152. (princ)
  153. return_result_lgx
  154. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

ynhh

已领礼包: 6881个

财富等级: 富甲天下
发表于 2014-8-30 10:04:42 | 显示全部楼层
你这全局变理太多了
交点有一个或两个
你这不知是如何判断的

点评

lgx9612
判断相交的点是否在圆弧的起始角和终止角之间  详情 回复 发表于 2014-8-30 13:28
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-8-30 10:49:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
精神值得鼓励，不过用 ActiveX 的 IntersectWith 更简单，AutoCAD 下就用 AuotDESK方法

点评

lgx9612
可否赐教!  详情 回复 发表于 2014-8-30 12:33
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-30 12:33:24 | 显示全部楼层
csharp 发表于 2014-8-30 10:49
精神值得鼓励，不过用 ActiveX 的 IntersectWith 更简单，AutoCAD 下就用 AuotDESK方法

可否赐教!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-30 13:28:25 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
ynhh 发表于 2014-8-30 10:04
你这全局变理太多了
交点有一个或两个
你这不知是如何判断的

判断相交的点是否在圆弧的起始角和终止角之间
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-8-30 13:33:31 | 显示全部楼层
lgx9612 发表于 2014-8-30 12:33
可否赐教!

虚与实是相对的，虚虚实实
  1. (defun l&arc (lsp lep acp radius asan aean / ln arc ms ptl pts)
  2.   (setq        ms  (vla-get-modelspace
  3.               (vla-get-activedocument (vlax-get-acad-object))
  4.             )
  5.         ln  (vlax-invoke ms 'AddLine lsp lep)
  6.         arc (vlax-invoke ms 'AddArc acp radius asan aean)
  7.   )
  8.   (if (setq pts (vlax-invoke ln 'IntersectWith arc 0))
  9.     (if        (= (length pts) 3)
  10.       (setq ptl pts)
  11.       (setq ptl        (list (list (car pts) (cadr pts) (caddr pts))
  12.                       (cdddr pts)
  13.                 )
  14.       )
  15.     )
  16.   )
  17.   (mapcar 'vla-delete (list ln arc))
  18.   ptl
  19. )

点评

lgx9612
受教，谢谢!  详情 回复 发表于 2014-8-30 13:49
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-30 13:49:42 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2014-8-30 13:33
虚与实是相对的，虚虚实实

受教，谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xvjiex

已领礼包: 1094个

财富等级: 财源广进
发表于 2021-7-1 00:03:43 | 显示全部楼层
感谢楼主分享求直线与圆弧的交点！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-25 13:42 , Processed in 0.299308 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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