| Author |
 Topic  |
|
|
Voland
91 Posts |
 Posted - 10/03/2005 : 14:17:53
|
Доброго времени суток всем. Где то тут видел тему подобную, но чтот ни как не могу теперь ее найти :(( видно чтот со мной ни то...
Вобщем проблема такая, подскажите если кто знает. Есть набор шейпов all.vss, нужно программно из этого набора, кинуть шейп с названием ATS на лист чертежа, как это сделать? Всем спасибо!
___ Кто ищет тот найдет __ |
|
|
Tumanov
Russia
1198 Posts |
Posted - 10/03/2005 : 18:54:42
|
Set stnObj = Application.Documents("All.vss")
Set mastObj = stnObj.Masters("ATS")
Set shpObj = ActivePage.Drop(mastObj, 4.25, 5.5)
shpObj.Text = "Hello World!" |
 |
|
|
Voland
91 Posts |
Posted - 10/04/2005 : 11:34:54
|
Ага, спасибо!
Я работаю в Delphi с Drawing Control, если кому интересно, то там этот код выглядит примерно так:
-----
var MyStencil:IVDocument;
MyMasters:IVMasters;
begin
MyStencil:= MyVisioApp.Documents.Add('D:\all.vss');
MyVisioApp.ActiveWindow.Page.Drop(MyStencil.Masters.Item['ATS'], 5, 8);
end
-----
Путь как я понял, желательно указывать полностью....
Теперь другая проблеммка :)) Чтот совсем уж простенькое... не могу программно переключить страницу, вернее сделать другую сраницу активной...
___ Кто ищет тот найдет __ |
|
|
|
mers
Russia
159 Posts |
Posted - 10/05/2005 : 17:37:14
|
ой.. в соседнем попике уже все ответили...
поэтому
<вырезано редактором>
|
Edited by - mers on 10/05/2005 17:41:37 |
|
|
| |
Topic |
|
|
|
All Forums
Как кинуть шейп на лист из vss