取方位时，如何实现360°自动变0°

lostbalance

程序如下，作用是自动标出点的方位，方位大概和手表的顺时针差不多。用了cond后，一般没啥问题，但有几次遇到360°无法变0°的情况，是数字换算的误差吗？我现在是用359°的极近值来代替，有什么更好的方法吗？

2. (defun C:FangWei(/ cir pt0 pt p jd ptx)
   
3.   (setq cir (entget (car (entsel "\n选择圆: "))))
   
4.   (WYB-entlay "3" 1 "center2");红色
   
5.   (setq pt0 (cdr (assoc 10 cir)))
   
6.   (setq pt (list (car pt0) (cadr pt0)))
   
7.   (while
   
8.     (setq p (getpoint "\n选择方位点: "))
   
9.     (setq jd (angle p pt))
   
10.     (setq ptx (polar p jd -4.5))
    
11.     (cond
    
12.       ((<= jd (* pi 1.5)) (setq jd (- 270 (WYB-rtod jd))))
    
13.       ((> jd (* pi 1.5)) (setq jd (- 630 (WYB-rtod jd))))
    
14.     )
    
15.     (if (> jd 359.99999999) (setq jd 0))
    
16.     (WYB-enttext-all "3" ptx (strcat (rtos jd) "%%d") 3.5 0 "M")
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    
21. (defun WYB-rtod(r);弧度换成角度
    
22.     (/ (* r 180) pi)
    
23. )
    
24. 
    
25. 
    
26. (defun WYB-enttext-all(tc pt ss hh rr dz / dz1 dz2)
    
27.     (cond
    
28.         ((= dz "L") (setq dz1 0 dz2 0))
    
29.         ((= dz "C") (setq dz1 1 dz2 0))
    
30.         ((= dz "R") (setq dz1 2 dz2 0))
    
31.         ((= dz "A") (setq dz1 3 dz2 0))
    
32.         ((= dz "M") (setq dz1 4 dz2 0))
    
33.         ((= dz "F") (setq dz1 5 dz2 0))
    
34.         ((= dz "BL") (setq dz1 0 dz2 1))
    
35.         ((= dz "BC") (setq dz1 1 dz2 1))
    
36.         ((= dz "BR") (setq dz1 2 dz2 1))
    
37.         ((= dz "ML") (setq dz1 0 dz2 2))
    
38.         ((= dz "MC") (setq dz1 1 dz2 2))
    
39.         ((= dz "MR") (setq dz1 2 dz2 2))
    
40.         ((= dz "TL") (setq dz1 0 dz2 3))
    
41.         ((= dz "TC") (setq dz1 1 dz2 3))
    
42.         ((= dz "TR") (setq dz1 2 dz2 3))
    
43.     )
    
44.     (entmake
    
45.         (list
    
46.             '(0 . "TEXT")
    
47.             (cons 8 tc);图层
    
48.             (cons 10 pt);插入点，必须先预设该值，否则无法运行
    
49.             (cons 1 ss);内容
    
50.             (cons 40 hh);字高
    
51.             (cons 50 rr)
    
52.             (cons 41 0.7);字宽
    
53.             (cons 72 dz1)
    
54.             (cons 73 dz2)
    
55.             (cons 11 pt);对齐点
    
56.         )
    
57.     )
    
58. )
    

(defun C:FangWei(/ cir pt0 pt p jd ptx)<br />   (setq cir (entget (car (entsel "\n选择圆: "))))<br />   (WYB-entlay "3" 1 "center2");红色<br />   (setq pt0 (cdr (assoc 10 cir)))<br />   (setq pt (list (car pt0) (cadr pt0)))<br />   (while<br />     (setq p (getpoint "\n选择方位点: "))<br />     (setq jd (angle p pt))<br />     (setq ptx (polar p jd -4.5))<br />     (cond <br />       ((<= jd (* pi 1.5)) (setq jd (- 270 (WYB-rtod jd))))<br />       ((> jd (* pi 1.5)) (setq jd (- 630 (WYB-rtod jd))))<br />     )<br />     (if (> jd 359.99999999) (setq jd 0))<br />     (WYB-enttext-all "3" ptx (strcat (rtos jd) "%%d") 3.5 0 "M")<br />   )<br />   (princ)<br /> )<br /> <br /> (defun WYB-rtod(r);弧度换成角度<br />     (/ (* r 180) pi)<br /> )<br /> <br /> <br /> (defun WYB-enttext-all(tc pt ss hh rr dz / dz1 dz2)<br />     (cond <br />         ((= dz "L") (setq dz1 0 dz2 0))<br />         ((= dz "C") (setq dz1 1 dz2 0))<br />         ((= dz "R") (setq dz1 2 dz2 0))<br />         ((= dz "A") (setq dz1 3 dz2 0))<br />         ((= dz "M") (setq dz1 4 dz2 0))<br />         ((= dz "F") (setq dz1 5 dz2 0))<br />         ((= dz "BL") (setq dz1 0 dz2 1))<br />         ((= dz "BC") (setq dz1 1 dz2 1))<br />         ((= dz "BR") (setq dz1 2 dz2 1))<br />         ((= dz "ML") (setq dz1 0 dz2 2))<br />         ((= dz "MC") (setq dz1 1 dz2 2))<br />         ((= dz "MR") (setq dz1 2 dz2 2))<br />         ((= dz "TL") (setq dz1 0 dz2 3))<br />         ((= dz "TC") (setq dz1 1 dz2 3))<br />         ((= dz "TR") (setq dz1 2 dz2 3))<br />     )<br />     (entmake<br />         (list<br />             '(0 . "TEXT")<br />             (cons 8 tc);图层<br />             (cons 10 pt);插入点，必须先预设该值，否则无法运行<br />             (cons 1 ss);内容<br />             (cons 40 hh);字高<br />             (cons 50 rr)<br />             (cons 41 0.7);字宽<br />             (cons 72 dz1)<br />             (cons 73 dz2)<br />             (cons 11 pt);对齐点<br />         )<br />     )<br /> )<br />

llsheng_73

(rem  jd 360)

lostbalance

llsheng_73 发表于 2013-11-10 21:12
(rem  jd 360)

感谢回答。
不过刚才用这个代码跑了下，也有问题。后来终于发现是0°线各种处理后不直造成的。。。

逗亦斗霸

llsheng_73 发表于 2013-11-10 21:12
(rem  jd 360)

感谢大佬的回复，为我现在遇到的问题提供了解决的思路~

lht

(rem (- 450 ang) 360);ang为正东为0度逆时针方向的角度，转换成以正北方向为起点顺方向的角度.