CAD怎么快速计算这种图形周长？

Question

如题所述

Answer 1

CAD怎么快速计算这种图形周长？

如上图所示，首先把相应的图形线段进行合并成一个整体。

具体操作步骤：“命令PE→Enter→选取相应图形任一线段→命令Y→Enter→命令J→Enter→选取相应图形所有要链接线段→Enter→Enter”。

合并成一个整体后，此时有两种方法进行查询周长。

第一种，直接选取相应图形，然后点击CAD界面上“修改”菜单下的“特性”，即可在跳出的特性菜单中向下滑动查找到图形长度（如上图所示的红色线框处）。

第二种，如下图所示，点击CAD界面上“工具”菜单下的“查询”、“面积”，即可在CAD界面左下角命令输入栏中（如下图所示的红色线框处）看到相应图形的“面积”、“长度”等。

Answer 2

可以在CAD中选中这个图形，然后鼠标右键选择“属性”，就能在电脑屏幕左侧弹出的属性对话框中找到“周长”，然后直查看周长的数值是多少米。

Answer 3

使用程序计算，程序代码如下：

;;测量长度
(defun C:TES ( / &k1 &kw1 i ss1 x)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "dimzin" 0)
(if (null vlax-dump-object) (vl-load-com) )
(princ "\n请选择曲线对象")
(if (setq &kw1 (ssget '((0 . "LINE,LWPOLYLINE,CIRCLE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))
(progn
(setq ss1 '() i 0.0)
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1) ss1 (cons &k1 ss1) i (1+ i))
)
(princ (strcat "\n曲线长度共:"
(rtos (* 0.001 (apply '+ (mapcar '(lambda (x) (vlax-curve-getDistAtParam x (vlax-curve-getEndParam x))) ss1))) 2 3)
"米; 数量共计:" (rtos i 2 0) "根")
)
)
)
(prin1)
)
方法一：直接复制程序，在CAD命令行粘贴，就可以输入命令【TES】选择曲线计算出长度
方法二：程序粘贴到记事本以【.lsp】为后缀保存，CAD输入【APPload】加载这个文件到【启动组】，打开CAD的时候就可以自动加载直接使用命令【TES】
【TES】可以自己修改，不能与其他CAD命令相同。本回答被网友采纳