Перейти к содержанию
Авторизация  
Alan Derby

Скрипт для измерения угла щупом

Рекомендуемые сообщения

Дата: (изменено)

Макрос измеряет угол относительно оси Х, но его не сложно переделать для измерения по Y или по Z. Измерения по Z можно использовать, например, для того, чтобы точно позиционировать заготовку в поворотной оси. Можно даже дописать его, чтобы после измерения заготовки по Z он давал поворотной оси команду на выравнивание. 

В текущем варианте, для вычисления угла щуп едет по оси Y пока не дотронется до детали. Далее откатывается на 10 мм смещается по Х на указанное значение, снова касается детали. 

При запуске появится окно с вопросом, на сколько смещаться по оси Х при выполнении измерений (по умолчанияю 80 мм), после выполнения макроса, в окошке отобразится значение измеренного угла. 

Полученное значение можно использовать для выравнивания или как входное значение для G68.

Скрипт: 

Цитата

 

Dim Message, Title, Default, Distance
Message = "Distance between measurement points?"    ' Set X distance
Title = "Input Distance"    ' Set title.
Default = "80"                                      ' Set default.

' Display dialog box at position 100, 100.
Distance = InputBox(Message, Title, Default, 100, 100)


Code "G91" 
Code "F100 G31 y1000" 
While IsMoving()                
Wend

Code "G0 y-10" 
Code "F50 G31 y1000" 
While IsMoving()                
Wend

ymeg1=GetDro(1)

Code "G0 y-10"

Code "G0 x+"&Distance 'Offset by the specified distance
Code "F100 G31 y1000" 
While IsMoving()                
Wend

Code "G0 y-10" 
Code "F50 G31 y1000" 
While IsMoving()                
Wend

ymeg2=GetDro(1)

Code "G0 y-10"
Code "G90"        
cathet_y=ymeg2-ymeg1

'Calculating degrees from the aspect ratio
x=Distance                         'cathet 1
y=cathet_y                         'cathet 2
Arctang=Atn(y/x)                   'Calculating the angle in radians via acctangent
Gradus=180*Arctang/3.1415926535    'Converting radians to degrees

Okruglenie=Round (Gradus,4)        'rounding to the 4-th digit

MsgBox(Okruglenie) 

 

   
 

 

 

Изменено пользователем Alan Derby

Поделиться сообщением


Ссылка на сообщение

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация  

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу


×
×
  • Создать...

Важная информация

Мы разместили cookie-файлы на ваше устройство, чтобы помочь сделать этот сайт лучше. Вы можете изменить свои настройки cookie-файлов, или продолжить без изменения настроек.