- 积分
- 22712
- 明经币
- 个
- 注册时间
- 2018-11-7
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2019-4-3 16:04:57
|
显示全部楼层
本帖最后由 1291500406 于 2019-4-3 16:24 编辑
显示 -> 圆,椭圆,直线,多段线,样条曲线,圆弧长度
(defun c:bb (/ 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))) (princ (strcat " 线长为: " (rtos SUMLEN) ""))(princ))
|
|