[求助]：弧线问题?

ago9999

弧线代码是用圆心,起点角度,终点角度,法线表示的,可我太笨,不知道怎么用这几个数字求其端点坐标.原因是我不知道怎么定义0角度方向.

lsjjm

10 中心点
40 半径
50 起始角
51 终止角

ago9999

：（这个我是知道的啊，可我不知道怎么用法线和角度、半径、中点计算坐标呀

tuger

取得圆心坐标再根据起始角和终止角及半径就可以计算得到起点坐标和终点坐标啊。不过用lisp来判断其为优弧还是劣弧很难，我也不会，不知那位高手知道？？

fylinwater

计算坐标很容易啊，(SETQ  p1 (polar  PC  ang1 R))
p1为起点坐标   PC 为圆心坐标，ang1为起点角度，R为半径

终止角度减去起始角度 如果结果小余0或者大于2PI就加减2pi处理，然后根据角度差不就知道是优弧还是劣弧了吗？

ago9999

好象要*个法向，可能是他们说的矩阵的东西

eachy

最初由 ago9999 发布
[B]弧线代码是用圆心,起点角度,终点角度,法线表示的,可我太笨,不知道怎么用这几个数字求其端点坐标.原因是我不知道怎么定义0角度方向. [/B]

在晓东工具箱下 \XDSoft\Lisp\plan.lsp 中的一段

2. 
   
3. ;;道路曲线要素标注（通用程）
   
4. (defun c:eee (/ ee j1 j2 j tt r l e p0 p1 z1 z2)
   
5.                                         ; (setvar "cmdecho" 0)
   
6.   (setq ee (entsel "\nSelect arc: "))
   
7.   (while ee
   
8.     (setq ee (entget (car ee)))
   
9.     (setq j1 (cdr (assoc 50 ee))
   
10.           j2 (cdr (assoc 51 ee))
    
11.           r  (cdr (assoc 40 ee))
    
12.     )
    
13.     (if        (> j2 j1)
    
14.       (setq j (- j2 j1))
    
15.       (setq j (+ (dtr 360) (- j2 j1)))
    
16.     )
    
17.     (setq tt (* r (/ (sin (/ j 2)) (cos (/ j 2)))))
    
18.     (setq l (abs (* r j)))
    
19.     (setq e (* r (- (/ 1 (cos (/ j 2))) 1)))
    
20.     (setq p0 (getpoint "\n The point: "))
    
21.     (setvar "blipmode" 0)
    
22.     (setq j (angtos j 1 5))
    
23.     (setq z (substr j 1 1))
    
24.     (setq n (strlen j))
    
25.     (setq th 2)
    
26.     (while (< th n)
    
27.       (progn
    
28.         (setq z1 (substr j th 1))
    
29.         (if (= z1 "d")
    
30.           (setq z1 "%%d")
    
31.         )
    
32.         (setq z (strcat z z1))
    
33.       )
    
34.       (setq th (1+ th))
    
35.     )
    
36.     (command "text"
    
37.              p0
    
38.              (* 3 bl)
    
39.              ""
    
40.              (strcat "R=" (rtos (/ r 1000) 2 2))
    
41.     )
    
42.     (command "text"
    
43.              (setq p1 (polar p0 (dtr 270) (* 5 bl)))
    
44.              (* 3 bl)
    
45.              ""
    
46.              (strcat "a=" z)
    
47.     )
    
48.     (command "text"
    
49.              (setq p1 (polar p1 (dtr 270) (* 5 bl)))
    
50.              (* 3 bl)
    
51.              ""
    
52.              (strcat "L=" (rtos (/ l 1000) 2 3))
    
53.     )
    
54.     (command "text"
    
55.              (setq p1 (polar p1 (dtr 270) (* 5 bl)))
    
56.              (* 3 bl)
    
57.              ""
    
58.              (strcat "T=" (rtos (/ tt 1000) 2 3))
    
59.     )
    
60.     (command "text"
    
61.              (setq p1 (polar p1 (dtr 270) (* 5 bl)))
    
62.              (* 3 bl)
    
63.              ""
    
64.              (strcat "E=" (rtos (/ e 1000) 2 3))
    
65.     )
    
66.     (setq p0 (polar p0 pi bl))
    
67.     (setvar "plinewid" 0)
    
68.     (command "pline"
    
69.              p0
    
70.              (setq p0 (polar p0 (dtr 90) (* 4 bl)))
    
71.              (setq p0 (polar p0 0 (* 28 bl)))
    
72.              (setq p0 (polar p0 (dtr 270) (* 25 bl)))
    
73.              (setq p0 (polar p0 pi (* 28 bl)))
    
74.              "c"
    
75.     )
    
76.     (setq ee (entsel "\nSelect arc: "))
    
77.   )
    
78.   (setvar "blipmode" 1)
    
79.   (redraw)
    
80.   (princ)
    
81. )

