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

Как печатать разные листы одного чертежа


elteom

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

Garyn

А Вы не пробовали смотреть <noindex>тут</noindex> - есть несколько макросов для печати и там же обсуждение такого же вопроса....

Спасибо SERoz посмотрел сейчас и кое что нашел! надо попробовать. Воистину все новое-это хоршо забытое старое! А ведь казалось что там уже все просмотрено... :doh:
Ссылка на сообщение
Поделиться на других сайтах


Спасибо SERoz посмотрел сейчас и кое что нашел! надо попробовать. Воистину все новое-это хоршо забытое старое! А ведь казалось что там уже все просмотрено... :doh:

Ну и как результ? Проблема решена?

Вот кое-что от меня:

Это модификация макроса "Плоттер" (была тут где-то ссылка) только сделал в VB, поэтому exe-шник.

Печатает чертежи SW формата А3, А4 разной ориентации с "автоповором" на принтер по умолчанию.

Вернее должно печатать - сам опробовать не могу - чернила высохли.

Пробовал только на виртуальный PDFCreator - вроде работает. Интересно было бы опробовать на физическом принтере...

PS. подразумевается принтер А4 - форамт А3 масштабирует на бумагу А4!

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

Ну и как результ? Проблема решена?

Вот кое-что от меня:

Это модификация макроса "Плоттер" (была тут где-то ссылка) только сделал в VB, поэтому exe-шник.

Печатает чертежи SW формата А3, А4 разной ориентации с "автоповором" на принтер по умолчанию.

Вернее должно печатать - сам опробовать не могу - чернила высохли.

Пробовал только на виртуальный PDFCreator - вроде работает. Интересно было бы опробовать на физическом принтере...

PS. подразумевается принтер А4 - форамт А3 масштабирует на бумагу А4!

ssv22

Пробовал Ваш макрос на Panasonic DP-1820E -печатает только 1й лист, 2-го не видно в задании на нечать. Дождусь сисадмина, мож.какие настройки слетели.

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

ssv22

Пробовал Ваш макрос на Panasonic DP-1820E -печатает только 1й лист, 2-го не видно в задании на нечать. Дождусь сисадмина, мож.какие настройки слетели.

Чертеж SW имеет несколько листов? Все ли они выбраны - отображены в списке листов и подсвечены?

У него какой формат бумаги максимальный? А4 или А3?

Локальный или сетевой?

вот еще немного подправленная версия (с автоопределением принтера "по-умолчанию"):

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

Чертеж SW имеет несколько листов? Все ли они выбраны - отображены в списке листов и подсвечены?

У него какой формат бумаги максимальный? А4 или А3?

Локальный или сетевой?

вот еще немного подправленная версия (с автоопределением принтера "по-умолчанию"):

Да все листы выбраны и подсвечены пробовал несколько раз результат одинаковый.

Принтер сетевой формат А3,А4. (в параметрах печати было установлено " в р-р страницы")

Попробую новую версию может попрет.

Хотя проблемы с этим принтером были, печатал с АКАДа и PDF,а Solid не всегда.

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

Да все листы выбраны и подсвечены пробовал несколько раз результат одинаковый.

Принтер сетевой формат А3,А4. (в параметрах печати было установлено " в р-р страницы")

Попробую новую версию может попрет.

Хотя проблемы с этим принтером были, печатал с АКАДа и PDF,а Solid не всегда.

Вот насчет сетевого принтера я не уверен, будет ли правильно работать...

Параметр " в р-р страницы" - устанавливается самим макросом (т.е. программно) только для листов А3, т.е. они масштабируются до А4.

Я то имел ввиду печать именно на принтер А4.

Потом, в настройках принтера у меня стоят параметры:

"Использовать Очередь печати" и "Начинать речатать немедленно"

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

Вот насчет сетевого принтера я не уверен, будет ли правильно работать...

Параметр " в р-р страницы" - устанавливается самим макросом (т.е. программно) только для листов А3, т.е. они масштабируются до А4.

Я то имел ввиду печать именно на принтер А4.

Потом, в настройках принтера у меня стоят параметры:

"Использовать Очередь печати" и "Начинать речатать немедленно"

Этот принтер капризничал с форматом А3 из солида (тот лист который не встал на печать как раз в А3 похоже это старая головная боль.

Надо попробовать на другом HP LaserJet 1020 (формат только А4),но он тоже сетевой,хотя думаю это не на что не влияет.

вот еще немного подправленная версия (с автоопределением принтера "по-умолчанию"):

Попробовал на HP LaserJet 1020 -Все О"КЕЙ и вписал и повернул как надо.:worthy:

Спасибо!!! :clap_1::clap_1::drinks_drunk: Теперь с выводом на А4 можно отдохнуть.

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

...

Попробовал на HP LaserJet 1020 -Все О"КЕЙ и вписал и повернул как надо.:worthy:

Спасибо!!! :clap_1::clap_1::drinks_drunk: Теперь с выводом на А4 можно отдохнуть.

Я рад :-)

