求助 如何在选择点以后画出这条线，如图

cvbnm8888

求助 如何在选择点以后画出这条线，如图求助 如何在选择点以后画出这条线，如图求助 如何在选择点以后画出这条线，如图求助 如何在选择点以后画出这条线，如图

lenlenq

 (setq p1 (getpoint))
(setq p2 (getpoint p1)),此处就会出现橡皮线

lenlenq

 或者
(setq p3 (getdist p1))

cvbnm8888

谢谢楼上的知道 但是 这样返回的是一个距离值，我需要的是等待输入下一个坐标值，就像line命令运行时的效果

 

 

请高手继续赐教啊

cvbnm8888

继续等待高手赐教

crazylsp

这么有诚意，就告诉你吧，我很动了些笨脑筋写了这个程序，你和大家来完善下

     

cvbnm8888

(grdraw p1c p1d 3)
 

 

我要的不是这个矢量，我要的是画线的时候在选择下一点时，在上点和鼠标之间画橡皮线！

谢谢楼上的。。。

cvbnm8888

继续等待中。。。。

ZZXXQQ

下面两个小程序，不知哪个能用。

第一个，完全模拟画直线命令。

(defun c:tt ()
 (setvar "CMDECHO" 0)
 (command ".LINE")
 (while (not (zerop (getvar "CMDACTIVE"))) (command PAUSE))
 (setvar "CMDECHO" 1)
 (princ)
)

第二个仅实现点选取画线。
(defun c:tt ()
 (setvar "CMDECHO" 0)
 (setq pt1 (getpoint "\n开始点 :"))
  (command ".LINE" pt1)
 (while (setq pt2 (getpoint pt1 "\n下一点"))
  (command pt2)
  (setq pt1 pt2)
 )
 (command "")
 (setvar "CMDECHO" 1)
 (princ)
)

cvbnm8888

感谢楼上的，这样貌似可以了，我的想法是先画一条线，然后用ENTLAST取得刚画的线，对齐进行修改厚度等！