<br /> ;;道路曲线要素标注（通用程）<br /> (defun c:eee (/ ee j1 j2 j tt r l e p0 p1 z1 z2)<br />                                         ; (setvar "cmdecho" 0)<br />   (setq ee (entsel "\nSelect arc: "))<br />   (while ee<br />     (setq ee (entget (car ee)))<br />     (setq j1 (cdr (assoc 50 ee))<br />           j2 (cdr (assoc 51 ee))<br />           r  (cdr (assoc 40 ee))<br />     )<br />     (if        (> j2 j1)<br />       (setq j (- j2 j1))<br />       (setq j (+ (dtr 360) (- j2 j1)))<br />     )<br />     (setq tt (* r (/ (sin (/ j 2)) (cos (/ j 2)))))<br />     (setq l (abs (* r j)))<br />     (setq e (* r (- (/ 1 (cos (/ j 2))) 1)))<br />     (setq p0 (getpoint "\n The point: "))<br />     (setvar "blipmode" 0)<br />     (setq j (angtos j 1 5))<br />     (setq z (substr j 1 1))<br />     (setq n (strlen j))<br />     (setq th 2)<br />     (while (< th n)<br />       (progn<br />         (setq z1 (substr j th 1))<br />         (if (= z1 "d")<br />           (setq z1 "%%d")<br />         )<br />         (setq z (strcat z z1))<br />       )<br />       (setq th (1+ th))<br />     )<br />     (command "text"<br />              p0<br />              (* 3 bl)<br />              ""<br />              (strcat "R=" (rtos (/ r 1000) 2 2))<br />     )<br />     (command "text"<br />              (setq p1 (polar p0 (dtr 270) (* 5 bl)))<br />              (* 3 bl)<br />              ""<br />              (strcat "a=" z)<br />     )<br />     (command "text"<br />              (setq p1 (polar p1 (dtr 270) (* 5 bl)))<br />              (* 3 bl)<br />              ""<br />              (strcat "L=" (rtos (/ l 1000) 2 3))<br />     )<br />     (command "text"<br />              (setq p1 (polar p1 (dtr 270) (* 5 bl)))<br />              (* 3 bl)<br />              ""<br />              (strcat "T=" (rtos (/ tt 1000) 2 3))<br />     )<br />     (command "text"<br />              (setq p1 (polar p1 (dtr 270) (* 5 bl)))<br />              (* 3 bl)<br />              ""<br />              (strcat "E=" (rtos (/ e 1000) 2 3))<br />     )<br />     (setq p0 (polar p0 pi bl))<br />     (setvar "plinewid" 0)<br />     (command "pline"<br />              p0<br />              (setq p0 (polar p0 (dtr 90) (* 4 bl)))<br />              (setq p0 (polar p0 0 (* 28 bl)))<br />              (setq p0 (polar p0 (dtr 270) (* 25 bl)))<br />              (setq p0 (polar p0 pi (* 28 bl)))<br />              "c"<br />     )<br />     (setq ee (entsel "\nSelect arc: "))<br />   )<br />   (setvar "blipmode" 1)<br />   (redraw)<br />   (princ)<br /> )

aeo

应该是第五贴的方法.
(polar 圆心 起始角 半径)为起点的坐标.
当起始角大于中止角时,夹角为 (中止角-起始角+2*pi)