Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 25 ноя 2017, 13:35

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ Сообщений: 113 ]  На страницу Пред.  1, 2, 3, 4, 5, 6
Автор Сообщение
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 29 мар 2017, 17:30 
Не в сети
Новичок

Зарегистрирован: 09 ноя 2016, 12:04
Сообщений: 45
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
красиво, но у меня ругается на отсутствие библиотек...


Вложения:
.JPG
.JPG [ 40.07 Кб | Просмотров: 232 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 29 мар 2017, 17:49 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 433
Использую Visio c: 2008
Очков репутации: 97

Добавить очки репутацииУменьшить очки репутации
Хз.
Попробуй заменить код в своем файле моим кодом. Копипастой.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 29 мар 2017, 17:58 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 433
Использую Visio c: 2008
Очков репутации: 97

Добавить очки репутацииУменьшить очки репутации
DArkadiy, у тебя вроде стоит Visio 2007?
Покажи как выглядит список подключенных библиотек. (Меню Tools > References) в моем файле.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 29 мар 2017, 18:32 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
Shishok писал(а):
Покажи как выглядит список подключенных библиотек.
в файле приложенном в сообщении
Изображение
возможно DArkadiy открыл файл приложенный Shishok, а там в референсах прописана другая версия визио? от этого этот косяк…


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 29 мар 2017, 18:47 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 433
Использую Visio c: 2008
Очков репутации: 97

Добавить очки репутацииУменьшить очки репутации
Вот и я так думаю.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 31 мар 2017, 10:06 
Не в сети
Новичок

Зарегистрирован: 09 ноя 2016, 12:04
Сообщений: 45
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
да у меня 2007


Вложения:
.JPG
.JPG [ 40.77 Кб | Просмотров: 199 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 31 мар 2017, 10:21 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 433
Использую Visio c: 2008
Очков репутации: 97

Добавить очки репутацииУменьшить очки репутации
Вот, тебе надо найти в этом списке то же самое(Microsoft Visio №№ Type Library), только с другим номером. С номером твоей версии, 12.0. И подключить. То есть поставить галочку. А с текущего пункта(Missing: Microsoft Visio 14.0 Type Library) убрать.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 31 мар 2017, 13:03 
Не в сети
Новичок

Зарегистрирован: 09 ноя 2016, 12:04
Сообщений: 45
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
крутота, спасибо огромное


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 31 мар 2017, 13:06 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 433
Использую Visio c: 2008
Очков репутации: 97

Добавить очки репутацииУменьшить очки репутации
Вот, еще подкрутил немного.


Вложения:
model_УПР_v50.xls [760.5 Кб]
Скачиваний: 7
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 31 мар 2017, 13:18 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 433
Использую Visio c: 2008
Очков репутации: 97

Добавить очки репутацииУменьшить очки репутации
Мысли по поводу...
DArkadiy, режет глаз конечно, то что у тебя в коде происходит деление на 25.4. Аж 73 раза. Надо бы от этого избавиться. Правда в методах DrawLine и DrawRectangle от этого не избавишься. :cry:

И еще.
Ты размерные линии позиционируешь задавая абстрактные значения. А в идеале нужно их привязывать к конкретным точкам конкретных шейпов. Правда это увеличит сложность и, возможно, объем кода. :)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 31 мар 2017, 15:47 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
Shishok писал(а):
А в идеале нужно их привязывать к конкретным точкам конкретных шейпов.
этот код добавляет выделенному прямоугольнику точки коннекта по углам и образмеривает его
Код:
Sub AddDimensionLines()
Dim sh As Shape
Set sh = ActivePage.Shapes(1)
Dim a As Shape, i%
Set sh = ActiveWindow.Selection.PrimaryItem
' добавляем точки коннекта
For c = 0 To 3
i = sh.AddRow(visSectionConnectionPts, visRowLast, visTagCnnctPt)
Dim vsoRow As Visio.Row
Set vsoRow = sh.Section(visSectionConnectionPts).Row(i)
'    sh.CellsSRC(visSectionConnectionPts, 0, visCnnctX).RowNameU = "Bottom_Left"
'    sh.CellsSRC(visSectionConnectionPts, 1, visCnnctX).RowNameU = "Bottom_Right"
'    sh.CellsSRC(visSectionConnectionPts, 2, visCnnctX).RowNameU = "Top_Right"
'    sh.CellsSRC(visSectionConnectionPts, 3, visCnnctX).RowNameU = "Top_Left"
Select Case i
    Case 0
    vsoRow.Cell(visCnnctX).FormulaU = "Width*0"
    vsoRow.Cell(visCnnctY).FormulaU = "Height*0"
    Case 1
    vsoRow.Cell(visCnnctX).FormulaU = "Width*1"
    vsoRow.Cell(visCnnctY).FormulaU = "Height*0"
    Case 2
    vsoRow.Cell(visCnnctX).FormulaU = "Width*1"
    vsoRow.Cell(visCnnctY).FormulaU = "Height*1"
    Case 3
    vsoRow.Cell(visCnnctX).FormulaU = "Width*0"
    vsoRow.Cell(visCnnctY).FormulaU = "Height*1"
End Select
    vsoRow.Cell(visCnnctDirX).FormulaU = 0#
    vsoRow.Cell(visCnnctDirY).FormulaU = 0#
    vsoRow.Cell(visCnnctType).FormulaU = visCnnctTypeInward
Next
' добавляем размерную линию слева
Dim d As Shape
Set d = Application.ActiveWindow.Page.Drop(Application.Documents.Item("DIMENG_M.VSS").Masters.ItemU("Aligned even"), 0, 0)
    Dim vsoCPD As Visio.Cell
    Dim vsoCPS As Visio.Cell
    Set vsoCPD = d.CellsU("BeginX")
    Set vsoCPS = sh.CellsSRC(visSectionConnectionPts, 0, visCnnctX)
    vsoCPD.GlueTo vsoCPS
    Set vsoCPD = d.CellsU("EndX")
    Set vsoCPS = sh.CellsSRC(visSectionConnectionPts, 3, visCnnctX)
    vsoCPD.GlueTo vsoCPS
' добавляем размерную линию сверху
Set d = Application.ActiveWindow.Page.Drop(Application.Documents.Item("DIMENG_M.VSS").Masters.ItemU("Aligned even"), 0, 0)
    Set vsoCPD = d.CellsU("BeginX")
    Set vsoCPS = sh.CellsSRC(visSectionConnectionPts, 3, visCnnctX)
    vsoCPD.GlueTo vsoCPS
    Set vsoCPD = d.CellsU("EndX")
    Set vsoCPS = sh.CellsSRC(visSectionConnectionPts, 2, visCnnctX)
    vsoCPD.GlueTo vsoCPS
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 01 апр 2017, 16:27 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 433
Использую Visio c: 2008
Очков репутации: 97

Добавить очки репутацииУменьшить очки репутации
Сделал привязки размерных линий к шейпам. Удалил лишнее деление на 25.4.
Вот, можно скачать файл, если кому надо.

Скачать - Внедренный объект_черчение.zip:
https://yadi.sk/d/qbpj9WI9d2eqF


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: рисование в висио по команде из EXEL
СообщениеДобавлено: 14 апр 2017, 19:45 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
Nil novi sub luna (Ни что не ново под луной - лат.)
Manufacturing – Automated Parts Configuration for Sales Proposals
The problem
Anthro Corporation, a leading manufacturer of modular computer and office furniture, needed to simplify and refine the process it used to design cart and workstation configurations for their customers. Their existing process involved sales reps discussing basic and add-on furniture configurations with customers over the phone or in person. The sales rep then created a customer sales proposal, containing a sketch of the desired furniture configuration. This manual process frequently resulted in a cycle requiring multiple revisions and reviews of the furniture sketch by the customer. In addition, because the sketches were not accurate, it was easy for the sales rep to inadvertently miss adding a necessary part to the sales proposal. Anthro Corp. turned to Visio for a solution.

The solution
The solution was to automate the drawing of the furniture design. Visimation added two of the furniture product lines to a database and developed a Visio application that included a custom template containing a user interface, customized Visio stencils, and SmartShapes symbols representing the modular furniture and associated parts. As shapes are placed on the drawing page, special rules are applied enforcing part sizes, scales, and part dependencies—for example, how the part shapes fit together. The user interface lets the sales rep select the add-ons requested by the customer. Figure 5 shows a form enabling the sales rep to create a customized cart, selecting the types of casters, the width and height of the cart, and the type and color of the cart's surface.
Изображение


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 113 ]  На страницу Пред.  1, 2, 3, 4, 5, 6

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB