AutoCAD ActiveX #3 Draw

AddLine

Creates a line passing through two points.

Dim pt1 As Variantpt1 = ThisDrawing.Utility.getPoint(,"点1")Dim pt2 As Variantpt2 = ThisDrawing.Utility.getPoint(,"点2")Dim lineObj As AcadLineSet lineObj = ThisDrawing.ModelSpace.AddLine(pt1, pt2)

AddArc

Creates an arc given the center, radius, start angle, and end angle of the arc.

Dim centerPnt As VariantcenterPnt = ThisDrawing.Utility.getPoint(,"指定弧的中心点:")  Dim radius As Doubleradius = ThisDrawing.Utility.getReal("指定弧的半径:")Dim Ang10 As DoubleDim Ang230 As Double   Ang10 = aUt.AngleToReal(10, acDegrees)Ang230 = aUt.AngleToReal(230, acDegrees)Dim arcObj As AcadArcSet arcObj = ThisDrawing.ModelSpace.addArc(centerPnt, radius, Ang10, Ang230)

AddCircle

Creates a circle given a center point and radius.

Dim centerPnt As VariantcenterPnt = ThisDrawing.Utility.getPoint(,"指定圆的中心点:")    Dim radius As Doubleradius = ThisDrawing.Utility.getReal("指定圆的半径:")Dim circleObj As AcadCircleSet circleObj = ThisDrawing.ModelSpace.addCircle(centerPnt, radius) 

AddEllipse

Creates an ellipse in the XY plane of the WCS given the center point, a point on the major axis, and the radius ratio.

Dim centerPnt As VariantcenterPnt = ThisDrawing.Utility.getPoint(,"指定椭圆的中心点:")Dim majAxis(0 To 2) As DoublemajAxis(0) = 10majAxis(1) = 20#majAxis(2) = 0#        Dim radRatio As DoubleradRatio = 0.3Dim ellObj As AcadEllipseSet ellObj = ThisDrawing.ModelSpace.AddEllipse(centerPnt, majAxis, radRatio)

Polyline

Creates a lightweight polyline from a list of vertices.

Dim points(0 To 7) As Doublepoints(0) = 0: points(1) = 0points(2) = 5: points(3) = 0points(4) = 5: points(5) = 8points(6) = 0: points(7) = 8        Dim plineObj As AcadLWPolylineSet plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)plineObj.Closed = True'plineObj.SetBulge 0, 1'plineObj.SetBulge 2, 1

上一篇
下一篇