|
Autor
|
Thema: Parameter - Properties (1133 mal gelesen)
|
--angro--
Mitglied
   Beiträge: 16
Registriert: 30.06.2005 Win XP
V5R16,V5R17,V5R18
|
erstellt am: 22. Jan. 2009 15:20  <-- editieren / zitieren -->   Unities abgeben:          
Servus CADler! Weiß jemand wie man Paramter aus dem Baum in die Properties bekommt?
Ich würd mir gerne über "define other Properties" persönliche Eigenschaften definieren um diese mit einem anderen Programm auslesen zu können.
Hab derzeit überhaupt keine Idee wie ich das lösen könnte????  Grüße,
Angro ------------------
CLICK OK TO TERMINATE Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
denyo_1
Moderator
Manager
    
Beiträge: 2506
Registriert: 10.08.2005 HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3
|
erstellt am: 22. Jan. 2009 15:26 <-- editieren / zitieren --> Unities abgeben: Nur für --angro-- 
Hallo Angro, schau dir mal den Codeschnipsel an. Da steckt die Lösung drinnen (die Methode heißt: UserRefProperties) Code:
Dim oProductPara
Set oProduct = oPart.ReferenceProduct
Set oProductPara = oProduct.UserRefProperties
On Error Resume Next
Set oProductMass = oProductPara.GetItem("Masse")
If Err.Number <> 0 Then
On Error GoTo 0
Set oProductMass = oProductPara.CreateDimension("Masse", "MASS", newMass.Value)
Else
oProductMass.Value = newMass.Value
End If
On Error Resume Next
Set oProductWerks = oProductPara.GetItem("Werkstoff")
If Err.Number <> 0 Then
On Error GoTo 0
Set oProductWerks = oProductPara.CreateString("Werkstoff", MaterialBezeichnung)
Else
oProductWerks.Value = MaterialBezeichnung
End If
------------------
MFG Daniel Die KATJA ist halt doch nur ne zickige Französin  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann
Moderator
Konstrukteur
Beiträge: 11780
Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 22. Jan. 2009 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für --angro--
|
--angro--
Mitglied
Beiträge: 16
Registriert: 30.06.2005 Win XP
V5R16,V5R17,V5R18
|
erstellt am: 23. Jan. 2009 14:25 <-- editieren / zitieren --> Unities abgeben:
Danke denyo_1 und bgrittmann --> 10u Jetzt bin noch nicht ganz im Ziel aber schon einen Schritt näher! Ich hab jetzt richtig Gefallen an der Programmierung gefunden.
Vielleicht sollte ich doch einmal ein CatScript Training besuchen? Angro ------------------
CLICK OK TO TERMINATE Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