Подождем еще отзывов...

PS.

Вот для полной уверенности надо бы проверить так: в чертеже SW сделать 4 листа форматом А4 и А3 книжной и альбомной ориентации каждый...

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

Я рад :-)

Подождем еще отзывов...

PS.

Вот для полной уверенности надо бы проверить так: в чертеже SW сделать 4 листа форматом А4 и А3 книжной и альбомной ориентации каждый...

Я почти так и пробовал 1й А4 книжный,2й А3 альб,осталось попробовать повернет ли А3 книжный...Попробую завтра.
Ссылка на сообщение
Поделиться на других сайтах

А с какими версиями солида работает? И только формат А3? А если А2, А1 или А0?

У меня пишет:

Run-time error '380':

Could not set the ListIndex property. Invalid property value

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

А с какими версиями солида работает? И только формат А3? А если А2, А1 или А0?

У меня пишет:

Run-time error '380':

Could not set the ListIndex property. Invalid property value

SW2009.

Пока эксgериментирую с форматами А4 и А3. Для остальных - это потом. Да и имеет ли смысл, допустим А1/А0 выводить на бумагу А4?

Будет ли там что-то видно? Ну А2 еще может и можно...

Да и тут еще вот ошибки вылезают...

В какой ситуации возникает ошибка:

- сколько листов в чертеже?

- какого формата?

- ориентация?

- порядок листов: какой формат идет первым А4 или А3. Их ориентация?

- какой принтер А4 или А3? Локальный или сетевой?

PS. какую версию "AutoRotPrn" используете - я там две выкладывал. В первой были ошибки.

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

У меня нормально попечаталос.

Чертеж имеет

- Горизонтальный A3

- Вертикальный A4

Пустил чертеж на принтер формата А4.

Получил то, что и надо. Подогнанный под А4 горизонтальный А3.

И повернутый на горизонт А4.

Офегенно ящетаю, спасибо! :clap_1:

******************************************************

Принтер из сети. ОКИ какойто. (гадость кошмарная между нами)

Вот еще вопрос. Раньше стоял другой принтер.

Я его обозвал "Printer A4"

На своей машине я его видел как "Printer A4"

В шаблонах автокада он прописан так же "Printer A4"

Потом было много каих перестановок, потм купили ОКИ этот

Я его по старинке обозвал на машине- хозяйке "Printer A4'

Но когда я посылаю на него, то он теперь обозван как "\\Имя\Printer A4'

Где Имя- имя компа, где он стоит.

Все чертежи потребовали переназначить принтер на "\\Имя\Printer A4'

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

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

...

Принтер из сети. ОКИ какойто. (гадость кошмарная между нами)

Вот еще вопрос. Раньше стоял другой принтер.

Я его обозвал "Printer A4"

На своей машине я его видел как "Printer A4"

В шаблонах автокада он прописан так же "Printer A4"

Потом было много каих перестановок, потм купили ОКИ этот

Я его по старинке обозвал на машине- хозяйке "Printer A4'

Но когда я посылаю на него, то он теперь обозван как "\\Имя\Printer A4'

Где Имя- имя компа, где он стоит.

Все чертежи потребовали переназначить принтер на "\\Имя\Printer A4'

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

В моей проге для определения "принтера по умолчанию" использутется функция WIN API:

Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Public Function GetDefaultPrinter() As String Dim Default_Printer_Name As String

Default_Printer_Name = String(1024, Chr(0))

GetProfileString "Windows", "Device", "", Default_Printer_Name, Len(Default_Printer_Name)

Default_Printer_Name = Replace(Default_Printer_Name, Chr(0), "")

If Len(Default_Printer_Name) > 0 Then Default_Printer_Name = Left(Default_Printer_Name, InStr(1, Default_Printer_Name, ",") - 1)

GetDefaultPrinter = Default_Printer_Name

End Function

Т.е. задействована Библиотека клиента Windows NT BASE API - "C:\WINDOWS\system32\kernel32.dll"

Так, что в какой прогамме(SW, ACAD) как текущий принтер называется - не имеет значени. ИМХО.

2 `ILL`

В справке VB по объекту Printer в описании большинства его параметров, вижу такую приписку:

