能不能创建一个面沿一个组合曲线路径拉伸成三维实体

cangcang

Private Sub Command3_Click()
Call AutoCAD_Appliaction(Form1, AcadApp, AcadDoc)
    Dim r, h, b, L1, L2, W, baseX, baseY, baseZ As Double
    r = 15
    h = 10
    b = 3
    W = 80
    L1 = 100
    L2 = 100
    baseX = 300
    baseY = 100
    baseZ = 100
    Dim curves(0 To 2) As Object
    Dim curves1(0 To 3) As AcadEntity
   'r :内径, h: 板厚,  b:接逢间隙,l:中心距半长
    Dim basePoint(0 To 2) As Double
    Dim basePoint1(0 To 2) As Double
    Dim basePoint2(0 To 2) As Double
     Dim basePoint3(0 To 2) As Double
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim point3(0 To 2) As Double
    Dim pi As Double
    Dim startAngle, endAngle As Double
  
    pi = 3.141592
    basePoint(0) = baseX: basePoint(1) = baseY: basePoint(2) = baseZ
    basePoint1(0) = baseX + L1 + L2: basePoint1(1) = baseY: basePoint1(2) = baseZ
    basePoint2(0) = baseX + L1 + L2: basePoint1(1) = baseY: basePoint1(2) = baseZ
    point1(0) = baseX + L1 + L2: point1(1) = baseY - r: point1(2) = baseZ
    point2(0) = baseX + L1 + L2: point2(1) = baseY - r - h: point2(2) = baseZ
    point3(0) = baseX: point3(1) = baseY - r - h: point3(2) = baseZ + 60
   
    startAngle = -(pi / 2 - Atn(Sqr((r + h / 2) * (r + h / 2) - ((r + h / 2) - b) * ((r + h / 2) - b)) / ((r + h / 2) - b))) '计算内圆接头的起始角度
   
    endAngle = (pi * 3) / 2 '计算到切点的角度
   
    Set curves(0) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint, (r + h / 2), startAngle, endAngle)
        
    ' Define the line
               
    startAngle = -pi / 2 '计算内圆接头的起始角度
    endAngle = (pi * 3) / 2 - Atn(Sqr(r * r - (r - b) * (r - b)) / (r - b)) '计算到切点的角度
   
   
   Set curves(1) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint1, (r + h / 2), startAngle, endAngle)
   Set curves(2) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves(0).EndPoint, curves(1).StartPoint)
  
  
    basePoint2(0) = baseX - W - h / 2: basePoint2(1) = baseY - r - h / 2 + b: basePoint2(2) = baseZ '+ Sqr((r + h / 2) * (r + h / 2) - (r + h / 2 - b) * (r + h / 2 - b))
    basePoint3(0) = baseX + W + h / 2: basePoint3(1) = baseY - r - h / 2 + b: basePoint3(2) = baseZ '+ Sqr((r + h / 2) * (r + h / 2) - (r + h / 2 - b) * (r + h / 2 - b))
    Set curves1(0) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint2, h / 2, -pi / 2, pi / 2)
    Set curves1(1) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint2, h / 2, pi / 2, (pi * 3) / 2)
    Set curves1(2) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves1(0).EndPoint, curves1(1).StartPoint)
    Set curves1(3) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves1(1).EndPoint, curves1(0).StartPoint)
    ' Create the region
      
    Dim regionObj As Variant
     Dim regionObj1 As Variant
  
   ' regionObj1 = AcadApp.ActiveDocument.ModelSpace.AddRegion(curves1)
  
   
    ' Create the solid
    Dim solidObj, solidObj1 As Acad3DSolid
    Set solidObj = AcadApp.ActiveDocument.ModelSpace.AddExtrudedSolidAlongPath(regionObj1(0), curves(0))
    'Set solidObj1 = AcadApp.ActiveDocument.ModelSpace.AddExtrudedSolid(regionObj1(0), W, 0)
  
   

   Call AutoCAD_3DView(1, 1, -0.5, AcadApp)‘调用模块
   AcadApp.ActiveDocument.SendCommand "shademode" & vbCr & "G" & vbCr
  
  
   AcadApp.ZoomAll
   Dim strPath As String
   strPath = "d:\jpg\jpg1"
   Call Export_Picture(strPath, AcadApp)
End Sub

问题:1、拉伸路径能不能为一个半圆弧加一条直线和另外一个半圆弧组成的曲线，

        2、用addarc命令能能创建一个YZ面上的半圆弧

yueyaer

可以啊,你可以使用系统提供的AddExtrudedSolidAlongPath,第一个参数是要拉伸的截面，第二个参数是拉伸的路径，可以创建出一个实体

cangcang

问题是第二点怎样画在YZ（相当左视上）面上的半圆弧