设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1131|回复: 17

[点表] (XD::Pnts:Between)求点表中测试点在哪两个点之间

[复制链接]

签到天数: 1166 天

连续签到: 25 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-5-4 18:31:16 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Pnts:Between
调用格式: (XD::Pnts:Between pnts pt)
参数说明: pnts ---- 点表(组成直线)
pt ------- 测试点
返回值: 两点表 or NIL
函数简介: 求点表中测试点在哪两个点之间
函数来源: 原创
函数作者: Newer
适用版本: XDRX API 
最后更新时间: 2016-05-04
备注: -
演示图片:

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 newer 于 2016-5-4 18:42 编辑

函数XD::Pnt:IsBetween见:http://bbs.xdcad.net/thread-704111-1-1.html

游客,如果您要查看本帖隐藏内容请回复



测试工具:
  1. (defun c:tt ()
  2.   (if (and
  3.         (setq e (car (xdrx_entsel "\nPick a Line")))
  4.         (setq p (getpoint "\nPick a Point"))
  5.       )
  6.     (progn
  7.       (setq pnts (xdrx_getsamplept e 8)
  8.             pnts (xd::pnts:wcs2ucs pnts)
  9.       )
  10.       (if (setq p1 (xd::pnts:between pnts p))
  11.         (progn
  12.           (setq vx (xdrx_vector_normalize (mapcar
  13.                                             '-
  14.                                             (last pnts)
  15.                                             (car pnts)
  16.                                           )
  17.                    )
  18.                 vy (xdrx_vector_perpvector vx)
  19.           )
  20.           (mapcar
  21.             '(lambda (x)
  22.                (setq p2 (mapcar
  23.                           '+
  24.                           x
  25.                           (xdrx_vector_product vy 1000.0)
  26.                         )
  27.                )
  28.                (xdrx_line_make (trans p2 1 0) (trans x 1 0))
  29.                (xdrx_setpropertyvalue (entlast) "color" (xdrx_math_rand 7))
  30.              )
  31.             pnts
  32.           )
  33.           (mapcar '(lambda(x)(xd::doc:drawcrosshair (trans x 1 0)))(cons p pnts))
  34.           (mapcar '(lambda(x)(xdrx_circle_make (trans x 1 0) 40.0)) p1)
  35.         )
  36.       )
  37.     )
  38.   )
  39.   (princ)
  40. )


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

签到天数: 41 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 12个

财富等级: 恭喜发财

发表于 2016-9-22 19:47:42 | 显示全部楼层
“我来测试一下,行不行”
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 606 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 264个

财富等级: 日进斗金

发表于 2016-9-22 23:37:49 来自手机 | 显示全部楼层
  1. (defun ff (p pts)
  2.   (vl-member-if
  3.     (function (lambda (a / d)
  4.                 (setq d        (apply
  5.                           (function distance)
  6.                           a
  7.                         )
  8.                 )
  9.                 (< 0
  10.                    (last (trans        (mapcar
  11.                                   '-
  12.                                   p
  13.                                   (car a)
  14.                                   0
  15.                                   (apply
  16.                                     'mapcar
  17.                                     (cons '- a)
  18.                                   )
  19.                                 )
  20.                          )
  21.                    )
  22.                    d
  23.                 )
  24.               )
  25.     )
  26.     pts
  27.   )
  28. )


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

使用道具 举报

签到天数: 1958 天

连续签到: 93 天

[LV.Master]伴坛终老I

已领礼包: 5731个

财富等级: 富甲天下

发表于 2016-9-23 07:26:32 | 显示全部楼层
感谢两位分享程序!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1380 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 3065个

财富等级: 富可敌国

发表于 2016-9-23 08:14:37 | 显示全部楼层
感谢兄台成功经验,好好学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 41 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 12个

财富等级: 恭喜发财

发表于 2016-10-5 08:05:58 | 显示全部楼层
学习啦感谢楼主
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 262 天

连续签到: 2 天

[LV.8]以坛为家I

发表于 2017-5-18 21:38:47 | 显示全部楼层
这个还是有兴趣的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 288 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 420个

财富等级: 日进斗金

发表于 2017-7-13 11:16:43 | 显示全部楼层
我来测试一下,行不行
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 248 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 134个

财富等级: 日进斗金

发表于 2017-8-29 17:53:50 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 95 天

连续签到: 1 天

[LV.6]常住居民II

点击这里给我发消息

已领礼包: 29个

财富等级: 恭喜发财

发表于 2017-10-7 09:59:26 | 显示全部楼层
         高深啊啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 231 天

连续签到: 23 天

[LV.7]常住居民III

发表于 2017-11-23 09:51:35 | 显示全部楼层
多办我看不懂
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 92 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 3个

财富等级: 恭喜发财

发表于 2018-1-6 20:03:28 | 显示全部楼层
点表中测试点在哪两个点之间
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 368 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 329个

财富等级: 日进斗金

发表于 2018-6-14 22:19:21 来自手机 | 显示全部楼层
学习学习。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 32 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 8个

财富等级: 恭喜发财

发表于 2018-7-6 08:28:05 | 显示全部楼层
值得拥有,很好。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 211 天

连续签到: 5 天

[LV.7]常住居民III

已领礼包: 35个

财富等级: 招财进宝

发表于 2018-8-28 17:14:34 | 显示全部楼层
参考下思路,如何判断一个点是否在线上
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2018-11-15 00:33 , Processed in 0.217994 second(s), 60 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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