[转贴]：连续测量距离。

eachy

2. 
   
3. ;;;---------------------------------------------------------------------------;
   
4. ;;;
   
5. ;;; accdist.lsp
   
6. ;;;
   
7. ;;; By Jimmy Bergmark
   
8. ;;; Copyright (C) 1997-2003 JTB World, All Rights Reserved
   
9. ;;; Website: [url]www.jtbworld.com[/url] / [url]http://jtbworld.vze.com[/url]
   
10. ;;; E-mail: [email]info@jtbworld.com[/email] / [email]jtbworld@hotmail.com[/email]
    
11. ;;;
    
12. ;;; 1999-06-12 - First release
    
13. ;;; 2000-05-11 - Fixed for AutoCAD 2000
    
14. ;;; should be working on older versions too.
    
15. ;;;
    
16. ;;;---------------------------------------------------------------------------;
    
17. ;;;  Methods to accumulate distances
    
18. ;;;  c:accdist - combined
    
19. ;;;  c:accdist1 - accumulate distances from first point to next point
    
20. ;;;  c:accdist2 - accumulate distances from first point to second point
    
21. ;;;---------------------------------------------------------------------------;
    
22. 
    
23. (defun c:accdist (/ errexit undox restore *error* p1 p2 sum)
    
24.   (defun errexit (s)
    
25.     (princ)
    
26.     (restore)
    
27.   )
    
28. 
    
29.   (defun undox ()
    
30.     (redraw)
    
31.     (setq *error* olderr)
    
32.     (princ)
    
33.   )
    
34. 
    
35.   (setq olderr  *error*
    
36.         restore undox
    
37.         *error* errexit
    
38.   )
    
39.   (setq p1  (getpoint "\nSpecify first point: ")
    
40.         p2  "First"
    
41.         sum 0
    
42.   )
    
43.   (while (and p1 p2)
    
44.     (if (= p2 "First")
    
45.       (progn
    
46.         (initget 32)
    
47.         (setq p2 (getpoint "\nSpecify next point: " p1))
    
48.       )
    
49.       (progn
    
50.         (initget 32 "First")
    
51.         (setq p2 (getpoint "\nSpecify next point or [First]: " p1))
    
52.       )
    
53.     )
    
54.     (cond
    
55.       ((not p2))
    
56.       ((= p2 "First")
    
57.        (setq p1 (getpoint "\nSpecify first point: "))
    
58.       )
    
59.       (t
    
60.        (grdraw p1 p2 -1 1)
    
61.        (setq sum (+ sum (distance p1 p2))
    
62.              p1  p2
    
63.        )
    
64.       )
    
65.     )
    
66.   )
    
67.   (princ "\nAccumulated distance = ")
    
68.   (princ sum)
    
69.   (restore)
    
70. )
    
71. 
    
72. (defun c:accdist1 (/ p1 p2 sum)
    
73.   (setq sum 0)
    
74.   (setq p1 (getpoint "\nSpecify first point: "))
    
75.   (while (and p1
    
76.               (not (initget 32))
    
77.               (setq p2 (getpoint "\nSpecify next point: " p1))
    
78.          )
    
79.     (grdraw p1 p2 -1 1)
    
80.     (setq sum (+ sum (distance p1 p2)))
    
81.     (setq p1 p2)
    
82.   )
    
83.   (redraw)
    
84.   (princ "\nAccumulated distance = ")
    
85.   (princ sum)
    
86.   (princ)
    
87. )
    
88. 
    
89. (defun c:accdist2 (/ p1 p2 sum)
    
90.   (setq sum 0)
    
91.   (while
    
92.     (and (setq p1 (getpoint "\nSpecify first point: "))
    
93.          (not (initget 32))
    
94.          (setq p2 (getpoint "\nSpecify second point: " p1))
    
95.     )
    
96.      (setq sum (+ sum (distance p1 p2)))
    
97.   )
    
98.   (princ "\nAccumulated distance = ")
    
99.   (princ sum)
    
100.   (princ)
     
101. )
     
