SAPR-ART
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Autocad 2011 - Elecctrical. VBA. Как в PlotToFile передать переменные, чтобы он их мог "прочесть"?

Autocad 2011 - Elecctrical. VBA. Как в PlotToFile передать переменные, чтобы он их мог "прочесть"?

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 07.02.2018, 15:31 #1
Autocad 2011 - Elecctrical. VBA. Как в PlotToFile передать переменные, чтобы он их мог "прочесть"?
tmttm
 
Регистрация: 14.08.2017
Сообщений: 5

tmttm вне форума Вставить имя

Расположение папки:
C:\Users\User\Desktop\PDF

Переменная состоящая из текста вбиваемого руками в окно программы, атрибута блока и номера листа.
Код:
[Выделить все]
     strFileName = "Okno.PDF_save.Text + att(Номер_чертежа).TextString" + CStr(n)
где
Okno.PDF_save.Text = C:\Users\User\Desktop\PDF
att(Номер_чертежа).TextString = имя чертежа из блока
CStr(n) = номер листа

Если пишу команду:
Код:
[Выделить все]
     ThisDrawing.Plot.PlotToFile strFileName
То файл сохраняется в мои документы с именем "Okno.PDF_save.Text + att(Номер_чертежа).TextString" + CStr(n)

Если путь вбиваю в ручную для strFileName, т.е.:
Код:
[Выделить все]
     strFileName = "C:\Users\User\Desktop\PDF" + CStr(n)
     ThisDrawing.Plot.PlotToFile strFileName
то Файл сохраняется на рабочий стол с именем PDF1, PDF2 и т.д.

Собственно сам вопрос. Как сделать, чтобы PlotToFile адекватно воспринимал мой бред с переменными и направлял файл на путь истинный?

Последний раз редактировалось tmttm, 08.02.2018 в 10:37. Причина: Изменение заголовка
Просмотров: 1092
 
Непрочитано 07.02.2018, 15:37
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 35,440


Язык? Версия ACAD?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 08.02.2018, 09:32
#3
tmttm


 
Регистрация: 14.08.2017
Сообщений: 5


язык - VBA, версия ACAD - 2011 Electrical
tmttm вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 08.02.2018, 09:44
#4
trir


 
Регистрация: 18.12.2010
Сообщений: 2,749


Код:
[Выделить все]
 strFileName = Okno.PDF_save.Text + "\\" + att(Номер_чертежа).TextString + CStr(n)
это ещё без учёта расширения
trir вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 08.02.2018, 10:00
#5
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 35,440


Цитата:
Сообщение от tmttm Посмотреть сообщение
язык - VBA, версия ACAD - 2011 Electrical
А в заголовке указать- не судьба?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 08.02.2018, 10:14
#6
tmttm


 
Регистрация: 14.08.2017
Сообщений: 5


Цитата:
Сообщение от trir Посмотреть сообщение
Код:
[Выделить все]
strFileName = Okno.PDF_save.Text + "\\" + att(Номер_чертежа).TextString + CStr(n)
VBA не реагирует на эту строку, т.е. не отправляет на печать. Пробовал по разному:
Код:
[Выделить все]
strFileName = "Okno.PDF_save.Text" + "\\" + "att(Номер_чертежа).TextString" + CStr(n)
strFileName = "Okno.PDF_save.Text + "\" + att(Номер_чертежа).TextString" + CStr(n) (тут выдал ошибку на "\\" пришлось заменить на "\")
strFileName = "Okno.PDF_save.Text + \\" + att(Номер_чертежа).TextString + CStr(n)
Ничего не вышло
tmttm вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 08.02.2018, 10:26
#7
trir


 
Регистрация: 18.12.2010
Сообщений: 2,749


strFileName = Okno.PDF_save.Text + "\" + att(Номер_чертежа).TextString + CStr(n)
trir вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 08.02.2018, 10:39
#8
tmttm


 
Регистрация: 14.08.2017
Сообщений: 5


Цитата:
Сообщение от trir Посмотреть сообщение
strFileName = Okno.PDF_save.Text + "\" + att(Номер_чертежа).TextString + CStr(n)
Забыл указать, что так я тоже пытался указывать, все равно PlotToFile не отправляет на печать.
tmttm вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 08.02.2018, 10:41
#9
trir


 
Регистрация: 18.12.2010
Сообщений: 2,749


какое значение в strFileName?

нафига такие страдания, когда есть подшивки?
trir вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 08.02.2018, 10:52
#10
tmttm


 
Регистрация: 14.08.2017
Сообщений: 5


Похоже понял в чем причина, att(Номер_чертежа).TextString пустой и из-за этого strFileName принимает "пустое" значение. А я голову ломал в чем дело.
Спасибо за помощь, буду копать в этом направлении.
tmttm вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Autocad 2011 - Elecctrical. VBA. Как в PlotToFile передать переменные, чтобы он их мог "прочесть"?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставка блока с палитры из внешнего файла, если путь к файлу вычисляется mkung AutoCAD 20 23.01.2017 17:38
Разное отображение одного и того же файла на двух разных компьютерах, на обоих win7 x64 Autocad2014. Внутри темы скрины и сам файл. Прошу помощи m0bil AutoCAD 4 19.08.2015 11:30
MS Word Нужен скрипт для копирования с одновременной заменой части текста Солидворкер Прочее. Программное обеспечение 27 27.11.2012 15:52
Lisp. Как создать при помощи кода, два файла связанных ссылками Yura Agafonov LISP 11 13.11.2012 11:03
Пропало диалоговое окно сохранения файла в AutoCAD 2007 tigercron Вертикальные решения на базе AutoCAD 3 03.09.2009 12:58

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||