[求助]：请教：动态拖动线

maoding

我想实现这样一个功能标注曲线长度，其中有一个步骤就是拾取起点和终点，现在我想完成在拾取点时，有鼠标到曲线上最近点有一条动态的线，在拾取完后，在曲线上的点显示十字叉，在拖动窗口时，小叉消失，但心有余而力不足。
还有就是那个动画演示怎么做
小弟有理了！谢！

hi71400

呵呵，俺只知其一：
就是那个动画演示，是用屏幕摄像软件做的。

maoding

从他处学来的

(defun C:TT (/ L1 PT)
  (vl-load-com)
  (setq L1 (cadr (entsel "\n选线: ")))
  (setvar "cmdecho" 1)
  (vl-cmdf "_.line" "_per" L1 PAUSE "")
  (setq PT (cadr (grread 1 1)))
  (vl-cmdf "_.erase" (entlast) "")
  (vl-cmdf "_.line" PT "_per" L1 "")
  (princ)
)

shisj

你这个好像没有动态功能，我这里没有显示，系统2004

maoding

一条动态的线
跟随鼠标移动

梦断江南

方法1：
用xline做辅助线，第一点取“per”曲线，
方法2：
grread，沿鼠标动态点和曲线上最近点画直线。

aidraft

2. 
   
3. (defun C:TT  (/ enline old_cmdEcho old_osmode en PT ret Next_PT typ)
   
4.   (vl-load-com)
   
5.   (setq        old_cmdEcho (getvar "CMDECHO")
   
6.         old_osmode  (getvar "OSMODE"))
   
7.   (setq en (car (entsel "\n选线: ")))
   
8.   (setvar "CMDECHO" 0)
   
9.   (setvar "OSMODE" 0)
   
10.   (setq PT (cadr (grread 1 1)))
    
11.   (while PT
    
12.     (setq ret (grread 1 1))
    
13.     (setq Next_PT (cadr ret)
    
14.           typ          (car ret))
    
15.     (cond ((= typ 5)
    
16.            (if (not (equal Next_PT PT 0.00000001))
    
17.              (progn
    
18.                (redraw)
    
19.                (updline Next_PT en enline)
    
20.                ))
    
21.            (setq PT Next_PT))
    
22.           ((= typ 3)
    
23.            (if (not (equal Next_PT PT 0.00000001))
    
24.              (updline Next_PT en enline)
    
25.              )
    
26.            (setq PT nil))
    
27.           (T (setq PT Next_PT))))
    
28.   (redraw)
    
29.   (setvar "CMDECHO" old_cmdEcho)
    
30.   (setvar "OSMODE" old_osmode)
    
31.   (princ)
    
32.   )
    
33. ;;-------------------------------------------------
    
34. (defun updline        (pt enc enl / pt1 el)
    
35.   (setq pt1 (vlax-curve-getClosestPointTo enc pt))
    
36.   (DrawMark pt1)
    
37.   (if (not (boundp 'enl))
    
38.     (if        (vl-cmdf "_.line" pt pt1 "")
    
39.       (setq enline (entlast)))
    
40.     (if        (not (equal pt1 pt 0.00000001))
    
41.       (progn
    
42.         (setq el (entget enl))
    
43.         (setq el (subst (cons 10 pt) (assoc 10 el) el))
    
44.         (setq el (subst (cons 11 pt1) (assoc 11 el) el))
    
45.         (entmod el)
    
46.         )
    
47.       )
    
48.     )
    
49.   )
    
50. ;;--------------------------------------------------
    
51. (defun DrawMark         (p / marksize)
    
52.   (setq marksize (/ (getvar "viewsize") 25))
    
53.   (grdraw (polar p pi (* marksize 0.5))
    
54.           (polar p 0 (* marksize 0.5))
    
55.           2)
    
56.   (grdraw (polar p (* pi 0.5) (* marksize 0.5))
    
57.           (polar p (* pi 1.5) (* marksize 0.5))
    
58.           2)
    
59.   )
    

<br /> (defun C:TT  (/ enline old_cmdEcho old_osmode en PT ret Next_PT typ)<br />   (vl-load-com)<br />   (setq        old_cmdEcho (getvar "CMDECHO")<br />         old_osmode  (getvar "OSMODE"))<br />   (setq en (car (entsel "\n选线: ")))<br />   (setvar "CMDECHO" 0)<br />   (setvar "OSMODE" 0)<br />   (setq PT (cadr (grread 1 1)))<br />   (while PT<br />     (setq ret (grread 1 1))<br />     (setq Next_PT (cadr ret)<br />           typ          (car ret))<br />     (cond ((= typ 5)<br />            (if (not (equal Next_PT PT 0.00000001))<br />              (progn<br />                (redraw)<br />                (updline Next_PT en enline)<br />                ))<br />            (setq PT Next_PT))<br />           ((= typ 3)<br />            (if (not (equal Next_PT PT 0.00000001))<br />              (updline Next_PT en enline)<br />              )<br />            (setq PT nil))<br />           (T (setq PT Next_PT))))<br />   (redraw)<br />   (setvar "CMDECHO" old_cmdEcho)<br />   (setvar "OSMODE" old_osmode)<br />   (princ)<br />   )<br /> ;;-------------------------------------------------<br /> (defun updline        (pt enc enl / pt1 el)<br />   (setq pt1 (vlax-curve-getClosestPointTo enc pt))<br />   (DrawMark pt1)<br />   (if (not (boundp 'enl))<br />     (if        (vl-cmdf "_.line" pt pt1 "")<br />       (setq enline (entlast)))<br />     (if        (not (equal pt1 pt 0.00000001))<br />       (progn<br />         (setq el (entget enl))<br />         (setq el (subst (cons 10 pt) (assoc 10 el) el))<br />         (setq el (subst (cons 11 pt1) (assoc 11 el) el))<br />         (entmod el)<br />         )<br />       )<br />     )<br />   )<br /> ;;--------------------------------------------------<br /> (defun DrawMark         (p / marksize)<br />   (setq marksize (/ (getvar "viewsize") 25))<br />   (grdraw (polar p pi (* marksize 0.5))<br />           (polar p 0 (* marksize 0.5))<br />           2)<br />   (grdraw (polar p (* pi 0.5) (* marksize 0.5))<br />           (polar p (* pi 1.5) (* marksize 0.5))<br />           2)<br />   )<br />

Dallas_whu

这样的想法我也有啊，就是实现不了啊