FAQ/Unigraphics/POST

[lexincton 70]

11 минуту назад, artem-nafanya сказал:

Не пойму почему код сравнивает несколько наборов значений $tool и $row_tool?

Если мне надо найти одинаковые номера инструментов, то имеется только один набор значений состоящий из номеров инструментов, и потому цикл должен как бы искать одинаковые числа внутри самого себя, или я не правильно понял код?

А за чем создавать список с дубликатами, когда можно проверить на наличие перед записью?

[62Alex33 0]

1 час назад, lexincton сказал:

 

Не, вот где

Не знаю почему, но у меня не работает эта фишка. Все равно программу выдает без повторного вывода инструмента

[lexincton 70]

34 минуты назад, 62Alex33 сказал:

Не знаю почему, но у меня не работает эта фишка. Все равно программу выдает без повторного вывода инструмента

Пост прикрепите

[62Alex33 0]

5 минут назад, lexincton сказал:

Пост прикрепите

 

1111.rar

[lexincton 70]

18 минут назад, 62Alex33 сказал:

1111.rar

 

1111.rar

[62Alex33 0]

23 минуты назад, lexincton сказал:

 

1111.rar

Спасибо. А ты можешь написать как и что, где сделал на будущее. Пост не может твой открыть из-за более старой версии. А самое главное то, и не получилось, чтоб он подходил к точки безопасного подхода(((.

Изменено 17 января 2018 пользователем 62Alex33

[lexincton 70]

9 минут назад, 62Alex33 сказал:

Спасибо. А ты можешь написать как и что, где сделал на будущее. Пост не может твой открыть из-за более старой версии

Поменял вывод инструмента в событии начала траектории

9 минут назад, 62Alex33 сказал:

А самое главное то, и не получилось, чтоб он подходил к точки безопасного подхода(((.

Прописать статично эту строку перед инструментом

[artem-nafanya 18]

@lexincton

4 часа назад, lexincton сказал:

А за чем создавать список с дубликатами, когда можно проверить на наличие перед записью?

Я не против, пускай перед записью, но что внутри переменных $tool и $row_tool одни и те же номера инструментов будут? 

 

 

[lexincton 70]

30 минут назад, artem-nafanya сказал:

@lexincton

Я не против, пускай перед записью, но что внутри переменных $tool и $row_tool одни и те же номера инструментов будут? 

$tool - инструмент из списка

$row_tool - добавляемый инструмент

[artem-nafanya 18]

1 час назад, lexincton сказал:

$tool - инструмент из списка

$row_tool - добавляемый инструмент

Сделал так:

КОД  

global listtool
global mom_tool_number

set listtool $mom_tool_number
set rowtool $mom_tool_number
set bsearch 0
foreach tool $listtool {
    if { $tool == $rowtool } {
        set bsearch 1
        break
    }
}

if {$bsearch != 0} {
MOM_output_text 11111111111111111111111111111
}
#если bsearch == 0, значит элемент в списке не найден

Hide  

Но в таком виде код всегда находит совпадения, даже если в обработке одна операция с одним инструментом.

Что я делаю не так?

[lexincton 70]

8 минут назад, artem-nafanya сказал:

Что я делаю не так?

Почитайте про списки, стр. 134, без этого не поймете, потом напишите, если не прояснится

[museok 15]

Всем привет , вопрос по посту на синумерик, не выводит после выбора оборотов направление ( M3-М4 ) со второго инструмента.

В первом все отлично, а со второго только обороты, куда тыкнуть ? 

[artem-nafanya 18]

5 минут назад, lexincton сказал:

Почитайте про списки, стр. 134, без этого не поймете, потом напишите, если не прояснится

@lexincton

(имеется ввиду стр. 134 в книге Уэлш Б., Джонс К. - Практическое программирование на Tcl и Tk)

запись

global list_tool

set row_tool  $mom_tool_number
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

 

чтение

global list_tool

 

foreach number [lsearch -ascii -exact -inline {$list_tool} ]

if {$number == "YES"} {

MOM_output_text "обнаружены дублирующие номера инструментов: T:$number"

}

 

54 минуты назад, museok сказал:

Всем привет , вопрос по посту на синумерик, не выводит после выбора оборотов направление ( M3-М4 ) со второго инструмента.

В первом все отлично, а со второго только обороты, куда тыкнуть ? 

А в начальном перемещении М3 заданы?

[lexincton 70]

28 минут назад, artem-nafanya сказал:

@lexincton

(имеется ввиду стр. 134 в книге Уэлш Б., Джонс К. - Практическое программирование на Tcl и Tk)

запись

global list_tool

set row_tool  $mom_tool_number
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

 

чтение

global list_tool

 

foreach number [lsearch -ascii -exact -inline {$list_tool} ]

if {$number == "YES"} {

MOM_output_text "обнаружены дублирующие номера инструментов: T:$number"

}

А в этот раз что хотите получить?

 

[museok 15]

40 минут назад, artem-nafanya сказал:

@lexincton

(имеется ввиду стр. 134 в книге Уэлш Б., Джонс К. - Практическое программирование на Tcl и Tk)

запись

global list_tool

set row_tool  $mom_tool_number
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

 

чтение

global list_tool

 

foreach number [lsearch -ascii -exact -inline {$list_tool} ]

if {$number == "YES"} {

MOM_output_text "обнаружены дублирующие номера инструментов: T:$number"

}

 

А в начальном перемещении М3 заданы?

да все указано

[artem-nafanya 18]

8 минут назад, lexincton сказал:

А в этот раз что хотите получить?

 

Список инструментов положить в массив.

Найти все одинаковые значения инструментов и вывести предупреждение, если они есть.

2 минуты назад, museok сказал:

да все указано

Выложите пост и проект обработки, надо смотреть.

[lexincton 70]

16 минут назад, artem-nafanya сказал:

Список инструментов положить в массив.

Найти все одинаковые значения инструментов и вывести предупреждение, если они есть.

global list_tool double_tools

set row_tool  $mom_tool_number
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

if { $bsearch && ![info exists $double_tools($row_tool)] } { set double_tools($row_tool) 0 }

 

чтение

foreach number [array names double_tools]  {
     MOM_output_literal "обнаружены дублирующие номера инструментов: T:$number"
}

Изменено 17 января 2018 пользователем lexincton

[artem-nafanya 18]

15 часов назад, lexincton сказал:

Показать содержимое  

global list_tool double_tools

set row_tool  $mom_tool_number
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

if { $bsearch && ![info exists $double_tools($row_tool)] } { set double_tools($row_tool) 0 }

 

чтение

foreach number [array names double_tools]  {
     MOM_output_literal "обнаружены дублирующие номера инструментов: T:$number"
}

Hide  

Почему-то выдаёт ошибку, хотя переменная объявлена. Пробовал менять на другую, результат тот же.

[lexincton 70]

20 минут назад, artem-nafanya сказал:

Почему-то выдаёт ошибку, хотя переменная объявлена. Пробовал менять на другую, результат тот же.

Потому что ее нет и к тому же ничего не добавляется

 

global list_tool double_tools

if { ![info exists list_tool] } { set list_tool {} }
set row_tool  $mom_tool_number
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

if { !$bsearch } {

    lappend list_tool $row_tool

} elseif { ![info exists $double_tools($row_tool)] } { set double_tools($row_tool) 0 }

[artem-nafanya 18]

25 минут назад, lexincton сказал:

Показать содержимое  

Потому что ее нет и к тому же ничего не добавляется

 

global list_tool double_tools

if { ![info exists list_tool] } { set list_tool {} }
set row_tool  $mom_tool_number
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

if { !$bsearch } {

    lappend list_tool $row_tool

} elseif { ![info exists $double_tools($row_tool)] } { set double_tools($row_tool) 0 }

Hide  

С этим кодом тоже самое((