[LISP程序]：计算圆弧，线的总长度

跃然 · 发表于 2004-9-6 15:58:53

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

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

×

;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------

(defun C:ADDLEN (/ CURVE TLEN SS N SUMLEN)
  (vl-load-com)
  (setq SUMLEN 0)
  (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq N 0)
  (repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
   )
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
  )
  (print (strcat "总长度: " (rtos SUMLEN 2 5)))
  (princ)
)

月影水飘飘 · 发表于 2004-10-3 12:30:09

A2002下可以用吗？

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

[LISP程序]：计算圆弧，线的总长度

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

相关帖子