电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

cad中精准抛物线画法

cad中精准抛物线画法_第1页
1/10
cad中精准抛物线画法_第2页
2/10
cad中精准抛物线画法_第3页
3/10
1.先用直线命令画一直线(图1)。过程如下: 命令: LINE 指定第一点: 0,0 指定下一点或 [放弃(U)]: 'cal >> 表达式: +[100*100/200<-30] (43.3013 -25.0 0.0) 指定下一点或 [放弃(U)]: ↙ 2.移动该直线,如图2。 3.用多段线命令画多段线,先向-60 度方向拉出适当长度,如图3。 4.继续画多段线,完成一个直角三角形,如图4。 5.用REVOLVE 命令旋转直角三角形,生成一个三维实体,如图5。过程如下: 命令: REVOLVE 当前线框密度: ISOLINES=4 选择对象:(选择直角三角形) 选择对象: ↙ 指定旋转轴的起点或 定义轴依照 [对象(O)/X 轴(X)/Y 轴(Y)]:(捕捉 A 点) 指定轴端点: (捕捉 B 点) 指定旋转角度 <360>:↙ 6.用SECTION 命令切割三维实体,生成一个面域,如图6。过程如下: 命令: SECTION 选择对象: (选择上一步生成的旋转实体) 选择对象: ↙ 指定截面上的第一个点,依照 [对象(O)/Z 轴(Z)/视图(V)/XY 平面(XY)/YZ 平面(YZ)/ZX 平面(ZX)/三点(3)] <三点>: yz 指定 YZ 平面上的点 <0,0,0>:(捕捉 C 点) 7.用rotate3d 命令对上一步生成的面域进行三维旋转,如图7。过程如下: 命令: rotate3d 当前正向角度: ANGDIR=逆时针 ANGBASE=0 选择对象: (选择上一步生成的面域) 选择对象: ↙ 指定轴上的第一个点或定义轴依据[对象(O)/最近的(L)/视图(V)/X 轴(X)/Y 轴(Y)/Z 轴(Z)/两点(2)]: (捕捉 C 点) 指定轴上的第二点:(捕捉 D 点) 指定旋转角度或 [参照(R)]: 90 8.先用EXPLODE 命令分解旋转后的面域,再清理图面,删除不需要的图元,如图8。 9 .移动抛物线,如图9 。完毕! http://bbs.icax .cn/register.php Sub trparabola() Dim bq1, bq2, pt1, pt2 As Variant Dim aa, ll, yy, a1, a2, a3, a4, aa1, pt3(0 To 2), bq4(0 To 2) As Double Dim bq3(0 To 2) As Double Dim ae As Double Dim pt33(0 To 2) As Double Dim ptarr(0 To 7) As Double Dim alt As Variant Dim objboltb As Acad3DSolid Dim al As Variant Dim lens As AcadLWPolyline '求个控制点 bq1 = ThisDrawing.Utility.GetPoint(, "抛物线顶点: ") aa = ThisDrawing.Utility.GetReal("输入二次项系数: ") ll = ThisDrawing.Utility.GetDistance(, "输入开口弦长: ") aa1 = 1 / aa yy ...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

cad中精准抛物线画法

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部