Шаг 18 - Точки - ArcInfo - Corel

Одной из проблем использования 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 заставляет получать координату центра, а не правого верхнего угла. По умолчанию получаются координаты правого верхнего угла.


Предыдущий Шаг | Оглавление
Автор Каев Артем.