任意一段圆弧，怎么知道它经过哪几个象限点？请贴代码

congcong

8楼的兄台的程序是算出经过了几个象限，而我只要求程序能告诉我这段圆弧经过哪几个“象限点”即可，而不管它是经过哪几个象限。

Ea

congcong发表于2003-12-19 13:43:008楼的兄台的程序是算出经过了几个象限，而我只要求程序能告诉我这段圆弧经过哪几个“象限点”即可，而不管它是经过哪几个象限。

2. (defun test (ent / vla-obj cen rad plst i)
   
3.   (setq        cen        (cdr (assoc 10 (entget ent)))
   
4.         rad        (cdr (assoc 40 (entget ent)))
   
5.         vla-obj        (vlax-ename->vla-object ent)
   
6.   )
   
7.   (setq i 0.)
   
8.   (while (< i (* pi 2))
   
9.     (setq p (polar cen i rad))
   
10.     (if        (vlax-curve-getparamatpoint vla-obj p)
    
11.       (if plst
    
12.         (setq plst (append (list p) plst))
    
13.         (setq plst (list p))
    
14.       )
    
15.     )
    
16.     (setq i (+ i (/ pi 2)))
    
17.   )
    
18.   plst
    
19. )

(defun test (ent / vla-obj cen rad plst i)<br />   (setq        cen        (cdr (assoc 10 (entget ent)))<br />         rad        (cdr (assoc 40 (entget ent)))<br />         vla-obj        (vlax-ename->vla-object ent)<br />   )<br />   (setq i 0.)<br />   (while (< i (* pi 2))<br />     (setq p (polar cen i rad))<br />     (if        (vlax-curve-getparamatpoint vla-obj p)<br />       (if plst<br />         (setq plst (append (list p) plst))<br />         (setq plst (list p))<br />       )<br />     )<br />     (setq i (+ i (/ pi 2)))<br />   )<br />   plst<br /> )

sieben

任意一段圆弧，怎么知道它经过哪几个象限点？
上面所写的程序我没有看，不过我想用vlax-curve-getstartparam和
vlax-curve-getendparam两个函数应该可以知道圆弧经过哪几个象限点。不妨一试

无痕

是否也可以先求象限点,再看象限点是否在圆弧上?

sieben

要判断点是否在圆弧上用vlax-curve-getdistatpoint or vlax-vurve-getparamatpoint 较稳定准确