[Browning Zed]

Всем привет. Возможно, нижеописанная ситуация является багом, возможно - нет, но разобраться с этим я не смог. Суть: пытаюсь определить центр тяжести полилинии (код привожу ниже), в данном случае маркируя центроид точкой. Обычно все работает как нужно, но в некоторых обстоятельствах вычисление ценроида начинает определяться некорректно.
И тут всплывает главное - проблема кроется не в коде, а в файле! То есть, в dwg-файле при обстоятельствах, мною невыясненных, геометрия объекта в части определения центроида, начинает оцениваться некорректно. Я не смог определить, что может влиять на этот процесс. В таком файле центр тяжести полилинии неверно определится не только LISP-кодом, но и самим Автокадом, - это не сложно проверить активировав привязку "геометрический центр". В чем может заключаться проблема? Отмечу, также, что случай не единичный, и регулярно всплывает в моей практике.
Файл прикладываю.

Код:

[Выделить все]

 (defun c:test ( / ss )
    (if
        (setq ss
            (ssget "_+.:E:S:L"
               '(
                    (0 . "LWPOLYLINE")
                    (-4 . "&=")
                    (70 . 1)
                    (-4 . "<NOT")
                    (-4 . "<>")
                    (42 . 0.0)
                    (-4 . "NOT>")
                )
            )
        )
        (entmake (list '(0 . "POINT") (cons 10 (LM:PolyCentroid (ssname ss 0)))))
    )
    (princ)
)

;; Polygon Centroid  -  Lee Mac
;; Returns the WCS Centroid of an LWPolyline Polygon Entity

(defun LM:PolyCentroid ( e / l )
    (foreach x (setq e (entget e))
        (if (= 10 (car x)) (setq l (cons (cdr x) l)))
    )
    (
        (lambda ( a )
            (if (not (equal 0.0 a 1e-8))
                (trans
                    (mapcar '/
                        (apply 'mapcar
                            (cons '+
                                (mapcar
                                    (function
                                        (lambda ( a b )
                                            (
                                                (lambda ( m )
                                                    (mapcar
                                                        (function
                                                            (lambda ( c d ) (* (+ c d) m))
                                                        )
                                                        a b
                                                    )
                                                )
                                                (- (* (car a) (cadr b)) (* (car b) (cadr a)))
                                            )
                                        )
                                    )
                                    l (cons (last l) l)
                                )
                            )
                        )
                        (list a a)
                    )
                    (cdr (assoc 210 e)) 0
                )
            )
        )
        (* 3.0
            (apply '+
                (mapcar
                    (function
                        (lambda ( a b )
                            (- (* (car a) (cadr b)) (* (car b) (cadr a)))
                        )
                    )
                    l (cons (last l) l)
                )
            )
        )
    )
)

[trir]

ошибка округления координат - слишком много цифр

[Browning Zed]

Ок. Выставляю LUPREC = 0, ошибка повторяется. В какую сторону копать?

[trir]

https://ru.wikipedia.org/wiki/%D0%94...B8%D0%BA%D0%B0
или считать от первой точки

[Browning Zed]

То есть проблема, при значительном удалении от начала системы координат, становится не решаемой в принципе?

[trir]

у тебя циферки в переменную не умещаются
возьми первую точку за ноль и вычитай её значение из всех остальных, потом прибавь к результату

[Browning Zed]

Ок, спасибо.