Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  VBA und Schriftfeld

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  VBA und Schriftfeld (2711 mal gelesen)
lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 24. Jun. 2003 09:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Leute,

ich habe heute einen besonderen Wunsch:

Ich benötige füe einen Kunden ein ganz spezielles Format der Zeichnungsnummer. Leider passt dies nicht in mein Ablagesystem, das ich für diesen Auftrag natürlich auch benutzen möchte.

Die Idee ist die, eine benutzerdefinierte Variable zu erzeugen, aus meiner Zeichnungsnummer die benötigten Werte extrahieren und dann in diese Variable abzuspeichern. Über einen Eintag im Schriftfeld steht die dann automatisch dort, wo sie hin soll.

So nun zu meinem Problem:

Ich komme mit VBA nicht an die Bauteilnummer (Eigenschaft von Modell) - auf jeden Fall weiß ich nicht wie es geht.

Kann mir da jemand helfen ?

Das Ganze kann man dann ja auch hier posten - Ich denke so was kann man gut brauchen.

------------------
Gruß LBCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

daywa1k3r
Moderator
Softwareentwickler




Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 24. Jun. 2003 09:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für lbcad 10 Unities + Antwort hilfreich

Hi,

hier  hatten wir schon mal was ähnliches.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

VOSTA1
Mitglied
techn. Angestellter


Sehen Sie sich das Profil von VOSTA1 an!   Senden Sie eine Private Message an VOSTA1  Schreiben Sie einen Gästebucheintrag für VOSTA1

Beiträge: 108
Registriert: 23.12.2002

erstellt am: 24. Jun. 2003 09:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für lbcad 10 Unities + Antwort hilfreich

Es muß eine *.iam  bzw. *.ipt geöffnet sein, wenn das Makro abläuft
Makro ist lauffähig und kann so übernommen werden!
Mfg VOSTA1
---------------------------------------
sub Eigenschaften_ipt

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

dim a as string
dim b as string
dim c as string
dim d as string
dim NeueBauteilnummer as string

a = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value
b = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Author").Value
c = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Revision Number").Value
d = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value


Msgbox ("a=  " & a &"  b= " & b & "  c=  " & c &"  d= " & d)

NeueBauteilnummer = "12345678"

oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value =  NeueBauteilnummer

a = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value

Msgbox a

End sub

---------------------------------------------------------------------------------------------

sub Eigenschaften_iam

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

dim a as string
dim b as string
dim c as string
dim d as string
dim NeueBauteilnummer as string

a = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value
b = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Author").Value
c = oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Revision Number").Value
d = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value


Msgbox ("a=  " & a &"  b= " & b & "  c=  " & c &"  d= " & d)

NeueBauteilnummer = "12345678"

oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value =  NeueBauteilnummer

a = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number").Value

Msgbox a

End sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP



Elektrokonstrukteur (m/w/d) EPLAN / Zuken E³
Die besten Köpfe für die unterschiedlichsten Aufgaben zu finden sowie Menschen und Technologien zu verbinden, und zwar täglich aufs Neue - dafür schätzen unsere Kunden FERCHAU. Unterstütze uns:

Elektrokonstrukteur (m/w/d) EPLAN / Zuken E³
Chemnitz
Das ist zukünftig dein Job
  • Planung und Projektierung elektrotechnischer Anlagen und Systeme mit EPLAN P8 oder Zuken E³
  • ...
Anzeige ansehenElektrotechnik, Elektronik
lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3794
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2022
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 24. Jun. 2003 10:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@daywa1k3r,

danke für den schnellen Tipp. Hatte zwar auch schon dort nachgesehen, bin aber nicht so richtig weitergekommen - Bin eben auch nur ein Anwender und kein VBA.Profi.

@VOSTA1,

sieht super aus,

werde es gleich morgen ausprobieren.


Danke.

------------------
Gruß LBCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz