OCS2WCS

Похоже, я нашел обьяснение странным выбросам координат. Тех, которые отрицательные, хотя должны бы быть положительными.

Дело в том, что в некоторых случаях (видимо, когда примитивы в AutoCAD создаются процедурно AutoLISP-ом), несмотря на заявки о выдаче координат в WCS, координаты выдаются в OCS (ECS).

OCS

Object coordinate system—point values returned by entget are expressed in this coordinate system, relative to the object itself. These points are usually converted into the WCS, current UCS, or current DCS, according to the intended use of the object. Conversely, points must be translated into an OCS before they are written to the database by means of the entmod or entmake functions. This is also known as the entity coordinate system.

exchange.autodesk.com/autocadarchitecture

И правильный вызов функции trans таки выдает правильные координаты.

Остается только научить мой автомат делать это по ходу пакетной обработки.

Пока разбирался, нарисовалось несколько полезных сниппетов на AutoLISP. Допустим, хандлер примитива = 7598. Тогда:

зумнуть на обьект и подсветить его

(setq h (handent "7598") o (command "zoom" "o" h "") o (redraw h 3))

вывести список атрибутов (кстати, видно гадские отрицательные координаты в примере)

(entget (handent "7598")) ((-1 . ) (0 . "LWPOLYLINE") (330 . ) (5 . "7598") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "A_OAENO_OCEU") (100 . "AcDbPolyline") (90 . 3) (70 . 0) (43 . 2.16) (38 . 0.0) (39 . 0.0) (10 -3195.94 1786.64) (40 . 2.16)...

конвертнуть координаты в WCS

(trans '(-3195.939915040071400 1786.635070675984300) (handent "7598") 0) (3195.94 1786.64 0.0)

выдать дамп обьекта используя ActiveX API (VisualLisp)

(vl-load-com) (setq h (handent "7598") o (command "zoom" "o" h "") o (redraw h 3)) (setq o (vlax-ename->vla-object h)) (vlax-dump-object o T)

заготовка конвертора для моего автомата

(setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq u (vla-get-utility doc)) (setq h (handent "7598") o (command "zoom" "o" h "") o (redraw h 3)) (setq o (vlax-ename->vla-object h)) (setq norm (vlax-get-property o "normal") (setq nc (vla-translatecoordinates u (vlax-3d-point '(-3195.94 1786.64)) 2 0 0 norm)) (vlax-safearray->list (vlax-variant-value nc))