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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 判断一个点是否在圆弧线上或在圆弧线的延长线上 ...
返回列表 发新帖
查看: 2639|回复: 8

[每日一码] 判断一个点是否在圆弧线上或在圆弧线的延长线上

[复制链接]
lgx9612

已领礼包: 146个

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

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

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

×
判断一个点是否在圆弧线上或在圆弧线的延长线上
  2. (defun inters_point&arc (c-centerpoint c-rad r-start-ang r-end-ang p-point1 show / return_result_lgx interangle-lgx)
  3. ;;;原创,编写:刘国新
  4. ;;;判断一个点是否在圆弧线上或在圆弧线的延长线上
  5. ;;;使用方法如下
  6. ;;;(inters_point&arc (cdr (assoc 10 (setq arc (entget (car (entsel "请选择圆弧\n")))))) (cdr (assoc 40 arc)) (cdr (assoc 50 arc))
  7. ;;;(cdr (assoc 51 arc)) (getpoint "请点选:") "show")
  8. (setq return_result_lgx nil)
  9. (if (= r-start-ang nil)
  10. (setq r-start-ang 0.0)
  11. )
  12. (if (= r-end-ang nil)
  13. (setq r-end-ang 0.0)
  14. )
  15. (setq r-start-ang (atof (angtos r-start-ang 0 8)))
  16. (setq r-end-ang (atof (angtos r-end-ang 0 8)))
  17. (if (and (= r-end-ang 0.0)(= r-start-ang 0.0))
  18. (setq r-end-ang 360.0)
  19. )
  20. (if (or (= c-centerpoint nil) (= c-rad nil) (= p-point1 nil))
  21. (setq return_result_lgx nil)
  22. (progn
  23. (if (equal c-rad (distance c-centerpoint p-point1) 0.0005)
  24. (progn
  25. (setq interangle-lgx (atof (angtos (angle c-centerpoint p-point1) 0 8)))
  26. (if (< r-end-ang r-start-ang)
  27. (if (or (<= interangle-lgx r-end-ang)(>= interangle-lgx r-start-ang))
  28. (progn
  29. (if (/= show nil)
  30. (princ "\n点在圆弧线上!!!\n")
  31. )
  32. (setq return_result_lgx 1)
  33. )
  34. (progn
  35. (if (/= show nil)
  36. (princ "\n点在圆弧线的延长线上!!!\n")
  37. )
  38. (setq return_result_lgx 2)
  39. )
  40. )
  41. (if (and (>= interangle-lgx r-start-ang)(<= interangle-lgx r-end-ang))
  42. (progn
  43. (if (/= show nil)
  44. (princ "\n点在圆弧线上!!!\n")
  45. )
  46. (setq return_result_lgx 1)
  47. )
  48. (progn
  49. (if (/= show nil)
  50. (princ "\n点在圆弧线的延长线上!!!\n")
  51. )
  52. (setq return_result_lgx 2)
  53. )
  54. )
  55. )
  56. )
  57. (progn
  58. (if (/= show nil)
  59. (princ "\n点不在圆弧线上或圆弧线的延长线上!!!\n")
  60. )
  61. (setq return_result_lgx nil)
  62. )
  63. )
  64. )
  65. )
  66. (princ)
  67. return_result_lgx
  68. )


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

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2014-8-30 00:22:52 来自手机 | 显示全部楼层
感觉复杂了

点评

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

使用道具 举报

zxq0220

已领礼包: 11298个

财富等级: 富甲天下
发表于 2014-8-30 07:38:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. (defun orarc (pt arcen)
  3. (setq ent (entget arcen))
  4. (setq r (cdr(assoc 40 ent)))
  5. (setq pc (cdr(assoc 10 ent)))
  6. (setq dis (distance pt pc))
  7. (if (equal r dis 1e-6)
  8.   (if (osnap pt "NEAR")
  9.    (princ "点在弧上")
  10.    (princ "点在延长线上")
  11.   )
  12.   (princ "点不在弧上")
  13. )
  14. )
  15. ;用法:(orarc (getpoint) (car(entsel)))

点评

lgx9612
不好意思，没有分析你的代码其中(osnap pt "NEAR")是会误判的呀，如果你的点不在圆弧上但在圆弧线的延长线上,但你的点正处于其它图素上，就会误判呀.  详情 回复 发表于 2014-8-30 12:28
lgx9612
这位兄弟，我的使用方法中的提示可能给你一些误解，我这个程序只是计算，在完全没有圆弧和点的情况下，只是给定各个参数来判断的。当然你可以根据给定的各个参数先画出圆弧再来用你的这个代码也是可以的。(我  详情 回复 发表于 2014-8-30 08:04
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-30 07:56:17 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-8-30 00:22
感觉复杂了

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

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-30 08:04:31 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2014-8-30 07:38

      这位兄弟，我的使用方法中的提示可能给你一些误解，我这个程序只是计算，在完全没有圆弧和点的情况下，只是给定各个参数来判断的。当然你可以根据给定的各个参数先画出圆弧再来用你的这个代码也是可以的。(我的使用方法中的提示是想提示如何获得参数?)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-30 12:28:06 | 显示全部楼层
zxq0220 发表于 2014-8-30 07:38

     不好意思，没有分析你的代码其中(osnap pt "NEAR")是会误判的呀，如果你的点不在圆弧上但在圆弧线的延长线上,但你的点正处于其它图素上，就会误判呀.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2016-12-7 16:49:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
用点到圆心的距离是否等于半径 不就能判断出来吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xvjiex

已领礼包: 1094个

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

使用道具 举报

guosheyang2
发表于 2021-11-7 15:47:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
通过点到圆心的距离是否等于半径即可判断了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-26 02:13 , Processed in 0.184343 second(s), 50 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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