Milli aviasiya akademiyasi

Solidlərin çıxılması.

Dim radius As Double

Dim center(0 To 2) As Double

Dim height As Double

Dim cylinderxs As Acad3DSolid

Dim cylinderd1 As Acad3DSolid

Dim angleToFill As Double

center(0) = 0#: center(1) = 0#: center(2) = 0#

radius = 100#: height = 10#

Set cylinderxs = ThisDrawing.ModelSpace.AddCylinder(center, radius, height)

radius = 80#

Set cylinderd1 = ThisDrawing.ModelSpace.AddCylinder(center, radius, height)

cylinderxs.Boolean acSubtraction, cylinderd1

` toplama

Dim polarPnt As Variant

Dim I As Integer

Dim distance As Double

Dim ks as İnteger

ks=6

radius = 10#

distance = 40#

For I% = 1 To ks

angle = angle + angleToFill / ks

polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance)

Set sph(I%) = ThisDrawing.ModelSpace.AddSphere(polarPnt, radius)

cylinderxs.Boolean acSubtraction, sph(I%)

Set sph(I%) = ThisDrawing.ModelSpace.AddSphere(polarPnt, radius)

cylinderxs.Boolean acUnion, sph(I%)

Next

cylinderxs.color = 2

cylinderxs.Update