Поделюсь информацией по Симатрону 5,0

[alx2108 0]

2UAV

gSuite.WireFrame.CreatePoints PT

Если сделаешь, то поделись с общественностью, плз

<{POST_SNAPBACK}>

Сделал.Получилось замечательно.

Еще сделал:

language=vbscript

dim gSuite

set gSuite = CreateObject("CimESuite.CimSuite")

gSuite.Sketcher.NewSketch

gSuite.Sketcher.CreateArc 0.,0.,10.

gSuite.Sketcher.CloseSketch

А можно ли вставить ( и как?) печать в vbscript ?

[UAV 19]

Сделал.Получилось замечательно.

Печать из файла если сделал - делись текстом! :

А можно ли вставить ( и как?) печать в vbscript ?

Я не знаю vbscript. Так - пару команд. У меня нет док-ии по Vbscript который в Симатроне. А он не совпадает с vbscript который в Word-е и к которому есть документация и по этому от нее мало толку.

Единственно вот еще примерчик:

language=vbscript

str= "C:\Cimatron_Documents\Name.elt"

set gSuite = CreateObject("CimESuite.CimSuite")

gSuite.DM.OpenExistingDoc(str)

'Откроется файл модели с именем Name.elt



STR="Укажите что-нибудь :)"

gSuite.General.SetPrompt(STR)

'Напечатается этот текст в окне Симатрона, где печатаются подсказки 



MsgBox(STR)

'Выскочит окно с сообщением, которое присвоили в STR 



MsgBox "фыываывпролджлж"

'Выскочит окно с сообщением

[alx2108 0]

2UAV

Получился пример чтения из файла координат

точек.

1.Файл D:\zzz.txt

x0 y0 z0

.

.

.

xk yk zk

2.Script

language=vbscript

dim gSuite,fso,ts,str,ss,p(89)

Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

Set ts = fso.OpenTextFile("D:\zzz.txt", ForReading)

k=0

Do While Not ts.AtEndOfStream

str = ts.ReadLine

ls=Len(str)

For i = 1 To ls

t=Mid(str, i, 1)

if t <> " " then

ss=ss&t

else

p(k)=0.0+ss

k=k+1

ss=Null

end if

Next

p(k)=0.0+ss

k=k+1

ss=Null

Loop

ts.Close

Set gSuite = CreateObject("CimESuite.CimSuite")

gSuite.WireFrame.CreatePoints P

gSuite.General.SetPrompt ("The end")

3.Run script

[UAV 19]

alx2108 - Вот спасибо огромное! Все замечательно работает.

[alx2108 0]

Всем симатроновцам привет

Присоединяюсь. Всем симатроновцам привет !

alx2108