如何用两个并列条件返回选点动作，试了两种方法都不行

Backkom

第一种
(setq yzd (getpoint "\n选取桩号已知点："))

  (while (= nil yzd)
    (setq yzd (getpoint "\n选取桩号已知点："))
  )

  (while (not (vlax-curve-getDistAtPoint lx yzd))
    (setq yzd (getpoint "\n\n\n没有选在路线上，重新选取："))
  )

第二种
  (setq yzd (getpoint "\n选取桩号已知点："))
       (cond   ((= nil yzd) (setq yzd (getpoint "\n选取桩号已知点：")))

newer

想要做什么？什么是两个并列条件？

satan421

;;不太确定你的(vlax-curve-getDistAtPoint lx yzd)的意思
;;如果是想返回所选点是否在线上的话，可以用distance+vlax-curve-getClosestPointTo


;;按我的理解,改动如下
;;所选取的桩号点应该在curve-obj上,防止误判，加了0.001的容差
(setq curve-obj (vlax-ename->vla-object(car(entsel))))
(setq yzd (getpoint "\n选取桩号已知点："))
(while (or(= nil yzd)(not(equal(distance (vlax-curve-getClosestPointTo curve-obj yzd) yzd) 0.0 0.001)))
  (setq yzd (getpoint "\n\n\n没有选在路线上，重新选取："))
)

Backkom

satan421 发表于 2019-3-13 11:38
;;不太确定你的(vlax-curve-getDistAtPoint lx yzd)的意思
;;如果是想返回所选点是否在线上的话，可以用di ...

我是想控制两个方面，一是必须有选点这个操作，如果直接回车会提示“选取桩号已知点”，二是必须选在线上，如果不在线上，就提示“没有选在线上，重新选取”，现在测试下来是两个单独条件用都有效，但是放一起就不行了。问题就是我怎样才能让两个条件都起作用呢

Backkom

newer 发表于 2019-3-13 11:19
想要做什么？什么是两个并列条件？

我是想控制两个方面，一是必须有选点这个操作，如果直接回车会提示“选取桩号已知点”，二是必须选在线上，如果不在线上，就提示“没有选在线上，重新选取”，现在测试下来是两个单独条件用都有效，但是放一起就不行了。问题就是我怎样才能让两个条件都起作用呢

satan421

;;加一句(setq yzd nil)，如果未选取就直接回车，yzd的值仍为nil，则进入while循环
;;如下
(setq curve-obj (vlax-ename->vla-object(car(entsel))))
(setq yzd nil)
(setq yzd (getpoint "\n选取桩号已知点："))
(while (or(= nil yzd)(not(equal(distance (vlax-curve-getClosestPointTo curve-obj yzd) yzd) 0.0 0.001)))
  (setq yzd (getpoint "\n\n\n没有选在路线上，重新选取："))
)

Backkom

satan421 发表于 2019-3-13 15:33
;;加一句(setq yzd nil)，如果未选取就直接回车，yzd的值仍为nil，则进入while循环
;;如下
(setq curve-o ...

谢谢，这样试了是可行的。
只是我希望如果直接回车会提示“选取桩号已知点“，如果没有选在线上，提示“没有选在线上，重新选取”。不知道这样的想法好实现不，lisp没有goto语句，不然就好办了

satan421

;;那在循环里面加一个判断就行了
(setq curve-obj (vlax-ename->vla-object(car(entsel))))
(setq yzd nil)
(while (or(= nil yzd)(not(equal(distance (vlax-curve-getClosestPointTo curve-obj yzd) yzd) 0.0 0.001)))
  (if (= nil yzd)
    (setq yzd (getpoint "\n选取桩号已知点："))
    (setq yzd (getpoint "\n\n\n没有选在路线上，重新选取："))
  )
)

Backkom

satan421 发表于 2019-3-14 10:20
;;那在循环里面加一个判断就行了
(setq curve-obj (vlax-ename->vla-object(car(entsel))))
(setq yzd ni ...

太棒了，谢谢，终于搞定了

Backkom

satan421 发表于 2019-3-14 10:20
;;那在循环里面加一个判断就行了
(setq curve-obj (vlax-ename->vla-object(car(entsel))))
(setq yzd ni ...

请教一下，之前这个问题是解决了，但是如果我换一个用户坐标系，这个判断又不灵了，考虑容差也不行，查了vlax-curve-getClosestPointTo这个函数，是表示需要在WCS坐标系才起作用。那么我想在自定义的坐标系下实现这个功能有办法吗

satan421

Backkom 发表于 2019-3-20 15:38
请教一下，之前这个问题是解决了，但是如果我换一个用户坐标系，这个判断又不灵了，考虑容差也不行，查了 ...

自己写个函数，可以写成直接判断点是否在线上

kqqt6236

谢谢分享。