Back to Methods Reference

Creates an xline (an infinite line) passing through two specified points.

Signature

VBA : RetVal = object.AddXline(Point1, Point2)

VL : RetVal = (vla-addXLine object Point1 Point2)

(vla-addXline mspace 
                    (vlax-3d-point apt)
                          (vlax-3d-point pt))

• 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

• RetVal : XLine object
  The newly created XLine object.

Example :

(defun c:al-addxline ()

(vl-load-com)

(setq mspace (vla-get-modelspace 
                 (vla-get-activedocument 
                      (vlax-get-acad-object))))

(setq apt (getpoint "\nSpecify First Point: "))

(setq pt (getpoint "\nSpecify Second Point: " apt))

(setq myxline (vla-addXline mspace 
                    (vlax-3d-point apt)
                          (vlax-3d-point pt)))

(princ)

);defun