Макрос на толщину линий

[Chapaev 1]

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

Можно ли как-то макросом сделать замену набора толщин? Причем желательно в папке с чертежами, массово.

[SERoz 201]

Опять макрос???

А что указать толщину линий (или их тип) в свойствах документа уже не работает????

[Chapaev 1]

Работает. Но для каждого чертежа по отдельности. Для одного поправил, открыл другой, а там снова те же настройки, правишь еще раз. И так раз 300...Веселое занятие :)

[ssv22 16]

Работает. Но для каждого чертежа по отдельности. Для одного поправил, открыл другой, а там снова те же настройки, правишь еще раз. И так раз 300...Веселое занятие :)

Да можно и мкросом - чем не способ?

Тока времени сейчас нет - цейтнот, грубо говоря....

[Chapaev 1]

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

[Vadim_ryb_ 77]

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

Качал в августе с cad.de макрос по настройке толщины линий. Сейчас там переделали все, не могу найти куда его дели:((. Поэтому выкладываю то, что тогда взял. Автор Michael Krumnow.

mmtb_24.zip

[Michael_Mira 135]

Качал в августе с cad.de макрос по настройке толщины линий. Сейчас там переделали все, не могу найти куда его дели:((. Поэтому выкладываю то, что тогда взял. Автор Michael Krumnow.

Я не знаю у кого как, но у меня этот макрос не работает или я чего-то не так делаю.

SW2009 SP3.0.

[Vadim_ryb_ 77]

Я не знаю у кого как, но у меня этот макрос не работает или я чего-то не так делаю.

SW2009 SP3.0.

Макрос для SW2004. Видимо за это время часть функций is obsolete:(. Но по крайней мере новый макрос уже не с нуля сочинять:).

[ILL 241]

Под SW2007 запустился, но толщину линий я менять не стал..

[ssv22 16]

Под SW2007 запустился, но толщину линий я менять не стал..

В смысле иакрос не стал менять или "Я не стал менять" толщину линий?

to Chapaev

вот что отвечает за толщины СЕГМЕНТА линиив API SW:

Syntax (OLE Automation)

theWidth = SketchSegment.Width (VB Get property) ' получитть

SketchSegment.Width= theWidth (VB Set property) ' установить

Это VB

дальше см справку

...

[Chapaev 1]

У меня СВ 2009, сп4. Макрос не работает, хотя и запускается.

2 ssv22: спасибо, попробуем.

[ILL 241]

В смысле иакрос не стал менять или "Я не стал менять" толщину линий?

Я не стал нажимать кнопку ОК, потому что в макросе нет возврата на дефолтные настройки, пришлось бы потом

 обратно старые значения восстанавливать..

[Vadim_ryb_ 77]

Я не стал нажимать кнопку ОК, потому что в макросе нет возврата на дефолтные настройки, пришлось бы потом

 обратно старые значения восстанавливать..

В 2006 - все работает. в 2009 - запускается и отрабатывает, но что отрабатывает - непонятно. Много изменений в 2008 было.

В описании макроса сказано, что он разработан для изменения толщины линий для печати больших чертежей на малом формате.

Есть три настройки + значения заданные в системе.