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

newer · 发表于 2016-5-4 18:31:16

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

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

×

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

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

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

测试工具：

(defun c:tt ()
(if (and
(setq e (car (xdrx_entsel "\nPick a Line")))
(setq p (getpoint "\nPick a Point"))
)
(progn
(setq pnts (xdrx_getsamplept e 8)
pnts (xd::pnts:wcs2ucs pnts)
)
(if (setq p1 (xd::pnts:between pnts p))
(progn
(setq vx (xdrx_vector_normalize (mapcar
'-
(last pnts)
(car pnts)
)
)
vy (xdrx_vector_perpvector vx)
)
(mapcar
'(lambda (x)
(setq p2 (mapcar
'+
x
(xdrx_vector_product vy 1000.0)
)
)
(xdrx_line_make (trans p2 1 0) (trans x 1 0))
(xdrx_setpropertyvalue (entlast) "color" (xdrx_math_rand 7))
)
pnts
)
(mapcar '(lambda(x)(xd::doc:drawcrosshair (trans x 1 0)))(cons p pnts))
(mapcar '(lambda(x)(xdrx_circle_make (trans x 1 0) 40.0)) p1)
)
)
)
)
(princ)
)

(defun c:tt () 
  (if (and 
        (setq e (car (xdrx_entsel "\nPick a Line"))) 
        (setq p (getpoint "\nPick a Point")) 
      ) 
    (progn 
      (setq pnts (xdrx_getsamplept e 8) 
            pnts (xd::pnts:wcs2ucs pnts) 
      ) 
      (if (setq p1 (xd::pnts:between pnts p)) 
        (progn 
          (setq vx (xdrx_vector_normalize (mapcar 
                                            '- 
                                            (last pnts) 
                                            (car pnts) 
                                          ) 
                   ) 
                vy (xdrx_vector_perpvector vx) 
          ) 
          (mapcar 
            '(lambda (x) 
               (setq p2 (mapcar 
                          '+ 
                          x 
                          (xdrx_vector_product vy 1000.0) 
                        ) 
               ) 
               (xdrx_line_make (trans p2 1 0) (trans x 1 0)) 
               (xdrx_setpropertyvalue (entlast) "color" (xdrx_math_rand 7)) 
             ) 
            pnts 
          ) 
          (mapcar '(lambda(x)(xd::doc:drawcrosshair (trans x 1 0)))(cons p pnts)) 
          (mapcar '(lambda(x)(xdrx_circle_make (trans x 1 0) 40.0)) p1) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

收到法国大使馆 · 发表于 2016-9-22 19:47:42

“我来测试一下，行不行”

iLisp · 发表于 2016-9-22 23:37:49

(defun ff (p pts)
(vl-member-if
(function (lambda (a / d)
(setq d (apply
(function distance)
a
)
)
(< 0
(last (trans (mapcar
'-
p
(car a)
0
(apply
'mapcar
(cons '- a)
)
)
)
)
d
)
)
)
pts
)
)

yoyoho · 发表于 2016-9-23 07:26:32

感谢两位分享程序!!!!

yjch · 发表于 2016-9-23 08:14:37

感谢兄台成功经验，好好学习

收到法国大使馆 · 发表于 2016-10-5 08:05:58

学习啦感谢楼主

yuanziyou · 发表于 2017-5-18 21:38:47

这个还是有兴趣的

qhdycm2016 · 发表于 2017-7-13 11:16:43

我来测试一下，行不行

liulisheng · 发表于 2017-8-29 17:53:50

bonny123 · 发表于 2017-10-7 09:59:26

高深啊啊

taoyi0727 · 发表于 2017-11-23 09:51:35

多办我看不懂

半边书生 · 发表于 2018-1-6 20:03:28

点表中测试点在哪两个点之间

qyming1996 · 发表于 2018-6-14 22:19:21

学习学习。。。

ewqszh · 发表于 2018-7-6 08:28:05

值得拥有，很好。

dyjwyqz5221 · 发表于 2018-8-28 17:14:34

参考下思路，如何判断一个点是否在线上

账号		自动登录	找回密码
密码			立即注册

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

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