| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Wert aus Eigenschaftsfeld (837 mal gelesen)
|
Akrist Mitglied
Beiträge: 127 Registriert: 05.02.2001 Inventor 6 SP1/2 Windows XP Prof. P4 1700, GF3 1GB RAM
|
erstellt am: 08. Okt. 2003 09:06 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 08. Okt. 2003 09:17 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Hallo Akrist, ich habe doch hier mal was gepostet: Code:
Public Sub test_idw_eig() Dim oDraw As DrawingDocument Dim oProp As Property Dim oPropSet As PropertySet Dim oPropSets As PropertySets Dim i As Integer On Error Resume Next Set oDraw = ThisApplication.ActiveDocument If Err.Number <> 0 Then MsgBox "Irgendwas stimmt nicht. Hab' aber jetzt keine Zeit danach zu suchen. Sorry!", vbCritical, "daywa1k3r" End End If Set oPropSets = oDraw.PropertySets i = 1 For Each oPropSet In oPropSets For Each oProp In oPropSet Debug.Print i & ". "; oProp.Name & " = " & oProp.Value i = i + 1 Next Next End Sub
Die zwei for Schleifen laufen alle Eigenschaften durch und greifen auf Value zu. Der Code ist wirklich leicht an deine Bedürfnisse anzupassen. ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Akrist Mitglied
Beiträge: 127 Registriert: 05.02.2001 Inventor 6 SP1/2 Windows XP Prof. P4 1700, GF3 1GB RAM
|
erstellt am: 08. Okt. 2003 09:34 <-- editieren / zitieren --> Unities abgeben:
Hallo Daywa1k3r. Das geht ja auch alles. Das meine ich aber nicht. Das sind die ganzen Parameter aus den iProps. Ich versuch es mal anders. Wenn ich den Zkopf bearbeite, kann ich ein Eigenschaftsfeld einfügen. Das setze ich dann auf den Typ "Angeforderte Eingabe". Den Wert kann ich ja nur ändern wenn ich dann im Browser mit der rechten Maustaste auf das Schriftfeld klicke und dann "Angeforderte Werte bearbeiten" anklicke. Und den Wert brauch ich. Gruß, Andre
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 08. Okt. 2003 10:03 <-- editieren / zitieren --> Unities abgeben: Nur für Akrist
Ah so Ich glaube hiermit sollte es funktionieren. Code:
TitleBlock.SetPromptResultText Method Method that sets the text that was supplied for a specified title block that contains prompted text. The string displayed within this title block is changed. Syntax SetPromptResultText(DefinitionText As TextBox, NewValue As String) DefinitionText Input TextBox object from the referenced TitleBlockDefinition object. This text box is used to specify which prompted text box to set the text for. NewValue Input String that defines the new text to use for the specified prompted text.
Ich habe aber bis heute sowas noch nicht gemacht, und im Moment ist die Zeit zum testen auch nicht da. Aber probier mal die og. Methode. ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Akrist Mitglied
Beiträge: 127 Registriert: 05.02.2001 Inventor 6 SP1/2 Windows XP Prof. P4 1700, GF3 1GB RAM
|
erstellt am: 08. Okt. 2003 10:10 <-- editieren / zitieren --> Unities abgeben:
|
Akrist Mitglied
Beiträge: 127 Registriert: 05.02.2001 Inventor 6 SP1/2 Windows XP Prof. P4 1700, GF3 1GB RAM
|
erstellt am: 08. Okt. 2003 11:37 <-- editieren / zitieren --> Unities abgeben:
Hallo Daywa1k3r, das ist es leider auch nicht was ich suche. Ich hab noch vergessen das ich den Wert auslesen möchte und in einem Formular (Textfeld) anzeigen, ändern und wieder zurückschreiben möchte. (soooo viel auf einmal) Gruß, Andre Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |