cad lisp 二次抛物线_用Cad画二次抛物线.doc

用Cad画二次抛物线

Cad画二次抛物线如y=ax2+bx+c

第一步 确认cad中有VBA module如果没有请下载visual basic编辑器thisdrawing

第二步 打开cadalt+F11打开VBA窗口添加模块复制以下

Sub pwx()

'定义几个点

Dim pntO(2) As Double

Dim pntA(2) As Double

Dim pntB(2) As Double

Dim pntC(2) As Double

Dim pntD(2) As Double

Dim (2) As Double

'设抛物线方程为:y=ax2+bx+c

Dim a As Double

Dim b As Double

Dim c As Double

'设抛物线的宽度为l

Dim l As Double

Dim p As Double

Dim Co As Acad3DSolid

Dim Se AsAcadRegion

Dim Pa As Acad3DFace

Dim PntAsAcadPoint

Dim Sp() As AcadObject

a = InputBox("请输入y=a*x*x+b*x+c中对应的a:", "抛物线方程参数")

If a = 0 Then MsgBox "a=0, 不是抛物线": End

b = InputBox("请输入y=a*x*x+b*x+c中对应的b:",