Перейти к публикации

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


Рекомендованные сообщения

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

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

Ссылка на сообщение
Поделиться на других сайтах


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

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

Ссылка на сообщение
Поделиться на других сайтах

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

mmtb_24.zip

Ссылка на сообщение
Поделиться на других сайтах

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

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

SW2009 SP3.0.

Ссылка на сообщение
Поделиться на других сайтах

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

SW2009 SP3.0.

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

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

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

to Chapaev

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

Syntax (OLE Automation)

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

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

Это VB

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

...

Ссылка на сообщение
Поделиться на других сайтах

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




  • Сообщения

    • maxx2000
      @davidovka я их сразу ссыпаю в TEMP,  в тех что живы нет отметок о создании current_session.pro. Интересно что сам current_session.pro создаётся, но не обновляется дата в отличии от даты модели. Может быть и вправду менял какие нить настройки и забывал сохранить
    • Ahito
    • maxx2000
      т.е. доверять разработчикам оснований нет. Ясно-понятно
    • clavr
      все так и было до 2024 версии. размеры не импортировались. теперь вот в 2024 так нельзя. может где-то в настройках поменять что нужно? все перерыл, пока не нашел
    • arsenev
      Первый свободный номер инструмента   int list $toolnumblist = extract(folder('TOOL'), 'Tool.Number.Value') int $newToolNumb = 1 while member( $toolnumblist, $newToolNumb) {     $newToolNumb = $newToolNumb + 1 } Message Info 'Первый свободный номер инструмента - ' + $newToolNumb     Инструменты с повторяющимися номерами   int list $toolnumbers = extract(folder('tool'),'Number.Value') int $i = remove_duplicates($toolnumbers) string $op = '' foreach $n in $toolnumbers {     string list $names = extract(filter(folder('tool'),'this.Number.Value == "' + $n + '"'),'Name')     if size($names) > 1 {         $op = $op + 'Инструменты с повторяющимся номером T ' + $n + CRLF         foreach $name in $names {             $op = $op + $name + CRLF         }         $op = $op + CRLF     } } message info $op     Удаление выбранного   Макрос, который проверяет тип объекта, а затем позволяет выбрать один и удалять выбранные части. Я связал это с ctrl+d.   string list $rootTypes = {'toolpath','featureset','pattern','boundary','model'} string list $selectedTypes = {} foreach $rt in $rootTypes {     if entity_exists(entity($rt,'')) {         entity $ent = entity($rt,'')         if number_selected($ent.RootType, $ent.Name) > 0 {             int $i = add_last($selectedTypes,$rt)         }     } } if size($selectedTypes) <= 0 {     return } int $index = -1 if size($selectedTypes) == 1 {     $index = 0 } else {     $index = input choice $selectedTypes 'Wich Type to remove?' } if $index != -1 {     String $cmd = 'DELETE ' + $selectedTypes[$index] + ' "' + entity($selectedTypes[$index],'').Name + '" SELECTED'         DoCommand $cmd }
    • PETR_1
      Можно переназначить правую и центральную (колесо) кнопки с помощью бесплатной программы X-Mouse Button Control (есть портабельная версия). Это переназначение будет работать только для компаса.
    • Kelny
      Может изменяемый вами размер импортирован из модели?  Обычно переносилось удержанием левой кнопки мыши, а если сделать двойной клик, то нужно потом выбрать новый объект уже без удержания кнопок мыши.
    • Kelny
      Отключить галочки режима большой сборки. Инструменты-Параметры...-Настройки пользователя-Сборки
    • brigval
      Если не прописали, значит считается, что производственный процесс их изготовления гарантирует качество, достаточное для присвоения литеры. Можно и так посмотреть.   Между прочим, пред вынесением Решения о присвоении литеры проходит "испытания" весь комплект  КД. Разрешат вам не предъявлять часть КД на проверку? Спросите у НК.   И все-таки, если есть Решение о присвоении литеры, надо прочитать, что там сказано. Как сформулировано. Возможно, это снимет все вопросы.
    • cepr
      Есть в Компасе возможность построения зубчатого колеса с углом профиля не 20гр., а 25гр?
×
×
  • Создать...