XData mit VBA ändern nicht möglich (Autodesk/AutoCAD VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: XData mit VBA ändern nicht möglich (1691 mal gelesen)
Siegi1 Mitglied Beiträge: 9 Registriert: 15.03.2005 ACAD Map5, Windows XP Prof. ACAD VBA	erstellt am: 15. Mrz. 2005 12:04 <-- editieren / zitieren --> Unities abgeben: Hallo an alle! Ich arbeite mit ACADMap 2002 und VBA. Ich habe versucht XData Einträge zu ändern, habe aber in der Hilfe nirgens eine möglichkeit gefunden. Ich kann diese nur auslesen (GetXData) oder neu erstellen (SetXData). Wenn ich versuche den gewünschten Eintrag zu ändere den ich mit GetXData auslese, wird dieser neu Wert nich übernommen. Ich hoffe es kann mir jemand helfen. Gruß Siegfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Abele Mitglied Beiträge: 71 Registriert: 09.06.2004	erstellt am: 15. Mrz. 2005 14:40 <-- editieren / zitieren --> Unities abgeben: Nur für Siegi1 Hallo, kann Dir leider im Moment nicht 100%tig helfen, da ich kein AutoCAD zum probieren da habe. Aber schau mal nach ob es eventuell eine Update-Funktion in der Liste gibt. Meinetwegen z.B. Variable.update Viele Grüße Ralph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Abele Mitglied Beiträge: 71 Registriert: 09.06.2004 SWX2005 / SP2	erstellt am: 15. Mrz. 2005 14:45 <-- editieren / zitieren --> Unities abgeben: Nur für Siegi1 Hi nochmal, muß mich korrigieren. Update bringt nichts. In der Hilfe steht bei den Datenfeldern "output only" also "nur Ausgabe". Wird dann woll heißen das Du die Daten auf dem Weg nicht ändern kannst. Gruß Ralph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Karsten HST Mitglied Bauingenieur Beiträge: 54 Registriert: 22.04.2003	erstellt am: 15. Mrz. 2005 15:49 <-- editieren / zitieren --> Unities abgeben: Nur für Siegi1 XDaten kannst Du ändern, indem Du zunächst die Daten auslist. Dim OutType() as Integer, OutValue() as Variant object.GetXData "Test", XDType, XDValue anschließend die entsprechenden Daten änderst Redim OutType(Ubound(XDType)) as Integer Redim OutValue(Ubound(XDType)) as Variant For i= 0 To Ubound(XDType) OutType(i)=XDType(i) OutValue(i)=XDValue(i) Next OutValue(1) = "Irgendetwas" und abschließend die geänderten Daten zurückschreibst. object.SetXData OutType, OutValue Du musst allerdings darauf achten, das der Datentyp dem tatsächlichen Datenfeld entspricht. Wenn also dem Datenfeld eine Zeichenfolge zugeordnet werden soll, muß Du auch den entsprechenden Code (ich glaube 1000) dem Type-Datenfeld zuweisen. OutType(1) = 1000 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Siegi1 Mitglied Beiträge: 9 Registriert: 15.03.2005 ACAD Map5, Windows XP Prof. ACAD VBA	erstellt am: 17. Mrz. 2005 16:08 <-- editieren / zitieren --> Unities abgeben: Hallo an alle! Die Lösung von Karsten funktioniert genauso wie ich mir das wünsche. Danke für die rasche Hilfe! Grüsse Siegfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)