返回曲线长度

ScmTools · 发表于 2013-4-28 13:53:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 ScmTools 于 2013-4-28 14:01 编辑

函数功能：返回曲线长度
[pcode=lisp,true](defun GetCurveLength (curve / )
(setq curve (vlax-ename->vla-object curve))
(vlax-curve-getDistAtParam curve
(vlax-curve-getEndParam curve)
)
)

示例: (GetCurveLength(car (entsel)))
[/pcode]

taner · 发表于 2013-6-16 10:42:29

;;; ==================================================================
;;;抄来的
;;; circle,polyline,lwpolyline,arc,spline,ellipse,line
(defun t2-get-curve-length (e)
(if (vlax-property-available-p
(vlax-ename->vla-object e)
"length"
)
(vla-get-length (vlax-ename->vla-object e))
0
)
)
;;; ==================================================================
(defun th-get-curve-length (obj / len)
(if (vl-catch-all-error-p
(setq len (vl-catch-all-apply
'(lambda
()
(vlax-curve-getdistatparam
obj
(vlax-curve-getendparam obj)
)
)
)
)
)
0
len
)
)
;;; ==================================================================
(defun th-get-curve-length-ss (ss / i l s1 sum)
(or
ss
(setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
)
(setq sum 0
i -1
)
(if ss
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq l (th-get-curve-length s1)
sum (+ sum l)
)
)
)
sum
)
;;; ==================================================================

;;; ================================================================== 
;;;抄来的 
;;; circle,polyline,lwpolyline,arc,spline,ellipse,line 
(defun t2-get-curve-length (e) 
  (if (vlax-property-available-p 
        (vlax-ename->vla-object e) 
        "length" 
      ) 
    (vla-get-length (vlax-ename->vla-object e)) 
    0 
  ) 
) 
;;; ================================================================== 
(defun th-get-curve-length (obj / len) 
  (if (vl-catch-all-error-p 
        (setq len (vl-catch-all-apply 
                    '(lambda 
                       () 
                        (vlax-curve-getdistatparam 
                          obj 
                          (vlax-curve-getendparam obj) 
                        ) 
                     ) 
                  ) 
        ) 
      ) 
    0 
    len 
  ) 
) 
;;; ================================================================== 
(defun th-get-curve-length-ss (ss / i l s1 sum) 
  (or 
    ss 
    (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))) 
  ) 
  (setq        sum 0 
        i -1 
  ) 
  (if ss 
    (while (setq s1 (ssname ss (setq i (1+ i)))) 
      (setq l        (th-get-curve-length s1) 
            sum        (+ sum l) 
      ) 
    ) 
  ) 
  sum 
) 
;;; ==================================================================

yoyoho · 发表于 2013-6-16 20:54:23

感谢ScmTools 版主及taner 分享函数
向两位学习了!
{:soso_e100:}

q3_2006 · 发表于 2013-6-17 07:23:10

已经用上了，好东西！

3byy · 发表于 2015-2-16 09:50:57

怎么用a !!!!1111111

账号		自动登录	找回密码
密码			立即注册

返回曲线长度

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

相关帖子

评分