Autocad VBA初级不锈钢缸筒教程 (第五课画函数曲线)_缸筒|液压缸|活塞杆-无锡天圆,一流液压缸筒加工厂家

无标题文档

Autocad VBA初级不锈钢缸筒教程 (第五课画函数曲线)

时间:2016-07-05 09:00来源:天圆网站作者:天圆液压点击: 次

先画一组下图抛物线。下面是源码： 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 '

横坐标暗示角度，后头表达式的浸染是把角度转化弧度

为了勉励各人起劲思索，从本课开始，我不再表明每一条语句的浸染，只对早年没有提过的语句举办一些表明，大概你一时很难大白，提议用上一课提到的跟踪变量、添加断点的步伐贯通每一条语句的浸染，假若有题目不懂请跟贴提问。
下面是源码：

看画多段线呼吁：
ZoomExtents '表现整个图形
ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '画多段线
myl.Color = co '配置颜色属性
myl.Color = co '配置颜色属性。在ACAD中，颜色可以用数字暗示，本例中co会增值，这样就会有花团锦簇的结果。

co = co + 1 '改变颜色，供下次界说曲线颜色
For i = 0 To 718 Step 2 '开始画多段线

ACAD没有现成的画抛物线呼吁，我们只能用措施编写多段线画近似抛物线。理论上，抛物线的X值可所以无穷小、无穷大，这里取值范畴在正负24之间。

p(j) = i '横坐标
等号前面部门“Set myl”的浸染就将myl变量去引用画好的多段线。
个中括号中的p是一个数组，这个数组的元素数必需是偶数，每两个元数作为一个点坐标。
站长致：

Next i '至此p(0)-p(40)全部元素已界说，竣事轮回
co = 15 '界说颜色

感激CAD天下网-论坛网友率土同庆先生提供教程！
Dim p(0 To 719) As Double '界说点坐标
Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线
Sub sinl()
For i = -24 To 24 Step 2 '开始画多段线
但愿更多CAD喜爱者颁发这类文章，活塞杆，CAD天下网给您提供一个揭示自我的平台。
p(i) = i * 2 * 3.1415926535897 / 360 '横坐标

本课思索题：画一条抛物线：y=0.5*x*x+3，天圆液压缸筒，个中X取值范畴在正负50之间
Dim myl As Object '界说引用曲线工具变量
Sub myl()

End sub

Next i

在跟踪变量p时请在跟踪窗口中单击变量p前的+号，这样可以看清数组p中每一个元素的变革。

p(i) = i * 2 * 3.1415926535897 / 360 '横坐标

措施第二行：Dim myl As Object '界说引用曲线工具变量
Object也是一种变量范例，它可以把变量界说为工具，本例中myl变量将引用多段线，以是要界说为Objet范例。

Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线
For a = 0.01 To 1 Step 0.02 '开始轮回画抛物线
    p(i + 1) = 2 * Sin(p(i)) '纵坐标
    p(j + 1) = a * p(j) * p(j) / 10 '纵坐标
    j = i + 24 '确定命组元素

本课第二张图：正弦曲线，下面是源码：
ZoomExtents语句是缩放呼吁，它的浸染是表现整个图形，消除图形以外的地区

Dim p(0 To 49) As Double '界说点坐标
Next a

先画一组下图抛物线。

接洽邮箱：zhaozh@icad.com.cn
End Sub

(责任编辑：admin)

分享按钮

------分隔线----------------------------