计算边长与方位角案例

天各一方

1. ;计算坐标点与控制点距离与方位角

复制代码

(defun demo1()
(setq list_test'(3885.634 3114.471 4281.739 3592.881 3356.668 3419.507 3373.397 2385.189 3968.103 3005.75))
(setq n (- (/ (length list_test) 2) 1))
(setq flown 1)
(setq p1 (list (nth 0 list_test)(nth 1 list_test) 0))
(setq result '())
(repeat n
(setq num (* flown 2))
(setq x1 (nth num list_test))
(setq y1 (nth (+ num 1) list_test))
(setq p2 (list x1 y1 0))
(setq m1 (list (distance p1 p2)))
(setq m2(list (atof (angtos (angle p1 p2) 0 6))))
(setq string(list (strcat "1→"  (itoa (+ 1 flown))  "距离及角度" )))
(setq result (append string result))
(setq result (append m1 result))
(setq result (append m2 result))
(setq flown(+ flown 1))
)
(setq result(reverse result))
(princ)
(print result)
(princ)
)

fangmin723

1. (defun c:demo1(/ lst n pt1 pts split2pt)
   
2.   (setq lst '(3885.634 3114.471 4281.739 3592.881 3356.668 3419.507 3373.397 2385.189 3968.103 3005.75))
   
3.   (defun Split2Pt(lst / ptlst x y)
   
4.     (setq ptlst nil)
   
5.     (while (setq x (car lst))
   
6.       (if (setq lst (cdr lst) y (car lst))
   
7.         (setq ptlst (cons (list x y) ptlst))
   
8.         (setq ptlst (cons (list x 0.0) ptlst))
   
9.       )
   
10.       (setq lst (cdr lst))
    
11.     )
    
12.     (reverse ptlst)
    
13.   )
    
14.   (setq pts (Split2Pt lst) pt1 (car pts) n 1)
    
15.   (print
    
16.     (mapcar
    
17.       '(lambda(x)
    
18.          (list
    
19.            (list (strcat "1->" (itoa (setq n (1+ n))) "距离") (distance pt1 x))
    
20.            (list (strcat "1->" (itoa n) "角度") (atof (angtos (angle pt1 x) 0 6)))
    
21.          )
    
22.        )
    
23.       (cdr pts)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    
28. 
    
29. (
    
30.   (("1->2距离" 621.108) ("1->2角度" 50.3766))
    
31.   (("1->3距离" 610.616) ("1->3角度" 150.029))
    
32.   (("1->4距离" 891.201) ("1->4角度" 234.916))
    
33.   (("1->5距离" 136.46) ("1->5角度" 307.182))
    
34. )
    

(defun c:demo1(/ lst n pt1 pts split2pt)<br />   (setq lst '(3885.634 3114.471 4281.739 3592.881 3356.668 3419.507 3373.397 2385.189 3968.103 3005.75))<br />   (defun Split2Pt(lst / ptlst x y)<br />     (setq ptlst nil)<br />     (while (setq x (car lst))<br />       (if (setq lst (cdr lst) y (car lst))<br />         (setq ptlst (cons (list x y) ptlst))<br />         (setq ptlst (cons (list x 0.0) ptlst))<br />       )<br />       (setq lst (cdr lst))<br />     )<br />     (reverse ptlst)<br />   )<br />   (setq pts (Split2Pt lst) pt1 (car pts) n 1)<br />   (print<br />     (mapcar<br />       '(lambda(x)<br />          (list<br />            (list (strcat "1->" (itoa (setq n (1+ n))) "距离") (distance pt1 x))<br />            (list (strcat "1->" (itoa n) "角度") (atof (angtos (angle pt1 x) 0 6)))<br />          )<br />        )<br />       (cdr pts)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (<br />   (("1->2距离" 621.108) ("1->2角度" 50.3766))<br />   (("1->3距离" 610.616) ("1->3角度" 150.029))<br />   (("1->4距离" 891.201) ("1->4角度" 234.916))<br />   (("1->5距离" 136.46) ("1->5角度" 307.182))<br /> )<br />

天各一方

这是我抄的书。。。