AddCylinder Method

Creates a 3D solid cylinder whose base is on the XY plane of the WCS.

Signature

VBA : RetVal = object.AddCylinder(Center, Radius, Height)

VLA : RetVal = (vla-AddCylinder Center Radius Height)

(vla-addcylinder mspace pt1 rad hgt)

  • Object : ModelSpace Collection, PaperSpace Collection, Block
    The object or objects this method applies to.
  • Center : Variant (three-element array of doubles); input-only
    A 3D WCS coordinates specifying the center of the bounding box.
  • Radius : Double; input-only
    The cylinder radius. Must be a positive number.
  • Height : Double; input-only
    The cylinder height. Must be a positive number.
  • RetVal : 3DSolid object
    A 3DSolid object as the newly created cylinder.

Example :


(setq doc (vla-get-activedocument (vlax-get-acad-object)))

(setq mspace (vla-get-modelspace doc))

(setq pt1 (vlax-3d-point (setq pt (getpoint "\nCenter point: "))))

(setq rad (getdist "\nRadius: " pt))

(setq hgt (getdist "\nHeight: " pt))

(vla-addcylinder mspace pt1 rad hgt)