获取圆弧的起点 中点 端点

zhuizhu

下面是我在网上看到的一段程序，不知道是哪位前辈的了，

1. ;取线的<起点>,<中点>,<终点>
   
2. (DEFUN xl-3p (e / ps pe pm)
   
3.    (setq ps (vlax-curve-getstartparam e)
   
4.          pe (vlax-curve-getendparam e)
   
5.          pm (/ (- pe ps) 2))
   
6.    (mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe))
   
7. )

;取线的<起点>,<中点>,<终点><br /> (DEFUN xl-3p (e / ps pe pm) <br />    (setq ps (vlax-curve-getstartparam e)<br />          pe (vlax-curve-getendparam e)<br />          pm (/ (- pe ps) 2))<br />    (mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe))<br /> )

我反复试了很多次，就是不能实现圆弧的起点 中点  端点 ，求大神们帮忙看看

zyhandw

(setq ps (vlax-curve-getstartparam e)
         pe (vlax-curve-getendparam e)应改为==>
(setq ps (vlax-curve-getstartpoint e)
         pe (vlax-curve-getendpoint e)

davide888

帮顶拿分:lol

zyhandw

To 炫翔版主：
用pl线实验是可以。不过，我是菜鸟，也不确定是否就是完全正确的。
如有错误之处，还请版主指正，谢谢。

炫翔

提供思路:

1. ;一个比较传统的求法
   
2. (defun c:XX()
   
3.    (if (setq ent (car (entsel "\n请选择圆弧:")))
   
4.        (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")
   
5.            (progn
   
6.                (setq pc (cdr (assoc 10 db)) ;圆心
   
7.        r  (cdr (assoc 40 db)) ;半径
   
8.        a0 (cdr (assoc 50 db))
   
9.        a1 (cdr (assoc 51 db))
   
10.        ps (polar pc a0 r);起点
    
11.        pe (polar pc a1 r);止点
    
12.        pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe))
    
13.        pm (polar pc (angle pc pd) r);中点
    
14.        an (- a1 a0);圆心角
    
15.         )
    
16.         (if (< an 0) (setq an (+ an (* 2.0 pi))))
    
17.         (princ (strcat "\n圆心=" (rtos (car pc) 2 3) "," (rtos (cadr pc) 2 3)))
    
18.         (princ (strcat "\n起点=" (rtos (car ps) 2 3) "," (rtos (cadr ps) 2 3)))
    
19.         (princ (strcat "\n止点=" (rtos (car pe) 2 3) "," (rtos (cadr pe) 2 3)))
    
20.         (princ (strcat "\n中点=" (rtos (car pm) 2 3) "," (rtos (cadr pm) 2 3)))
    
21.         (princ (strcat "\n圆心角=" (angtos an 1 6) ))
    
22.            )
    
23.            (alert "所选取的不是圆弧!")
    
24.        )
    
25.    )
    
26. )

;一个比较传统的求法<br /> (defun c:XX()<br />    (if (setq ent (car (entsel "\n请选择圆弧:")))<br />        (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")<br />            (progn<br />                (setq pc (cdr (assoc 10 db)) ;圆心<br />        r  (cdr (assoc 40 db)) ;半径<br />        a0 (cdr (assoc 50 db))<br />        a1 (cdr (assoc 51 db))<br />        ps (polar pc a0 r);起点<br />        pe (polar pc a1 r);止点<br />        pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe))<br />        pm (polar pc (angle pc pd) r);中点<br />        an (- a1 a0);圆心角<br />         )<br />         (if (< an 0) (setq an (+ an (* 2.0 pi))))<br />         (princ (strcat "\n圆心=" (rtos (car pc) 2 3) "," (rtos (cadr pc) 2 3)))<br />         (princ (strcat "\n起点=" (rtos (car ps) 2 3) "," (rtos (cadr ps) 2 3)))<br />         (princ (strcat "\n止点=" (rtos (car pe) 2 3) "," (rtos (cadr pe) 2 3)))<br />         (princ (strcat "\n中点=" (rtos (car pm) 2 3) "," (rtos (cadr pm) 2 3)))<br />         (princ (strcat "\n圆心角=" (angtos an 1 6) ))<br />            )<br />            (alert "所选取的不是圆弧!")<br />        )<br />    )<br /> )

eachy

对圆弧 param 是角度,所以
  pm (/ (- pe ps) 2)) -> pm (/ (+ pe ps) 2.)

Lispboy

eachy 发表于 2013-5-21 17:22
对圆弧 param 是角度,所以
  pm (/ (- pe ps) 2)) -> pm (/ (+ pe ps) 2.)

帮你改了

2. 
   
3. (DEFUN xl-3p (e / ps pe pm)
   
4.    (setq ps (vlax-curve-getstartparam e)
   
5.          pe (vlax-curve-getendparam e)
   
6.          pm (/ (+ pe ps) 2))
   
7.    (mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe))
   
8. )
   

<br /> (DEFUN xl-3p (e / ps pe pm) <br />    (setq ps (vlax-curve-getstartparam e)<br />          pe (vlax-curve-getendparam e)<br />          pm (/ (+ pe ps) 2))<br />    (mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe))<br /> )<br />

首尾参数相加/2是中间点的。什么东西的中点，也应该是 相加除2啊。

5和9的中间是----》 （5+9）/2 = 7

牢固

取中点用vlax-curve-getpointatdist函数比较可靠！可以适用各种曲线！

liuyun242

pm (/ (- pe ps) 2))   =》pm (/ (+ pe ps) 2))

忘记刷新，重复了 ，只说注意e的类型为VLA-object

liuyun242

炫翔 发表于 2013-5-21 17:01
提供思路:

中点有时好像是相对弧形的的中点，可能是大于180的弧线不对