102. 
     

<br /> ;;;---------------------------------------------------------------------------;<br /> ;;;<br /> ;;; accdist.lsp<br /> ;;;<br /> ;;; By Jimmy Bergmark<br /> ;;; Copyright (C) 1997-2003 JTB World, All Rights Reserved<br /> ;;; Website: [url]www.jtbworld.com[/url] / [url]http://jtbworld.vze.com[/url]<br /> ;;; E-mail: [email]info@jtbworld.com[/email] / [email]jtbworld@hotmail.com[/email]<br /> ;;;<br /> ;;; 1999-06-12 - First release<br /> ;;; 2000-05-11 - Fixed for AutoCAD 2000<br /> ;;; should be working on older versions too.<br /> ;;;<br /> ;;;---------------------------------------------------------------------------;<br /> ;;;  Methods to accumulate distances<br /> ;;;  c:accdist - combined<br /> ;;;  c:accdist1 - accumulate distances from first point to next point<br /> ;;;  c:accdist2 - accumulate distances from first point to second point<br /> ;;;---------------------------------------------------------------------------;<br /> <br /> (defun c:accdist (/ errexit undox restore *error* p1 p2 sum)<br />   (defun errexit (s)<br />     (princ)<br />     (restore)<br />   )<br /> <br />   (defun undox ()<br />     (redraw)<br />     (setq *error* olderr)<br />     (princ)<br />   )<br /> <br />   (setq olderr  *error*<br />         restore undox<br />         *error* errexit<br />   )<br />   (setq p1  (getpoint "\nSpecify first point: ")<br />         p2  "First"<br />         sum 0<br />   )<br />   (while (and p1 p2)<br />     (if (= p2 "First")<br />       (progn<br />         (initget 32)<br />         (setq p2 (getpoint "\nSpecify next point: " p1))<br />       )<br />       (progn<br />         (initget 32 "First")<br />         (setq p2 (getpoint "\nSpecify next point or [First]: " p1))<br />       )<br />     )<br />     (cond<br />       ((not p2))<br />       ((= p2 "First")<br />        (setq p1 (getpoint "\nSpecify first point: "))<br />       )<br />       (t<br />        (grdraw p1 p2 -1 1)<br />        (setq sum (+ sum (distance p1 p2))<br />              p1  p2<br />        )<br />       )<br />     )<br />   )<br />   (princ "\nAccumulated distance = ")<br />   (princ sum)<br />   (restore)<br /> )<br /> <br /> (defun c:accdist1 (/ p1 p2 sum)<br />   (setq sum 0)<br />   (setq p1 (getpoint "\nSpecify first point: "))<br />   (while (and p1<br />               (not (initget 32))<br />               (setq p2 (getpoint "\nSpecify next point: " p1))<br />          )<br />     (grdraw p1 p2 -1 1)<br />     (setq sum (+ sum (distance p1 p2)))<br />     (setq p1 p2)<br />   )<br />   (redraw)<br />   (princ "\nAccumulated distance = ")<br />   (princ sum)<br />   (princ)<br /> )<br /> <br /> (defun c:accdist2 (/ p1 p2 sum)<br />   (setq sum 0)<br />   (while<br />     (and (setq p1 (getpoint "\nSpecify first point: "))<br />          (not (initget 32))<br />          (setq p2 (getpoint "\nSpecify second point: " p1))<br />     )<br />      (setq sum (+ sum (distance p1 p2)))<br />   )<br />   (princ "\nAccumulated distance = ")<br />   (princ sum)<br />   (princ)<br /> )<br /> <br />

li809

Dist不行吗,连续回车就行了

zh_6531394

多此一举

luob72

这个程序真是好啊，解决了我的难题，谢谢版主！

海豚

3楼不应该这样说版主的，我非常谢谢楼主的热心。
只用DIST命令是不能够取得累加的数据的，平时我是自己画PLINE来得到数据的，现在方便了。谢谢。

lony1019

这个程序还可以，谢谢版主！

cq_qg

要是能把测得的距离输出到文件就好了！