_

VBA dla Inventora 9

Forum poświęcone aplikacjom takim jak Inventor, Solid Edge, SolidWorks... czyli nowoczesnym narzędziom do modelowania.

VBA dla Inventora 9

Postprzez zorba29 » paź 23, 2005 08:07

Mam kłopot ze wstawianiem nowo stworzonych właściwsci dla części do tabelki rysunkowej.

Opis.

Private Sub CommandButton1_Click()

Dim objpropertysets As PropertySets
Dim objpropertyset As PropertySet

Dim index As Integer

Set objpropertysets = ThisApplication.ActiveDocument.PropertySets

On Error GoTo dalej
objpropertysets.Add ("Metzeler:)
dalej:

Set objpropertyset = objpropertysets("DANE")

If Err Then GoTo dalej2
objpropertyset.Add " ", "Autor"
objpropertyset.Add " ", "Nazwa"
objpropertyset.Add " ", "Data"

dalej2:

objpropertyset.Item(1).Value = "Michal"
objpropertyset.Item(2).Value = "INVENTOR 9"
objpropertyset.Item(3).Value = 13.10.1975"

End Sub

Powyższy kod tworzy nowe PROPERTYSET o nazwie "DANE" oraz 3 właściwości (PROPERTY)
- Imię
- Nazwa
- Data
w pliku części (ipt.)

Po wstawieniu tej części do rysunku dostępne stają się te właściwości na liscie właściwości tabliczki rysunkowej
- Właściwości - Model
- Własciwości - Rysunek
- Właściwosci rysunku
- Wlasciwosci arkusza
- Wartosc wprowadzana

- DANE
- Imie
- Nazwa
- Data

Powstaje tylko jeden problem rysunek nie widzi wartości tych właściwości. Pomimo iż w czesci wprowadziłem ich wartości na:
Imię = "Michal"
Nazwa = "INVENTOR 9"
Data = "13.11.1975"
nie wypełnia tymi wartościami tych właściwości. DLACZEGO??

Co zrobic aby tabelka rysunkowa przyjela je.


Pozdrawiam
zorba29
 
Posty: 9
Dołączył(a): paź 23, 2005 07:48

Powrót do Modelowanie 3D

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników

cron