• Шаблоны, шрифты
• Запуск Unigraphics
• Инструмент. Работа с базой инструмента UGS.

Ядро геометрического моделирования.

Пакет геометрического моделирования (называемый также геометрическим ядром) — набор библиотек с программным интерфейсом (API), с помощью которого можно пользоваться функциями геометрического (например, твердотельного) моделирования.

 Предпочтения:

Шаблоны, шрифты.

Однажды на предприятие приехал японец, достал свой компьютер ....ээээ размером 15 x 20 см толщиной 1см, и стал запускать ЮГ!!! Запустил!! И стал работать на клавиатуре с клавишами размером от мобильного телефона!! Без мыши!!! При этом спрашивая через переводчика: - "а у вас на предприятии, Вы, точно используете лицензионную Юниграфикс?". Я испытал состояние близкое к безмятежному, а в голове сверлила мысль - "куда катиться мир?".

Это было в 97-98 годах. КнаАПО купило UG, но лицензий было мало, поэтому во всю использовали ворованный (ломанный ЮГ). Наступил 2000-2002 гг, в связи с внедрением Iman встала задача засунуть в базу все эти модели. После база отправляется в М. ОКБ Сухого для ... скажем для синхронизации... :):): Но модели были сделаны на ломанном Юге. И это как то отображалось там у них. Поэтому прозвучала команда модифицировать модель сделанную в ломанном Юге в нормальную лицензионную. :):) Проблемой занялся начальник отдела по разработке и поддержке САПР - Долгополик (тот еще кадр). Как он делал? Просто он построил одну и ту же модель - в ломаном Юге и в лицензионном. При этом даже подгонял время создания. И... был найден тот самый бит.. да да - бит - который и делал prt-файлы разными по лицензионности. :):) ну, а дальше дело техники... массово прогнали через утилиту... и вуаля.. совесть КнаАПО чиста как слезы у младенца.

  для запуска сервера Юга я использую батник (это связано с ленью его запускать в Lmtools , и желанием облегчить жизнь компьютера и без того перегруженного службами баз, оборудования и драйверов). Также, Самое главное! Этот способ - позволяет обходиться без прав администратора, чтоб запускать службу сервера лицензии.
 Параметры запуска я узнаю используя утилиту ProcExp.exe (Sysinternals Process Explorer, Mark Russinovich ).

#---------------------------------------------
proc ASC_create_criterion {} {
#---------------------------------------------
global asc_debug
global dbc_lhs_exp
global dbc_rhs_exp
global dbc_relop
global dbc_query
global units_from_query

if { $asc_debug == "1" } {
puts "DBC_create_criterion" 
puts "dbc_lhs_exp = $dbc_lhs_exp"
puts "dbc_rhs_exp = $dbc_rhs_exp"
puts "dbc_relop = $dbc_relop"
}

ASC_extract_expression dbc_lhs_exp 
ASC_extract_expression dbc_rhs_exp 


if { "$dbc_rhs_exp" == "%" && "$dbc_relop" == "==" } \
{
set dbc_query "(1 == 1)"
} \
elseif { "$dbc_relop" == "&=" } \
{ 
set dbc_query "\[regexp \{$dbc_rhs_exp\} $dbc_lhs_exp\]"
} \
elseif { "$dbc_lhs_exp" == "Units" && "$dbc_rhs_exp" == "MM" } \
{ 
set units_from_query 0
set dbc_query "(1 == 1)"
} \
elseif { "$dbc_lhs_exp" == "Units" && "$dbc_rhs_exp" == "INCH" } \
{ 
set units_from_query 1
set dbc_query "(1 == 1)"
} \
else \
{
set dbc_query "($dbc_lhs_exp $dbc_relop \"$dbc_rhs_exp\")"
}

if { $asc_debug == "1" } {
puts "DBC_Create_Criterion made: $dbc_query"
}
}

#---------------------------------------------
proc ASC_create_criterion {} {
#---------------------------------------------
global asc_debug
global dbc_lhs_exp
global dbc_rhs_exp
global dbc_relop
global dbc_query
global units_from_query

if { $asc_debug == "1" } {
puts "DBC_create_criterion" 
puts "dbc_lhs_exp = $dbc_lhs_exp"
puts "dbc_rhs_exp = $dbc_rhs_exp"
puts "dbc_relop = $dbc_relop"
}

ASC_extract_expression dbc_lhs_exp 
ASC_extract_expression dbc_rhs_exp 


if { "$dbc_rhs_exp" == "%" && "$dbc_relop" == "==" } \
{
set dbc_query "(1 == 1)"
} \
elseif { "$dbc_relop" == "&=" } \
{ 
set dbc_query "\[regexp \{$dbc_rhs_exp\} $dbc_lhs_exp\]"
} \
elseif { "$dbc_lhs_exp" == "Units" && "$dbc_rhs_exp" == "MM" } \
{ 
set units_from_query 0
set dbc_query "(1 == 1)"
} \
elseif { "$dbc_lhs_exp" == "Units" && "$dbc_rhs_exp" == "INCH" } \
{ 
set units_from_query 1
set dbc_query "(1 == 1)"
} \
else \
{
set dbc_query "($dbc_lhs_exp $dbc_relop \"$dbc_rhs_exp\")"
}

#!!!!!!!!!!!!!!!!!!! ###($asc_database($db_row,LIBRF) == "")
set qry ",LIBRF) =="
if {[string match *${qry}* $dbc_query]} {

set dbc_query "\[regexp \{$dbc_rhs_exp\} $dbc_lhs_exp\]" 

if {[regexp {[*]+|[?]+} $dbc_rhs_exp]} {
set dbc_query "\[string match $dbc_rhs_exp $dbc_lhs_exp\]" 
}

}
#!!!!!!!!!!!!!!!!!!!

if { $asc_debug == "1" } {
puts "DBC_Create_Criterion made: $dbc_query"
}
}