[求助]如何实现实时推动~~~

Jeff101217

在明经里面找了一上午这方面的，也试了几个程序，但不怎么会用。望那位指点下~~~~

我想要实现的想法是，程序要绘制一条由很多点组成的PLINE，其中一个点是基点；在这个基点还没有被选取时，这条PLINE线已经以鼠标为基点绘制出来（屏幕上可以看见完整的图形），也可以随着光标移动而移动，并且能够对象捕捉，不知道有没有这样的命令或者程序~~~~

求助！

~~~谢谢~~~~~~

caoyin

;;用 grread 或 move 移动命令,以move为例

(defun tt (ptlst / a b c)
  (setq a (getvar "osmode")
        b (entlast)
  )
  (setvar "osmode" 0)
  (apply 'command (cons "_.pline" ptlst))
  (command "")
  (setvar "osmode" a)
  (setq c (entlast))
  (if (/= b c)
    (command "_.move" c "" (car ptlst) pause)
  )
  (princ)
)

;;测试

(defun c:test (/ p lst)
  (setq lst (list (setq p (getpoint "\n起点: "))))
  (while p
    (setq lst (cons (setq p (getpoint p "\n下一点: ")) lst))
  )
  (setq lst (cdr lst))
  (tt lst)
)

Jeff101217

谢谢大侠~~