Всякие Простые Вопросы

[Sergey___1978 34]

Это типа:

2 - два

2000 -  две тысячи

[Ветерок 2 108]

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

перевода десятичных чисел в прописные

что такое "прописное число"?

[ANTON_KRAJNUK 8]

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

перевода десятичных чисел в прописные

Может это Вам нужно

itos(int)
Преобразование целых чисел в строки. Здесь int может быть числом или выражением. Нецелые числа округляются.

А записать число словом такого нет

[fenics555 212]

2 часа назад, Sergey___1978 сказал:

Это типа:

2 - два

2000 -  две тысячи

Не нет, )))

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

Пользую нечто, данное Русланом несколько лет назад: 

/*D=
K=itos((D-floor(D))*100) /* Дробная часть размера, 1 разряд в текстовом виде
If string_length(K)>0 /* Если К больше 0
Д_прописной= itos(floor(D))+","+K /* Целая часть объединяется с дробной
else
Д_прописной= itos(floor(D)) /* Целая часть
endif

 

Но это не автоматически (разрядность надо править руками), и то и дело косяки если нули попадаются в середине.

 

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

itos(int)
Преобразование целых чисел в строки. Здесь int может быть числом или выражением. Нецелые числа округляются.

А записать число словом такого нет

Да, но только нецелые числа должны быть нецелыми! Хотябы до 3х знаков.

Изменено 6 августа 2019 пользователем fenics555

[Sergey___1978 34]

Так это не прописные, а строковый тип называется

 

[fenics555 212]

Только что, Sergey___1978 сказал:

Так это не прописные, а строковый тип называется

 

Неправильно выразился.

[Sergey___1978 34]

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

А так пока не ясно для каких целей и какая такая разрядность числа не получается

 

Хотя бы скриншот

 

[Ветерок 2 108]

11 минуту назад, fenics555 сказал:

переводить числовые значения

а откуда эти значения берутся?

[fenics555 212]

40 минут назад, Ветерок сказал:

а откуда эти значения берутся?

 

52 минуты назад, fenics555 сказал:

/*D=
K=itos((D-floor(D))*100) /* Дробная часть размера, 1 разряд в текстовом виде
If string_length(K)>0 /* Если К больше 0
Д_прописной= itos(floor(D))+","+K /* Целая часть объединяется с дробной
else
Д_прописной= itos(floor(D)) /* Целая часть
endif

К "D" можно приравнять что угодно, хоть параметр хоть размер. 

 

48 минут назад, Sergey___1978 сказал:

А так пока не ясно для каких целей и какая такая разрядность числа не получается

Тут суть в данном уравнении в том, чтобы отнять из числа его округленное целое в меньшую сторону. Если остаток равен нулю, то в строковый параметр выводится число через ITOS, а если остаток больше нуля, то этот остаток умножается на 10/100/1000 (смотря какую разрядность надо) и выводится через также через ITOS после запятой. 

 

Но если в остатке присутствуют нули, то начинается касяк:

50,12 будет выводиться нормально, а вот 50,04 будет выводиться в строковые как 50,4.

 

[Sergey___1978 34]

а кто задает разрядность или для каждого случая индивидуально?

[fenics555 212]

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

а кто задает разрядность или для каждого случая индивидуально?

Именно нет авторазряда.

[Sergey___1978 34]

Что понимается под авторазрядностью?

Откуда программа должна знать до какого разряда округлять в каждом конкретном случае?

Если только привязать разразрядность к величине целой части.

[Ветерок 2 108]

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

Можно ещё добавить параметр, ограничивающий число десятичных знаков.

 

ddd = 15.0205
celoe = floor (ddd)
des = ddd - celoe
if des>0 /*1
c1 = des * 10
des1 = floor (c1)
     if des1 > 0 /*2
     text = itos(celoe)+","+itos(c1)
     else  /*2
     text = itos(celoe)+",0"
     endif /*2
else /*1
text = itos(celoe)
endif /*1

 

__________

Но не проще ли вбить нужные цифры с клавиатуры? Или их так много и они постоянно меняются?

[fenics555 212]

1 час назад, Ветерок сказал:

Или их так много и они постоянно меняются?

В том то и дело, что иногда  фиг его знает менял кто или нет. Поэтому на некоторых деталях и узлах приходится выводить значения. 

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

 

а недавно делал (даже не знаю как правильно) унификацию или стандартизацию некоторых изделий, которые входят в множество сборок (втулки, дистанционные шайбы и т.д.). 

И на определенном этапе я принимаю решение всё таки сделать на определенную группу сборок более длинную втулку. А у нее наименование идет автоматически D1xD2xL ,  удобно же. 

 

Я очень часто пользуюсь сей формулой от Руслана, но она не совсем правильно работает. 

1 час назад, Ветерок сказал:

ddd = 15.0205
celoe = floor (ddd)
des = ddd - celoe
if des>0 /*1
c1 = des * 10
des1 = floor (c1)
     if des1 > 0 /*2
     text = itos(celoe)+","+itos(c1)
     else  /*2
     text = itos(celoe)+",0"
     endif /*2
else /*1
text = itos(celoe)
endif /*1

Ну суть то та же самая, надо бы попробовать немного оптимизировать, поубавить параметры... 

 

Просто странно, что никто такими вещами еще не занимался.

[ANTON_KRAJNUK 8]

5 часов назад, fenics555 сказал:

Но если в остатке присутствуют нули, то начинается касяк:

50,12 будет выводиться нормально, а вот 50,04 будет выводиться в строковые как 50,4.

у меня аналогично я использую подобную схему для автоматического переноса толщины листового материала в графу материала чертежа, да действительно вобъеш толщину 1,05 получиш в итоге 1,5, хотя я с такими толщинами не работаю и не сталкивался, мне хватает. НО тему Вы затронули крайне ИНТЕРЕСНУЮ, пробовал решить с наскоку не получилось.

Вот мои уравнения в шаблоне модели для листовой детали

/*-----АВТОМАТИЧЕСКОЕ НАЗНАЧЕНИЕ ТОЛЩИНЫ МАТЕРИАЛА ДЛЯ СОРТАМЕНТА ЧЕРТЕЖА
sort=SMT_THICKNESS
tol=ceil(sort ,1)
tol1=floor(sort)
if tol>sort
tol2=(sort-tol1)*100
else
if tol==sort
tol2=(sort-tol1)*10
endif
endif
if tol1==0
tolm1="0"
else
tolm1=itos(tol1)
endif
if tol2==0
tolm2=""
else
if tol2<>0
tolm2=","+itos(tol2)
endif
endif

................часть уравнеий пропустил они не в тему

MATERIAL_1="Б-ПН-О "+tolm1+tolm2+" "+gtlh

(gtlh парметр отвечающий за номер госта)

Изменено 6 августа 2019 пользователем ANTON_KRAJNUK

[ANTON_KRAJNUK 8]

6 часов назад, Ветерок сказал:

ddd = 15.0205
celoe = floor (ddd)
des = ddd - celoe
if des>0 /*1
c1 = des * 10
des1 = floor (c1)
     if des1 > 0 /*2
     text = itos(celoe)+","+itos(c1)
     else  /*2
     text = itos(celoe)+",0"
     endif /*2
else /*1
text = itos(celoe)
endif /*1

Хорошее предложение, надо поразмыслить и развить тему, жаль что в pro/E, Creo изначально довольно ограниченный набор возможностей в уравнениях, хотя и с имеющимися довольно многое можно решить, поизгалявшись и понапрягав мозги, жаль нет возможности создания циклов в вычислениях, но не совсем автоматически их можно заменить таблицей семейства, напрашивается как с моей точки зрения наличие функций и возможностей самого простецкого бейсика, но увы разработчики врядли нынче сие добавят

Изменено 6 августа 2019 пользователем ANTON_KRAJNUK

[Ветерок 2 108]

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

нет возможности создания циклов в вычислениях

можно и циклы сделать. Только зачем?

Можно написать программу на нормальном языке программирования и использовать.

[fenics555 212]

10 часов назад, Ветерок сказал:

можно и циклы сделать. Только зачем?

Уменьшить количество переменных для каждого разряда до трех всего. 

Вы представьте, если ВДРУГ Вам придется несколько размеров сразу перегонять, только править эти переменные уже не торт.

[fenics555 212]

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

НО тему Вы затронули крайне ИНТЕРЕСНУЮ, пробовал решить с наскоку не получилось.

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

[ex3m 5]

 

# L =10.5 /*real

# string_length(itos(L*10)) /* 10 задаёт количество знаков

 

IF extract(itos(L*10),string_length(itos(L*10)),1)!="0"
   text_L=itos(floor(L,0))+","+itos((L-floor(L,0))*10)
ELSE
   text_L=itos(L)
ENDIF