cnc-club.ru

Код: Выделить всё

-- Инициализация внешних процедур (макросов)
if (string.find(package.path, "?.pm;") == nil) then
	package.path = "?.pm;" .. package.path
end
package.loaded[os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M160"] = nil
package.loaded[os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M161"] = nil
package.loaded[os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M162"] = nil
package.loaded[os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M163"] = nil
package.loaded[os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M163"] = nil
require(os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M160")
require(os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M161")
require(os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M162")
require(os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M163")
require(os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\M164")

-- Позиционирование 
function m155()

	if (not IsProbingPinConfigured()) then
	  DisplayMessage("Не сконфигурирован датчик высоты.")
	  os.execute("echo \a")
	  return
    end

	DisplayMessage("Запуск внешней программы")
	os.execute(os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\VisualHelper.exe")
	local f = io.open(os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\eOper.txt","r")
	if f == nil then 
		DisplayMessage("Ошибка открытия файла"..os.getenv("UserProfile").."\\AppData\\Local\\Purelogic\\Puremotion\\Server\\Macros\\eOper.txt")
		return
	else
		f:seek("set",0)							-- Переменные объявляюся глобальными, что бы видно было в макросах
		st_oper_id 			= f:read("*l") 		-- Код операции
		st_ballDiam			= f:read("*l")  	-- Диаметр шарика\диаметр калибровочных отверстий 
		st_outletX 			= f:read("*l")		-- Расстояние от края до проекции щупа по оси Х\ размер по Х
		st_diamIn  			= f:read("*l")		-- Диаметр отверстия\диаметр заготовки\расстояние от края по Y\ размер по Y
		st_stepX   			= f:read("*l")		-- Шаг по Х
		st_stepY			= f:read("*l")		-- Шаг по Y
		st_cX1				= f:read("*l")		-- Координата Х калибровочного отверстия № 1
		st_cY1				= f:read("*l")		-- Координата Y калибровочного отверстия № 1
		st_cX2				= f:read("*l")		-- Координата Х калибровочного отверстия № 2
		st_cY2				= f:read("*l")		-- Координата Y калибровочного отверстия № 2
		st_safetyZ 			= f:read("*l")		-- Безопасная высота
		st_probingFeedFast	= f:read("*l")		-- Подача при пробинге
		st_probingMax 		= f:read("*l")		-- Глубина пробинга
		st_probingFeedSlow	= f:read("*l")		-- Cкорость повторного пробинга
		st_otskok			= f:read("*l")		-- Дистанция отскока
		st_fine				= f:read("*l")		-- Точная позиция
	end
	f:close()
----------------------------------------------------------------------------------------------------------------
	if st_oper_id == "0" then
		DisplayMessage("Отмена операции")
		return
	end
----------------------------------------------------------------------------------------------------------------
	if st_oper_id == "1" then
		m160()
		return
	end
---------------------------------------------------------------------------------------------------------------
	if st_oper_id == "2" then
		m161()	
		return
	end
----------------------------------------------------------------------------------------------------------------
	if st_oper_id == "3" then
		m162()	
		return
	end
----------------------------------------------------------------------------------------------------------------
	if st_oper_id == "4" then
		m163()	
		return
	end
----------------------------------------------------------------------------------------------------------------	
	if st_oper_id == "5" then
		m164()	
		return
	end
----------------------------------------------------------------------------------------------------------------
end