说明:双击或选中下面任意单词,将显示该词的音标、读音、翻译等;选中中文或多个词,将显示翻译。
您的位置:首页 -> 词典 -> AS曲线
1)  AS curve
AS曲线
2)  dump rail curve
曲轨曲线
1.
Optimal design of dump rail curve parameter of skip with up-open fan gate;
上开式扇形闸门箕斗卸载曲轨曲线的参数优化
3)  curve and surface
曲线曲面
4)  Curvature curve
曲率曲线
1.
Research on grach matching based on Curvature curve;
基于曲率曲线的图形匹配研究
5)  curvature of curves
曲线曲率
1.
In order to preserve the detail characteristics in mesh simplification,the discrete curvature of curves is introduced to the method based on quadric error metric(QEM) in this paper.
细节是模型的重要组成部分,而顶点的法向量是描述模型细节的一个重要参数,在网格简化中,为了在保持模型的全局特征的同时也能较好地保持模型的细节,提出了一种采用曲率加权的二次误差作为简化代价的方法,该方法基于二次误差(QEM)简化方法,在代价函数中引入了顶点法向量的变化率,即顶点的离散曲线曲率,从而使得网格简化后模型的细节能够较好地保留。
6)  curve/surface
曲线/曲面
补充资料:Autocad VBA初级教程 (第五课 画函数曲线)
 

先画一组下图抛物线。




下面是源码:
Sub myl()
Dim p(0 To 49) As Double '定义点坐标
Dim myl As Object '定义引用曲线对象变量
co = 15 '定义颜色
For a = 0.01 To 1 Step 0.02 '开始循环画抛物线
  For i = -24 To 24 Step 2 '开始画多段线
    j = i + 24  '确定数组元素
    p(j) = i '横坐标
    p(j + 1) = a * p(j) * p(j) / 10 '纵坐标
  Next i '至此p(0)-p(40)所有元素已定义,结束循环
  Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线
  myl.Color = co '设置颜色属性
  co = co + 1 '改变颜色,供下次定义曲线颜色
Next a
End sub


为了鼓励大家积极思考,从本课开始,我不再解释每一条语句的作用,只对以前没有提过的语句进行一些解释,也许你一时很难明白,建议用上一课提到的跟踪变量、添加断点的办法领悟每一条语句的作用,如果有问题不懂请跟贴提问。
在跟踪变量p时请在跟踪窗口中单击变量p前的+号,这样可以看清数组p中每一个元素的变化。


ACAD没有现成的画抛物线命令,我们只能用程序编写多段线画近似抛物线。理论上,抛物线的X值可以是无限小、无限大,这里取值范围在正负24之间。


程序第二行:Dim myl As Object '定义引用曲线对象变量
Object也是一种变量类型,它可以把变量定义为对象,本例中myl变量将引用多段线,所以要定义为Objet类型。


看画多段线命令:
Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线
其中括号中的p是一个数组,这个数组的元素数必须是偶数,每两个元数作为一个点坐标。
等号前面部分“Set myl”的作用就将myl变量去引用画好的多段线。
myl.Color = co '设置颜色属性。在ACAD中,颜色可以用数字表示,本例中co会增值,这样就会有五彩缤纷的效果。


本课第二张图:正弦曲线,下面是源码:
Sub sinl()
Dim p(0 To 719) As Double '定义点坐标
For i = 0 To 718 Step 2 '开始画多段线
    p(i) = i * 2 * 3.1415926535897 / 360 '横坐标
    p(i + 1) = 2 * Sin(p(i)) '纵坐标
Next i
ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '画多段线
ZoomExtents '显示整个图形
End Sub


说明:补充资料仅用于学习参考,请勿用于其它任何用途。
参考词条