List the vertices of MPolygon and create vertices

[jes_g_autocad]

Hi all,

I am trying to write a LISP routine to list all the vertices of selected MPolygon.

I have one MPolygon and 5 polylines. The sample drawing is attached.
Basically, I want the program to create vertices on the MPolygon where the polylines touch the MPolygon (meaning there is no gap between them) and store the coordinates of all the vertices into a variable.

Thank you
Best wishes,
Jes G

[devitg.89838]

Try it

NO ERROR CHECK

;; Design by Gabo CALOS DE VIT from CORDOBA ARGENTINA
;;;    Copyleft 1995-2018 by Gabriel Calos De Vit 
;; DEVITG@GMAIL.COM    

(DEFUN GET-VERTEX-AT-MPOLYGON  (/
ACAD-OBJ
ACEXTENDNONE
ADOC
ALL-LVCABE
ALL-LVCABE-OBJ
LVCABLE@MPLOLIGON-XY
LVCABLE@MPLOLIGON-XY-LIST
LVLINE
LVLINE-OBJ
LVLINE-OBJ-LAYER
MODEL
MPOLY
MPOLY-OBJ
OBJ
SELECTIONSETS
                               )

  (VL-LOAD-COM)
  (SETQ ACAD-OBJ (VLAX-GET-ACAD-OBJECT)) ;_ el programa ACAD 
  (SETQ ADOC (VLA-GET-ACTIVEDOCUMENT ACAD-OBJ)) ;_ el DWG que esta abierto-
  (SETQ MODEL (VLA-GET-MODELSPACE ADOC))
  (SETQ SELECTIONSETS (VLA-GET-SELECTIONSETS ADOC))
  (PRINC "\n select the mpoly")
  (SETQ MPOLY (SSNAME (SSGET ":S" '((0 . "MPOLYGON"))) 0))
  (SETQ MPOLY-OBJ (VLAX-ENAME->VLA-OBJECT MPOLY))
  (PRINC "\n Select one LVLINE ")
  (SETQ LVLINE (SSNAME (SSGET ":S" '((0 . "lwpolyline"))) 0))
  (SETQ LVLINE-OBJ (VLAX-ENAME->VLA-OBJECT LVLINE))
  (SETQ LVLINE-OBJ-LAYER (VLA-GET-LAYER LVLINE-OBJ))
  (SETQ ALL-LVCABE (SSGET "X" (LIST (CONS 0 "lwpolyline") (CONS 8 LVLINE-OBJ-LAYER))))
  (SETQ ALL-LVCABE-OBJ (VLA-GET-ACTIVESELECTIONSET ADOC))
  (SETQ LVCABLE@MPLOLIGON-XY-LIST ())
  (VLAX-FOR LVCABLE-OBJ  ALL-LVCABE-OBJ
    (IF
      (SETQ LVCABLE@MPLOLIGON-XY (VLAX-SAFEARRAY->LIST
                                   (VLAX-VARIANT-VALUE
                                     (VLA-INTERSECTWITH
                                       MPOLY-OBJ
                                       LVCABLE-OBJ
                                       ACEXTENDNONE ;_ Does not extend either object.
                                       ;; acExtendThisEntity ;_Extends the base object.
                                       ;; acExtendOtherEntity ;_ Extends the object passed as an argument.
                                       ;; acExtendBoth    ;;Extends both objects.
                                       ) ;_end intersectwith
                                     ) ;_end vlax-variant-value
                                   ) ;_end vlax-safe->array
            )
       (SETQ LVCABLE@MPLOLIGON-XY-LIST (CONS LVCABLE@MPLOLIGON-XY LVCABLE@MPLOLIGON-XY-LIST))
       ) ;end if

    
    ) ;end vlax-for  
  LVCABLE@MPLOLIGON-XY-LIST
  );end defun

(defun c:get-vert()
(setq vertex (GET-VERTEX-AT-MPOLYGON))
)