Как вывести габариты деталей в таблицу?

[Kelny 1 234]

2 А можно ли этому расчету проперти_нэйм присвоить чтобы потом автоматом в бум выводить

Надо еще несколько строчек добавить в конец макроса:

Dim Str as String

Dim Retval as Boolean

Str=TextBox4.text

Part.DeleteCustomInfo2 "", "PropertyInFile" 'PropertyInFile-Свойство которое будет удалено и после сного добавлено, в следующей строке.

retval = Part.AddCustomInfo2("PropertyInFile", swCustomInfoText, Str)

[ak762 307]

Kelny

Глянь чего то не хочет у меня работать как ты предлагал

В мм перевел все хорошо, а вот когда хотел присвоить в проперти найм Stocksize чего то запинается

[Kelny 1 234]

Ну да двойное объявление переменных не допустимо.

Заменяем выделенное на

Dim bRet as boolean



bRet=

Или можно просто убрать строку "Dim retval as boolean" и тогда тоже все будет работать.

[ak762 307]

Или можно просто убрать строку "Dim retval as boolean" и тогда тоже все будет работать.

Заработало

А что то нажимаю Alt-F потом I чтобы проверить занесено ли в StockSize чего

А там ничего нет даже строчки StockSize хотя в моём темплейте детали она всегда есть чтобы потом только добавить цифры

Что то не так...

[Kelny 1 234]

bRet = Part.AddCustomInfo2("PropertyInFile", swCustomInfoText, Str)

Ты лучше проверь что тебе выдаст переменная перед равно, если True то все отлично, ну а если False значит что то не так.

Не так может быть регистр букв. Part.AddCustomInfo2 и Part.DeleteCustomInfo2 чуствительны к регистру букв. И если свойство не удалось удалить то свойство с похожим именем не будет вставлено(Факт).

Скажем свойство написано так: "Size"

я пишу строку : bRet = Part.DeleteCustomInfo2( "", "size")

в этом случае строка свойства не удалится, если записать:

bRet = Part.DeleteCustomInfo2( "", "Size")

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

И еще если хелп по API посмотришь там можно изменять параметр уже существуещего свойства, мне хватала моего способа так что я не разбирался как там это делается но возможность есть.

[ak762 307]

И еще если хелп по API посмотришь

Зачем хелп да-ра-гой , да

Округлить бы еще до целого

Ладно попробую сам если что постучусь опять

[kkk 280]

Ну что, получилось у кого вывести размеры в Свойства?

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

Kelny, может ты допишешь его до конца, очень нужно.

[ak762 307]

Пока делаю copy - paste

Kelny, может ты допишешь его до конца, очень нужно

Да уж...

[Kelny 1 234]

Может предложения напишете: Какую строку нужно сформировать (Например "10x10x20 mm"). Какие возможности должны быть в макросе добавление/удаления добавленых свойств. Ограничения по знаку после запято. Короче пишите что нужно от макроса, может тогда чтонибуть и придумаю .

могу добавить:

Добавление результата в свойства файла.

Изменение единиц измерения.

Ну вобще много чего могу, только мне этого пока не надо, а может и не понадобится

[kkk 280]

Что бы я хотел видеть в макросе:

1. Формат строки - вида 10х10х10. Обозначение единиц измерения не нужно, т.к. по умолчанию идут миллиметры.

2. Соответственно единицы измерения - миллиметры.

3. Точность измерения - один знак после запятой.

4. Добавление результата в свойства файла в виде новой строки "Размеры". (Удаление и последующая вставка мне лично не нужны).

Из области мечтаний:

1. Автоматическая сортировка расположения размеров по убыванию.

2. Автоматическая обработка всех оригинальных деталей прямо в сборке.

[kkk 280]

2Kelny

Прошу прощения за назойливость, но как там дела с макросом?

[Kelny 1 234]

Прошу прощения за назойливость, но как там дела с макросом?

<{POST_SNAPBACK}>

А ты готов начислять мне зарплату?

http://fsapr2000.ru/index.php?show...&gopid=103669

[kkk 280]

Зарплату пока не готов , а вот "Огромное спасибо" скажу с радостью.