CAD怎么设置比重系数?

[pang_zhy7861]

各位高手：在CAD体积/质量查询中。其质量（重量）是按比重系数等于1计算的，当材料（材质）的比重（密度）系数不为“1”时，还要另行计算。我常用的比重系数是7.85，能否自定义/设置/默认为常用值。
望不吝赐教，谢谢！qq309371594

[clear_zero]

用CAD但是不知道怎么查体积/质量

如果这个系数是一个系统变量的话，可以用setvar命令来重新设置。你要知道这个变量的名字

[pang_zhy7861]

你好：
谢谢你的答复，我不知道这个变量的名字。
关于查体积/质量，可以这样做。打开autoCAD，画一个矩形，沿其一边旋转画出一圆柱体。步骤：
绘图-三维实体-旋转，选中矩形-在其一边上选中一点-再从这个边上选一点-回车（或空格，默认360°，版本不同操作可能不同，07以前立体旋转在绘图-三维实体，08在绘图-建模），接下来再点 工具-查询-体积/质量
特性-选中那个圆柱体，页面就会弹出个文本框...OK。

[woaishuijia]

[Quote=引用楼主 pang_zhy7861 的回复:]
各位高手：在CAD体积/质量查询中。其质量（重量）是按比重系数等于1计算的，当材料（材质）的比重（密度）系数不为“1”时，还要另行计算。我常用的比重系数是7.85，能否自定义/设置/默认为常用值。
望不吝赐教，谢谢！qq309371594
[/Quote]
CAD没有提供这个功能.
想要这个功能,可以通过二次开发实现,比如VBA,LISP等

[woaishuijia]

VBA代码

    Dim SS As AcadSelectionSet, S As Acad3DSolid, P As Double, V As Double, FT(0) As Integer, FD(0) As Variant
    On Error Resume Next
    With ThisDrawing
        Set SS = .SelectionSets.Add("SS")
        FT(0) = 0
        FD(0) = "3DSolid"
        SS.SelectOnScreen FT, FD
        If SS.Count > 0 Then
            P = .Utility.GetReal("指定密度<7.85>:")
            If Err = -2145320928 Then P = 7.85
            Err.Clear
            For Each S In SS
                V = V + S.Volume
            Next
            .Utility.Prompt vbCrLf & "体积:" & V & vbCrLf & "重量:" & V * P
        End If
        SS.Delete
    End With

[wjc1818]

距离和夹角是可以利用简单的数学知识的，
但是面积和体积我想CAD是不可能用的是数学里的微积分，
因为我绘制的面域和体不规则，
根本无法用数学方程来表达，
我不知道CAD是怎么编程的，
我猜测面积和体积查询的原理如下，不知是否正确：
例如面积，将平面划分成很多的小方格子，
程序判断方格子是否在面域范围内，
如果在面域内，就计数，
如果不在面域内，就不计，
最后汇总面域内的方格子的数量，这就是面积。
体积我想一样。
请高人指点