Список форумов Форум Libreoffice

Форум Libreoffice

Добро пожаловать на Форум Libreoffice!
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

English French German Italian Portuguese Russian Spanish
Определить длину отрезка линии

 
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Draw
Предыдущая тема :: Следующая тема  
Автор Сообщение
convas



Репутация: 0    

Зарегистрирован: 01.04.2012
Сообщения: 1

СообщениеДобавлено: Пн Июн 04, 2012 8:23 am    Заголовок сообщения: Определить длину отрезка линии Ответить с цитатой

Макрос, который вычисляет длину любого выделенного отрезка линии (и наклонной тоже).

Код:
Sub LineDL
Dim oDoc, oShape as object
  oDoc=ThisComponent

  On Error GoTo ENDS

  oShape=oDoc.CurrentSelection
 
  oType = oShape(0).getShapeType

  If oType <> "com.sun.star.drawing.LineShape" Then
    MsgBox "Это не линия"
    Exit Sub
  End If

  a=oShape(0).getSize.Width/1000
  b=oShape(0).getSize.Height/1000
  c=Sqr(a*a+b*b)

  MsgBox "Длина линии=" & c  & " см"

Exit Sub
ENDS:
MsgBox "Ничего не выделено"
End Sub
 


Что хотелось бы ещё:
Находить длину произвольной кривой линии.
Площадь выделенной произвольной фигуры (не только прямоугольник и круг).
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Draw Часовой пояс: GMT
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Вы можете бесплатно создать форум на MyBB2.ru, RSS