AddSolid Method

Back to Methods Reference

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

 
The AutoLisp/Visual Lisp/VBA Resource Website
Google
Search the WWW Search AfraLisp

Copyright 1999-Perpetuity by AfraLisp

All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage

The AutoLisp/Visual Lisp/VBA Resource Website