Одной из проблем использования Corel является отсутствие точечных объектов. В Corel есть значок, точки нет. В ГИС наоборот, есть точки, а нет значка. Получается, что экспортировать точечные объекты из Corel нельзя. На самом деле можно, только скрипт нужно написать. Вот полный код скрипта. Он пробегает по всем объектам, берет центральную координату и записывает ее в файл в формате GPN, который может читать AcrInfo:
WITHOBJECT "CorelDraw.Automation.8" DIM FOb AS LONG DIM NOb AS LONG DIM ObjID AS LONG DECLARE SUB WriteFile() open "c:\1.gpn" for output as #1 .UnselectAll .SelectNextObject FOb=.GetObjectsCDRStaticID() ObjID=FOb CALL WriteFile WHILE (FOb<>NOb) .SelectNextObject NOb=.GetObjectsCDRStaticID() ObjID=NOb IF (FOb<>NOb) THEN CALL WriteFile ENDIF WEND PRINT #1,"END" CLOSE #1 END SUB WriteFile() DIM XPos as LONG DIM YPos as LONG DIM IDs as LONG IDs=.GetObjectsCDRStaticID() .SetReferencePoint 9 .GetPosition XPos&, YPos& PRINT #1,IDs;" ";TOINCHES(XPos);" ";TOINCHES(YPos) END SUB END WITHOBJECT
Все это было описано ранее. Только SetReferencePoint 9 заставляет получать координату центра, а не правого верхнего угла. По умолчанию получаются координаты правого верхнего угла.