[求助]：怎样约束用户输入的点必须在一个多义线上

bjzjt

让用户输入一个点,要求必须在图中的某条多义线上,我只能想到两种不太好的做法:
1.告诉用户必须在这条线上选点,如果用户输入的点不合要求就让他重新输入.
2.用Grread跟踪鼠标,算出离鼠标最近的位于线上的点,再用Grdraw动态地画个标记.
办法1得算不负责任,办法2我又觉得编程复杂而且对用户来说也不直观.
有什么好办法?求大侠们提供点思路.

hb198075

按你的思路编的...

[php]
(defun c:test1 (/ ent gr pt lin)
  (setq lin (ssget ":E:S" '((0 . "LWPOLYLINE"))))
  (if lin
    (progn
      (prompt "\n请选择线上的点:")
      (while (and (setq gr (grread 5 5 1)) (= (car gr) 5))
        (setq pt (test-near (cadr gr) lin))
        (setq ent (test-redraw pt))
      )
      (setq ent (subst (cons 40 30) (assoc 40 ent) ent))
      (entmod ent)
    )
  )
  (princ)
)


(defun test-near (p1 l / obj rel)
  (setq        obj (vlax-ename->vla-object (ssname l 0))
        rel (vlax-curve-getclosestpointto obj p1)
  )
)

(defun test-redraw (p1 / rel)
  (if p1
    (if        (null ent)
      (progn
        (entmake (list (cons 0 "CIRCLE")
                       (cons 10 p1)
                       (cons 40 10)
                 )
        )
        (setq rel (entget (entlast)))
      )
      (progn
        (setq rel (subst (cons 10 p1) (assoc 10 ent) ent))
        (entmod rel)
      )
    )
  )
  rel
)
[/php]

bjzjt

多谢二楼费心，居然帮我把程序都写了。好人呀。不过不要再替我写程序了，真是不好意思得很，这显得我太懒惰了。
想想也是，第二个思路大概就是最好的办法了。您是用一个圆圈来做动态标记的，我本来想用GRVECS 来模仿ACAD的自动捕捉，用一个类似于”最近点“捕捉标记的东西来实现，让用户看起来好象标准的捕捉动作一样。按这样做的话就得为屏幕缩放、图形旋转等因素准备矩阵参数，还要让那个标记的颜色、大小都跟用户设置的捕捉标记一样，太费心。
所以我盼着能有一种简单的办法，最好能有个偷懒的函数一设置，就限制了只使用最近点捕捉，还限制在只捕捉这一条线上，那该多好。

zml84

操千曲而后晓声。