各位高手:在CAD体积/质量查询中。其质量(重量)是按比重系数等于1计算的,当材料(材质)的比重(密度)系数不为“1”时,还要另行计算。我常用的比重系数是7.85,能否自定义/设置/默认为常用值。
望不吝赐教,谢谢!qq309371594
望不吝赐教,谢谢!qq309371594
解决方案 »
- winccflexible中变量文件夹中的变量怎样引用
- 单位换算问题~~~~~~~~
- 请问data控件
- 急!我用Inno Setup 4 (汉化版)打包程序,离不开VB6.0环境?
- 有关错误的问题
- 关于鼠标指针的问题(设置了但是不起作用)
- ado + access , recordset型,让rs1 和 rs2 相等怎么做? 就是将一个数据集赋值给另一个数据集的那样,rs1 = rs2 不行呀~~~
- 关于通用工资系统?有人能帮忙吗?重谢!(我这儿有N多分啊)
- 如何用API函数实现在VB中全屏播放媒体文件?
- 怎么让form框接受keydown事件。
- VB程序怎么实现窗口全屏
- 各位谁有VS6.0英文版软件?
谢谢你的答复,我不知道这个变量的名字。
关于查体积/质量,可以这样做。打开autoCAD,画一个矩形,沿其一边旋转画出一圆柱体。步骤:
绘图-三维实体-旋转,选中矩形-在其一边上选中一点-再从这个边上选一点-回车(或空格,默认360°,版本不同操作可能不同,07以前立体旋转在绘图-三维实体,08在绘图-建模),接下来再点 工具-查询-体积/质量
特性-选中那个圆柱体,页面就会弹出个文本框...OK。
想要这个功能,可以通过二次开发实现,比如VBA,LISP等
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是怎么编程的,
我猜测面积和体积查询的原理如下,不知是否正确:
例如面积,将平面划分成很多的小方格子,
程序判断方格子是否在面域范围内,
如果在面域内,就计数,
如果不在面域内,就不计,
最后汇总面域内的方格子的数量,这就是面积。
体积我想一样。
请高人指点