[ARX函数]：有没有获得弧线的长度的函数?

gwfcygwf

有没有获得弧线的长度的函数?

eachy

最初由 gwfcygwf 发布
[B]有没有获得弧线的长度的函数? [/B]

xdrx_getarea

功    能：求AutoCAD AcDbCurve(曲线)类的面积和周长(长度)。

调用格式：(xdrx_getarea <实体图元名>)

说    明：1.<实体图元名>可是AcDbCurve类的:AcDbPolyline(lwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,
                                          AcDbSpline
          2.若曲线不封闭，则把开始点和终止点连线求面积，并且返回的是曲线的长度。

          3.可以是Hatch

返 回 值：成功返回LISP表(面积 周长)，失败返回NIL.

示    例：求SPLINE的面积和周长

        (if (setq en (xdrx_entsel "\n请点取一个Spline实体<退出>:" '((0 . "SPLINE"))))
            (progn
                (setq en (car en))
                (setq info (xdrx_getarea (car en)))
                (prompt (strcat "Spline的面积："

                                (rtos (car info) 2 2) "周长:" (rtos (cadr info) 2 2)))
             )
        )

lsjjm

最初由 gwfcygwf 发布
[B]有没有获得弧线的长度的函数? [/B]

如果你没有安装xdrx族函数, 可以:

(defun curvelength (ent)
  (setq obj (vlax-ename->vla-object ent))
  (setq len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
  len
)

mr cool

(defun c:yh()
  (setq en (entsel "对象: "))
  (setq pt (getpoint "选点: "))
  (command "dimangular" en pt)
  (setq len_data (entget (entlast)))
  (setq old_hc (assoc 1 len_data))
  (command "lengthen" (car en) "")
  (setq l (getvar "perimeter"))  
  (setq new_hc (cons 1 (rtos l 2 2)))
  (setq len_data (subst new_hc old_hc len_data))
  (entmod len_data)
  )
输入YH 可以标弧长
如果你只是想得到弧长可以1，双击它（2002以上版本）
                        2，输入List 然后选它
                        3，输入Length 然后选它
这些都可以的