[LISP程序]：计算PL线的长度

zemehua

;;;计算PL线的长度
(defun c:ppl ()
(setq dist 0 t-dist 0)
(setq enta(entsel "\nPick a pline:"))
(setq enta(entnext))
(setq ent-list (entget enta))
(while (/=(cdr(assoc 0 ent-list)))
   (setq para (abs(cdr(assoc 42 ent-list))))
   (setq point1 (cdr(assoc 10 ent-list)))
   (setq enta (entnext enta))
   (setq ent-list (entget enta))
      (if (/= (cdr(assoc 0 ent-list))
(progn
        (setq point2 (cdr (assoc 10 entlist)))
        (setq dist(distance point1 point2))
      (if (/= para 0)
(progn (setq para (* 4 (atan para)))
        (setq ang (/ (abs(- para pi)) 2))
        (setq rad (/ dist 2.0 (cos ang))))
        (setq dist (* rad para))
       )
  )
         (setq t-dist (+ t-dist dist))
      )
     )
      )
   (princ "/n 长度= ")
   (princ t-dist)
   (princ "/n")
)

XDSoft

最初由 zemehua 发布
[B];;;计算PL线的长度
(defun c:ppl ()
(setq dist 0 t-dist 0)
(setq enta(entsel "\nPick a pline:"))
(setq enta(entnext))
(setq ent-list (entget enta))
(while (/=(cdr(assoc 0 ent-list)))
   (setq pa... [/B]

使用XDRX_API很方便求任意曲线的长度

2. 
   
3. [FONT=courier new]
   
4. 82. xdrx_getarea
   
5. 
   
6. 功能：求AutoCAD AcDbCurve(曲线)类的面积和周长(长度)。
   
7. 
   
8. 调用格式：(xdrx_getarea <实体图元名>)
   
9. 
   
10. 说明：1.<实体图元名>可是AcDbCurve类的:AcDbPolyline(lwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,
    
11.                 AcDbSpline
    
12.      2.若曲线不封闭，则把开始点和终止点连线求面积，并且返回的是曲线的长度。
    
13.      
    
14. 返回值：成功返回LISP表(面积 周长)，失败返回NIL.            
    
15. 
    
16. 示例：求SPLINE的面积和周长
    
17.      
    
18.      (if (setq en (xdrx_entsel "\n请点取一个Spline实体<退出>:" '((0 . "SPLINE"))))
    
19.         (progn
    
20.            (setq en (car en))
    
21.            (setq info (xdrx_getarea (car en)))
    
22.            (prompt (strcat "Spline的面积：" (rtos (car info) 2 2) "周长:" (rtos (cadr info) 2 2)))
    
23.         )
    
24.      )
    
25.            
    
26. [/FONT]

<br /> [FONT=courier new]<br /> 82. xdrx_getarea<br /> <br /> 功能：求AutoCAD AcDbCurve(曲线)类的面积和周长(长度)。<br /> <br /> 调用格式：(xdrx_getarea <实体图元名>)<br /> <br /> 说明：1.<实体图元名>可是AcDbCurve类的:AcDbPolyline(lwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,<br />                 AcDbSpline <br />      2.若曲线不封闭，则把开始点和终止点连线求面积，并且返回的是曲线的长度。<br />      <br /> 返回值：成功返回LISP表(面积 周长)，失败返回NIL.            <br /> <br /> 示例：求SPLINE的面积和周长<br />      <br />      (if (setq en (xdrx_entsel "\n请点取一个Spline实体<退出>:" '((0 . "SPLINE"))))<br />         (progn<br />            (setq en (car en))<br />            (setq info (xdrx_getarea (car en)))<br />            (prompt (strcat "Spline的面积：" (rtos (car info) 2 2) "周长:" (rtos (cadr info) 2 2)))<br />         )<br />      )<br />            <br /> [/FONT]

1. 
   
2. [FONT=courier new]
   
3. 245. xdrx_curve_getDistAtPoint
   
4. 
   
5. 功能：获得曲线上任一点到曲线起点的距离或者曲线上两点间的距离
   
6. 
   
7. 调用格式：(xdrx_curve_getDistAtPoint <曲线实体名> <曲线上任一点> [曲线任一点])
   
8. 
   
9. 返回值：实数
   
10. 
    
11. 说明：若给一点，返回到起点的距离，给两点，返回两点间的距离。[/FONT]

复制代码

fjw_ok

[XD可以把这个求曲线上点到起点长度的原码公布一下吗，有点过分！

XDSoft

最初由 fjw_ok 发布
[B][XD可以把这个求曲线上点到起点长度的原码公布一下吗，有点过分！ [/B]

要ARX代码？ 里面除了处理参数外，就用了ARX的库 AcDbCurve::getDistAtParam

fjw_ok

谢谢晓东：就要解决了！

XDSoft

最初由 fjw_ok 发布
[B]谢谢晓东：就要解决了！ [/B]

很多都有对应的ActiveX方法的，写好后，给大家贴来吧，谢谢！