[三角形有关的线段教学反思]教学反思范文一： 本课题设计思路按操作、猜想、验证的学习过程，遵循从感性到理性的渐进认识规律，暴露了知识发生过程，体现了数学学习的必然性.教学先从学生折纸开始，让学生体验三...+阅读
编程吧！
给一个简单的源代码，你自己测试后可以修改编辑让它更符合你的要求：
(princ ＂\n程序：统计线段长度 命令：test＂)
(defun C:TEST (/ 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 ＂\n共选择 ＂ （itoa (sslength SS)） ＂ 条线段. 线段总长： ＂ （rtos SUMLEN 2 3） ＂米.＂））
(princ)
)
将以上代码复制在记事本内后“另存为”→“统计线段长度.lsp”
打开CAD，运行“appload”命令加载刚保存的“统计线段长度.lsp”文件
按命令提示“程序：统计线段长度 命令：test”
输入命令test
选择要统计长度的线段即可。
附：我的命令行操作提示
命令：
命令： appload
已成功加载 统计线段长度.lsp。
命令：
程序：统计线段长度 命令：test
命令：
命令： test
选择对象： 指定对角点： 找到 4 个
选择对象：
共选择 4 条线段. 线段总长： 1667.294米.
命令：
延伸阅读：
在ppt课件中如何设置线段的一段固定另一端绕固定端点旋转首先，用到的动画肯定是陀螺旋动画（在强调动画中找）。但陀螺旋动画是以对象的中心为定点旋转的，那么就要想办法把线段的一端变成他的中心，具体方法是： 1、复制线段（或画一个和线段等...
