cad统计线段

cad统计线段Tag内容描述：<p>1、精品AUTOCAD 统计多条多线段长度 分类： 电脑 CAD(princ n程序：统计线段长度 命令：zz) (defun C:zz (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget (0 . CIRCLE,ELLIPSE,LINE,。</p><p>2、给一个简单的源代码，你自己测试后可以修改编辑让它更符合你的要求：(princ n程序：统计线段长度 命令：test)(defun C:TEST (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget (0 . CIRCLE,ELLIPSE,L。</p><p>3、精品文库 新建文本文档。在文档中输入以下内容： ;统计cad图中线的总长度 ;* Write By zhenglin* (defun c:tj_l (/ p n e e1 e2 l s x1 x2 y1 y2 xx yy ll lll) (setq ln 0 lll 0。</p><p>4、1. 新建文本文档，将以下代码复制在记事本内，“另存为”“统计线段长度.lsp” 。(princ n程序：统计线段长度 命令：zz)(defun C:zz (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0)(setq SS (ssget (0 . CIRCLE,ELLIPSE。</p><p>5、给一个简单的源代码，你自己测试后可以修改编辑让它更符合你的要求：(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共选择 &quo。</p><p>6、1 新建文本文档 将以下代码复制在记事本内 另存为 统计线段长度 lsp princ n程序 统计线段长度 命令 zz defun C zz 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。</p><p>7、新建文本文档 在文档中输入以下内容 统计cad图中线的总长度 Write By zhenglin defun c tj l p n e e1 e2 l s x1 x2 y1 y2 xx yy ll lll setq ln 0 lll 0 setq p ssget Select objects if p progn If any objects s。</p><p>8、使用方法 第一步 首先将下载的文件解压 比如说解压在桌面了 第二步 在CAD命令行中输入 ap 如下图所示 回车或空格 出下以下对话框 第三步 找到解压后的文件 选中 统计多条线长度 lsp 文件 点加载 然后命令行会出现加载成功字样 如下图所示 再点关闭 加载完成 第四步 在命令行输入 lenof 光标变成方块 提示选择对象 这样就可以开始选择你要统计的线段了 第五步 选择完成后 回车或空格 这。</p><p>9、用下面的这个程序可以，加载后执行命令：mulen(defun c:mulen()(setq i 1 s 0)(prompt 选择直线：)(setq ss (ssget)(setq leng (sslength ss)(setq namelist (list(ssname ss 0)(repeat (1- leng)。</p><p>10、用下面的这个程序可以 加载后执行命令 mulen defun c mulen setq i 1 s 0 prompt 选择直线 setq ss ssget setq leng sslength ss setq namelist list ssname ss 0 repeat 1 leng setq namelist append namelist list。</p><p>11、我们以“信号线 S”为例： 新建一个“信号线.lin“文件 打开记事本，编辑该文件。输入如下内容：（拷贝粘贴即可） *信号线, -S - S -S - A,12.7,-5.08,S,STANDARD,S=2.54,R=0.0,X=-2.54,Y=-1.27,-5.08 然后保存文档。 将记事本文档后缀“txt”改成“lin”，即生成“信号线.li。</p><p>12、我们以“信号线 S”为例：新建一个“信号线.lin“文件打开记事本，编辑该文件。输入如下内容：（拷贝粘贴即可）*信号线, -S - S -S -A,12.7,-5.08,S,STANDARD,S=2.54,R=0.0,X=-2.54,Y=-1.27,-5.08然后保存文档。将记事本文档后缀“txt”改成“lin”，即生成“信号线.lin“文件；将“信号线.lin“文件复制到“AUTOcad2008软件”的安装目录下；打开AutoCAD2008，点击菜单“格式”“线型”，会弹出一个对话框。点击对话框上的“加载”按钮，会弹出对话框，点击“文件”加载刚才生成的“信号线.lin“文件（在AutoCAD2008安装目录下找）。加载。</p><p>13、(princ n程序：统计线段长度 命令：xkbuild) (defun C:xkbuild (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget (0 . CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC) (se。</p>