[求助]vb与cad的问题

xtl027

求助：vb与cad的问题

我可以在caD中画直线，但不能用样条曲线，请问，如何解决？
具体如下：
        Set splineobj = AcadDoc.ModelSpace.AddLine(pt1, pt2) 可以画直线，

将其改为
       Set splineobj = AcadDoc.ModelSpace.AddSpLine(pt1, pt2)

      提示“ .AddSpLine ”参数不可选。我真不知道怎么回事？请知道的朋友赐教，谢谢！！！

具体是：   

For  i = 1 To n - 1
        pt1(0) = x(i): pt1(1) = y(i): pt1(2) = 0  '第一点的X、Y、Z
        pt2(0) = x(i + 1): pt2(1) = y(i + 1): pt2(2) = 0 '第二点的X、Y、Z
        Set splineobj = AcadDoc.ModelSpace.AddSpline(pt1, pt2)
   Next

xinghesnak

addspline用法：

Signature

RetVal = object.AddSpline(PointsArray, StartTangent, EndTangent)

Object

MSITStore:C:\Program%20Files\MDT6\HELP\ACADAUTO.CHM::/idh_modelspace_collection.htm" target="_blank" >ModelSpace Collection, MSITStore:C:\Program%20Files\MDT6\HELP\ACADAUTO.CHM::/idh_paperspace_collection.htm" target="_blank" >PaperSpace Collection, MSITStore:C:\Program%20Files\MDT6\HELP\ACADAUTO.CHM::/idh_block_object.htm" target="_blank" >Block
The object or objects this method applies to.

PointsArray

Variant (array of doubles); input-only
An array of 3D WCS coordinates defining the spline curve. At least two points (six elements) are required for constructing a Spline object. The array size must be in multiples of three.

StartTangent

Variant (three-element array of doubles); input-only
A 3D vector specifying the tangency of the spline curve at the first point.

EndTangent

Variant (three-element array of doubles); input-only
A 3D vector specifying the tangency of the spline curve at the last point.

RetVal

MSITStore:C:\Program%20Files\MDT6\HELP\ACADAUTO.CHM::/idh_spline_object.htm" target="_blank" >Spline object
The newly created Spline object.

 

例子如下:

Dim splineObj As AcadSpline
    Dim startTan(0 To 2) As Double
    Dim endTan(0 To 2) As Double
    Dim fitPoints(0 To 8) As Double
   
    startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0
    endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0
    fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0
    fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0
    fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
    Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
    ZoomAll

xtl027

谢谢！！！

请问：fitPoints 指什么？

xinghesnak

就是PLine上所有的节点（拐点）