Привязка "Геометрический центр"

Добрый день, уважаемые форумчане. В наличии Цивил 2019. Проблема с привязкой "Геометрический центр", а именно с его определением у простейших фигур при переносе или копировании. Как видно на приложенном скриншоте, автокад не верно определяет этот самый геометрический центр. Увеличение или уменьшение кол-ва сегментов переменной PLINEGCENMAX не помогло никак.

Как вылечить данную болячку?

 

Еще один пример. Другой чертеж.

 

https://forums.autodesk.com/t5/autocad-lt-forum/geometric-center-problem/td-p/6530493

Ещё можно через Lisp

;Center of closed polygon
;^P(or C:pc1 (load "pc1.lsp"))(pc1)
; (load "pc1.lsp")(pc1)
(defun pc1 ( / acdoc acspc acsel reg pt) (vl-load-com) ;; © Lee Mac 2011

(setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))
acspc (vlax-get-property acdoc (if (= 1 (getvar 'CVPORT)) 'Paperspace 'Modelspace))
)
; (if (ssget "+.:E:S")
(if (ssget "+.:E:S" '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)))
(progn
(vlax-for obj (setq acsel (vla-get-ActiveSelectionSet acdoc))
(setq pt(trans (vlax-get (setq reg (car (vlax-invoke acspc 'addregion (list obj)))) 'Centroid) 1 0))
(vla-delete reg)
)
(vla-delete acsel)
)
)
pt
)

Macro: ^P(or C:pc1 (load "pc1.lsp"))(pc1)