Creates a 2D solid
polygon.
Signature
VBA : RetVal =
object.AddSolid(Point1, Point2, Point3, Point4)
VL : RetVal = (vla-AddSolid
Point1 Point2 Point3 Point4)
(vla-AddSolid mspace
(vlax-3d-point PT1)
(vlax-3d-point PT2)
(vlax-3d-point PT3)
(vlax-3d-point PT4))
-
Object : ModelSpace
Collection, PaperSpace Collection, Block
The object or objects this method applies to.
-
Point1 : Variant
(three-element array of doubles); input-only
-
Point2 : Variant
(three-element array of doubles); input-only
-
Point3 : Variant
(three-element array of doubles); input-only
-
Point4 : Variant
(three-element array of doubles); input-only
-
RetVal : Solid
object
The newly created polygon.
Remarks
The first two points
define one edge of the polygon. The third point is defined diagonally
opposite from the second. If the fourth point is set equal to the third
point, then a filled triangle is created.
Solids are filled only
when the FILLMODE system variable is set to on. To set or query a system
variable, use the SetVariable and GetVariable methods, respectively.
Example :
(defun c:al-addSolid ()
(vl-load-com)
(setq mspace (vla-get-modelspace
(vla-get-activedocument
(vlax-get-acad-object))))
(setq PT1 (getpoint "\nFirst Point: "))
(setq PT2 (getpoint PT1 "\nSecond Point: "))
(setq PT3 (getpoint PT2 "\nThird Point: "))
(setq PT4 (getpoint PT3 "\nFourth Point: "))
(setq theSolid (vla-AddSolid mspace
(vlax-3d-point PT1)
(vlax-3d-point PT2)
(vlax-3d-point PT3)
(vlax-3d-point PT4)))
(princ)
);defun
|
|