CAD Boundary around the text or point

[vishalghuge2500]

can we create a boundaries as shown with red lines from the left side drawing by using text base points 

[ВeekeeCZ · Accepted solution]

You can use this simple automation to help.

But - of course - you need to fix your drawing first. Seems like the FLATTEN fixed the most of it.

(vl-load-com)

(defun c:BoundaryT ( / s i p)

  (if (setq s (ssget '((0 . "TEXT"))))
    (repeat (setq i (sslength s))
      (setq p (cdr (assoc 10 (entget (ssname s (setq i (1- i)))))))
      (vl-catch-all-apply 'bpoly (list p))))
  (princ)
  )

[calderg1000]

Regards @vishalghuge2500 

Try this code, it should work if all the numbered areas had no unclosed encounters. Verify this first by zooming in on all the joints between lines that make up the vertices of the polygon to be obtained.

;;;___
(defun c:bop (/ x p)
  (foreach x
	     (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "*text")))))
	     )
    (setq p (cdr (assoc 10 (entget x)))
	  p (mapcar '- p (list 0. 0. (caddr p)))
    )
    (command "_.boundary" "_non" p "")
  )
)