邀请有志之士完成此编程

hbshyjch

我想实现的是一边画多义线一边在多义线末端动态显示此多义线累计长度（象橡皮筋拉动的时候），而且多义线的末端始终跟随一个半径为10000的园

先谢谢诸位了

hbshyjch

图片示例

Gu_xl

请你搜索一下GrRead函数的应用，很容易实现的！

hbshyjch

帮帮忙给个思路，我真的对这个函数不是很懂

Gu_xl

给你段演示代码，自己修改下吧！

3. (defun c:tt(/ ss zc strzc p pt flag)
4.   ;(setierr)
5.   (setq cmddia (getvar "CMDECHO"))
6.   (setvar "CMDECHO" 0)
7.   (setq p1 (getpoint "\n第一点："))
8.   (setq pnext (getpoint p1 "\n下一点："))
9.     ;;;线段初始长度
10. (setq zc (distance p1 pnext))
11.   (command "line" p1 pnext "")
12.   (setq ss0 (ssadd (entlast)))
13.   (setq p1 pnext)
14.   (setq flag t)
15.   (while flag;(/= 2 flag)
16. (while (= (car (setq p (grread t 2))) 5)
17.   (if ss (command "erase" ss ""))
18.   (setq ss nil)
19.   ;;;鼠标位置坐标
20.   (setq pt (cadr p))
21.   (if (not (equal p1 pt 0.0001))
22.     (progn
23.   (command "line" p1 pt "")
24.   (setq ss (ssadd (entlast)))
25.   (command "circle" pt 5)
26.   (ssadd (entlast) ss)
27.   ;;;计算总长度值ZC
28.   (setq zc1 (+ zc (distance p1 pt)))
29.   ;;;标注长度
30.   (setq strZC (rtos zc1 2 3))
31.   (command "text" pt 1.5 0 strZC )
32.   (ssadd (entlast) ss)
33.   )
34.     )
35. ) ;_ while
36.    
37.   (if ss (command "erase" ss ""))
38.   (setq pnext (cadr p))
39.     (if (= 'LIST (type pnext))
40.       (progn
41.     (setq zc (+ zc (distance p1 pnext)))
42.     ;(setq flag (car p))
43.     (command "line" p1 pnext "")
44.     (ssadd (entlast) ss0)
45.     (setq p1 pnext)
46.     )
47.       (setq flag nil)
48.       )
49.   )
50.   ;(reerr)
51.   (setvar "CMDECHO" 0)
52.   (princ)
53. )

(defun c:tt(/ ss zc strzc p pt flag)   ;(setierr)   (setq cmddia (getvar "CMDECHO"))   (setvar "CMDECHO" 0)   (setq p1 (getpoint "\n第一点："))   (setq pnext (getpoint p1 "\n下一点："))     ;;;线段初始长度 (setq zc (distance p1 pnext))   (command "line" p1 pnext "")   (setq ss0 (ssadd (entlast)))   (setq p1 pnext)   (setq flag t)   (while flag;(/= 2 flag) (while (= (car (setq p (grread t 2))) 5)   (if ss (command "erase" ss ""))   (setq ss nil)   ;;;鼠标位置坐标   (setq pt (cadr p))   (if (not (equal p1 pt 0.0001))     (progn   (command "line" p1 pt "")   (setq ss (ssadd (entlast)))   (command "circle" pt 5)   (ssadd (entlast) ss)   ;;;计算总长度值ZC   (setq zc1 (+ zc (distance p1 pt)))   ;;;标注长度   (setq strZC (rtos zc1 2 3))   (command "text" pt 1.5 0 strZC )   (ssadd (entlast) ss)   )     ) ) ;_ while       (if ss (command "erase" ss ""))   (setq pnext (cadr p))     (if (= 'LIST (type pnext))       (progn     (setq zc (+ zc (distance p1 pnext)))     ;(setq flag (car p))     (command "line" p1 pnext "")     (ssadd (entlast) ss0)     (setq p1 pnext)     )       (setq flag nil)       )   )   ;(reerr)   (setvar "CMDECHO" 0)   (princ) )

hbshyjch

太感谢Gu_xl了，就是要的这个效果

再次严重感谢