V-Форум / Corel VBA / Тема: Kоординаты крайних точек селекции

Kоординаты крайних точек селекции

 16/09/2011 12:56:11 #Link

Как узнать координаты крайних точек селекции?????

Re: Kоординаты крайних точек селекции

 16/09/2011 17:34:36 #Link

попробуй найти точки пересечения/касания всех сегментов с окаймляющим квадратом

for each sh in activeselection.shapes.findshapes()
for each seg in sh.segments
for each segSquare in shSquare '4 повтора по сегментам окаймляющего квадрата (создать самому)
for each cross in seg.GetIntersections(segSquare)
'анализ пересечений
next
next
next
next

Re: Kоординаты крайних точек селекции

 27/09/2011 13:08:26 #Link

wOxxOm, спасибо за идею.