精选优质文档-倾情为你奉上Cad画二次抛物线如y=ax2+bx+c 第一步 确认cad中有VBA module如果没有请下载，即CAD中“工具”“宏”“visual basic编辑器”，点thisdrawing第二步 打开cadalt+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 DoubleDim pntE(2) As Double 设抛物线方程为:y=ax+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
