Create polygon from GRID

[Trudy]

Hello, i want to ask for help with creating closed polygon from Grid lines with lisp.

 

Regards Trudy

 

Edited September 7, 2022 by Trudy

[marko_ribar]

I'd recommend that you create single one, set variable (setq el (entlast)) and then do ARRAYCLASSIC - Rectangular option... Finally you iterate through newly created entities and change numbers in texts :

 

(setq k 1)
(while (setq el (entnext el))
  (if (wcmatch (cdr (assoc 0 (entget el))) "*TEXT")
    (entupd (cdr (assoc -1 (entmod (subst (cons 1 (strcat (substr (cdr (assoc 1 (entget el))) 1 (1- (strlen (cdr (assoc 1 (entget el)))))) (itoa (setq k (1+ k))))) (assoc 1 (entget el)) (entget el))))))
  )
)

 

Edited December 16, 2020 by marko_ribar

[Stefan BMR]

For Boxes only, you can try Enclosed Polylines