"ЗамечаниеДействие свойств объекта Printer зависит от драйвера, поставляемого изготовителем принтера. Некоторые установки свойств могут не оказать никакого действия, или несколько различных установок свойств могут дать одинаковый эффект. Установки, если их значения лежат за пределами принятого диапазона, могут вызывать, а могут и не вызывать ошибок. Подробности см. в документации изготовителя драйвера."

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

SW2009.

Пока эксgериментирую с форматами А4 и А3. Для остальных - это потом. Да и имеет ли смысл, допустим А1/А0 выводить на бумагу А4?

Будет ли там что-то видно? Ну А2 еще может и можно...

Да и тут еще вот ошибки вылезают...

В какой ситуации возникает ошибка:

- сколько листов в чертеже?

- какого формата?

- ориентация?

- порядок листов: какой формат идет первым А4 или А3. Их ориентация?

- какой принтер А4 или А3? Локальный или сетевой?

PS. какую версию "AutoRotPrn" используете - я там две выкладывал. В первой были ошибки.

Версия "подправленная", принтер А4 сетевой, открыл в солиде чертеж (2 листа А1 вертикальных), солид 2007..

ЗЫ. Поэтому и спросил про форматы и версию солида..

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

Версия "подправленная", принтер А4 сетевой, открыл в солиде чертеж (2 листа А1 вертикальных), солид 2007..

ЗЫ. Поэтому и спросил про форматы и версию солида..

Нет-нет : "Пока экспериментирую только с форматами А4 и А3"
Ссылка на сообщение
Поделиться на других сайтах

Так, что в какой прогамме(SW, ACAD) как текущий принтер называется - не имеет значени. ИМХО.

Да я н про вашу программу, к ней у меня лично вопросов икаких нету пока что.

Когда я написал пр автокад, я имел в видунастройку листов. Когда один шаблон например А3 использует соответственно принтер А3 .

То название принтера прописано в шаблоне заранее.

Ты добавляешь лист и он уже заточен на свой принтер.

Раньше сетевой принтер виделся без пути к нему, теперь с путем.

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

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

Да я н про вашу программу, к ней у меня лично вопросов икаких нету пока что.

Когда я написал пр автокад, я имел в видунастройку листов. Когда один шаблон например А3 использует соответственно принтер А3 .

То название принтера прописано в шаблоне заранее.

Ты добавляешь лист и он уже заточен на свой принтер.

Раньше сетевой принтер виделся без пути к нему, теперь с путем.

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

Ну, по данному вопросу - я пас - давно в АКАДе не печатал ничего...
Ссылка на сообщение
Поделиться на других сайтах
  • 1 месяц спустя...

Вот была такая тема и что-то меня зантересовал объект "Priner" в VB:

<noindex>http://fsapr2000.ru/index.php?showtopic=32...mp;#entry291433</noindex>

Привет. В чертеже есть несколко листов. А3 и А4

А4- вертикальные. Сжимаются по высоте и печатаются вертикально на горионтальной форматке.

Можно ли настроить листы по разному?

Чота не бросилось в глаза.

Вот я несколько модернизировал существующий макрос. А потом задумался: а нужен-ли он?

Вроде на мой макрос были только положительные "рецензии". Кое-что добавил. Вот начал делать задумался...

Хотелось-бы посоветоваться. С кем угодно.

Прилагаю "пустышку" (т.е. нерабочую прогу - можно только кнопки потыкать)

Все листы, всех чертежей, всех форматов будут смаштабмрованы до указанного и "автопровернуты"...

Это, так сказать, эскиз...

PS. делал под SW2010, запускать: "Печать чертежей SW.EXE"

PPS. если оно кому нужно.

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

ssv22

Честно говоря не понял проблем с печатью разных листов разных форматов в Солиде???? :g:

Поставьте галку - "Индивидуальные настройки листов" (или как-то так) и без проблем можно печатать из одного файла разные листы и А4, и А3 и т.п...

Как раз сейчас так и делаю - сборка, ВС и ВП на А3_гориз., специи на А4_вертик (всё ОК)....

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • Kelny
      Даже при всём при этом оно не всегда корректно работало, так что даже в старых версиях было быстрее удалить размер и потом вставить заново, чем искать эти точки размеров, а потом пытаться их привязать к новому месту.   Возможно это всего лишь глюк новой версии, в последних версиях они похоже штатно закладываются.
    • 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
      Если не прописали, значит считается, что производственный процесс их изготовления гарантирует качество, достаточное для присвоения литеры. Можно и так посмотреть.   Между прочим, пред вынесением Решения о присвоении литеры проходит "испытания" весь комплект  КД. Разрешат вам не предъявлять часть КД на проверку? Спросите у НК.   И все-таки, если есть Решение о присвоении литеры, надо прочитать, что там сказано. Как сформулировано. Возможно, это снимет все вопросы.
×
×
  • Создать...