Try it
NO ERROR CHECK
Code:
;; 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))
)