CAD怎么设置比重系数?
各位高手：在CAD体积/质量查询中。其质量（重量）是按比重系数等于1计算的，当材料（材质）的比重（密度）系数不为“1”时，还要另行计算。我常用的比重系数是7.85，能否自定义/设置/默认为常用值。望不吝赐教，谢谢！qq309371594 --------------------编程问答-------------------- 用CAD但是不知道怎么查体积/质量
如果这个系数是一个系统变量的话，可以用setvar命令来重新设置。你要知道这个变量的名字 --------------------编程问答-------------------- 你好：
谢谢你的答复，我不知道这个变量的名字。
关于查体积/质量，可以这样做。打开autoCAD，画一个矩形，沿其一边旋转画出一圆柱体。步骤：
绘图-三维实体-旋转，选中矩形-在其一边上选中一点-再从这个边上选一点-回车（或空格，默认360°，版本不同操作可能不同，07以前立体旋转在绘图-三维实体，08在绘图-建模），接下来再点 工具-查询-体积/质量
特性-选中那个圆柱体，页面就会弹出个文本框...OK。 --------------------编程问答--------------------
CAD没有提供这个功能.
想要这个功能,可以通过二次开发实现,比如VBA,LISP等 --------------------编程问答-------------------- 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
但是面积和体积我想CAD是不可能用的是数学里的微积分，
因为我绘制的面域和体不规则，
根本无法用数学方程来表达，
我不知道CAD是怎么编程的，
我猜测面积和体积查询的原理如下，不知是否正确：
例如面积，将平面划分成很多的小方格子，
程序判断方格子是否在面域范围内，
如果在面域内，就计数，
如果不在面域内，就不计，
最后汇总面域内的方格子的数量，这就是面积。
体积我想一样。
请高人指点
补充：VB , VBA
