(princ "\n程序:统计线段长度 命令:LL")
(defun C:LL (/ 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)
)
------------------------------------------------------------------------------
复制横线以上所有内容(从第一行到最下面一个单独的“)”)
然后直接在CAD命令栏粘贴 然后输入LL 选择需要统计的线 然后确定。
或者
复制横线以上所有内容(从第一行到最下面一个单独的“)”)粘贴到新建空白文本文档中保存,然后重命名格式改成.LSP
然后
CAD中输入 Appload,选择刚保存的.LSP格式文件,加载。
在CAD中输入LL,选择要统计线段长度的所有线段。结果马上出来.
如果结果不显示,请按f2.
(princ "\n程序:统计线段长度 命令:LL") (defun C:LL (/ 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) ) ------------------------------------------------------------------------------复制横线以上所有内容(从第一行到最下面一个单独的“)”)然后直接在CAD命令栏粘贴 然后输入LL 选择需要统计的线 然后确定。
或者复制横线以上所有内容(从第一行到最下面一个单独的“)”)粘贴到新建空白文本文档中保存,然后重命名格式改成.LSP 然后CAD中输入 Appload,选择刚保存的.LSP格式文件,加载。 在CAD中输入LL,选择要统计线段长度的所有线段。
结果马上出来.如果结果不显示,请按f2。.。
在CAD工具箱弹窗里,我们点 击“统计功能”选项按钮,进入“统计功能”次弹窗,然后点 击“长度统计”选项按钮。
这时命令框会显示“请选择需要统计长度的线段”的命令字符,光标会显示“选择对象:”的指示。
我们移动光标选中需要统计长度的线段,然后点 击“Enter”键确 定即 可。
这时候会弹出“长度统计”次弹窗,显示选择的线段长度统计为36毫米,约等于0.04米。
我们移动光标选中需要统计长度的线段,然后点 击“Enter”键确 定即 可。这时候会弹出“长度统计”次弹窗,显示选择的线段长度统计为82毫米,约等于0.08米。
在“长度统计”次弹窗里,我们点 击右侧的“插 入”按钮,按照命令指示,移动光标指 定文字的中间点。
指 定好文字中间点的位置后,点 击一下鼠标左键确 定即 可。这时候,统计多条线段的长度和就会标识出来。
原发布者:chujieyanluan
CAD计算面积的几种方法AutoCAD中我们可以方便、准确地计算二维封闭图形的面积以及周长,但对于不同类别的图形计算方法也不尽相同。 1.对于简单图形,如矩形、三角形。只须执行命令AREA(可以是命令行输入或点击对应命令图标),在命令提示“Specifyfirstcornerpointor[Object/Add/Subtract]:”后,打开捕捉依次选取矩形或三角形各交点后回车,AutoCAD将自动计算面积(Area)、周长(Perimeter),并将结果列于命令行。 2.对于简单图形,如圆或其它多段线(Polyline)、样条线(Spline)组成的二维封闭图形。执行命令AREA,在命令提示“Specifyfirstcornerpointor[Object/Add/Subtract]:”后,选择Object选项,根据提示选择要计算的图形,AutoCAD将自动计算面积、周长。 3.对于由简单直线、圆弧组成的复杂封闭图形,不能直接执行AREA命令计算图形面积。必须先使用Boundary命令(其使用方法依照下图对话框选择即刻,它同于剖面线填充的面域创建),以要计算面积的图形创建一个面域(region)或多段线对象,再执行命令AREA,在命令提示“Specifyfirstcornerpointor[Object/Add/Subtract]:”后,选择Object选项,根据提示选择刚刚建立的面域图形,AutoCAD将自动计算面积、周长。计算不规则图形面积:1.在绘图工具条上选择"面域"2.选中要计算面积的图形的所有边(包括圆弧).回车!!!这时候可以看到要计算面积图形是一个整体了~3.area命令,回车4.o命令,回车5.选中要计算面积的图形.回车
CAD 中计算多条段长度:
操作步骤:
1、打开AutoCad软件;
2、在命令行输入Pedit(PE)命令;
3、点选所有线段;
4、单击菜单栏[修改]→[对象]→[编辑多段线(P)]即可。
(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 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”文件 按命令提示“程序:统计线段长度 命令:zz” 输入命令zz选择要统计长度的线段即可。
命令: 程序:统计线段长度 命令:zz命令: 命令:zz选择对象: 指定对角点: 找到 4 个 选择对象: 共选择 4 条线段.
以上回答由丝 路教 程 网小编整理发布
我举一个例:
设左下角点A的坐标为(0,0),右上角C的坐标为(10,20),A到中心轴线的距离为5,C到中心轴线的距离为4,求对称四边形ABCD的另两点坐标B和D.
1.过A画半径为5的圆,过C画半径为4的圆.
2.xl命令,画两个圆之间的切线(注:靠内面)
命令: xl XLINE 指定点或 [水平(H)/垂直(V)/角度(A)/二等分(B)/偏移(O)]: tan
到
指定通过点: tan 到
指定通过点:
3.过A点画一条线垂直于刚才的直线AE
4.过C点画一条线垂直于刚才的直线CF
5.mi命令,将AE和CF两条线沿EF镜像,得到EB和FD
6.id命令,选择刚才的两条线上的B点和D点就可以了.