Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  einzelne Parameter über Message-Box anzeigen?

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:  einzelne Parameter über Message-Box anzeigen? (2429 mal gelesen)
admincd
Mitglied



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

Beiträge: 57
Registriert: 01.07.2004

P4 2,2GHz 3GB Windows 2000 Pro
PNY Quadro 980XGL
2x EIZO 22" Röhren
Inventor Series 10 Mechanical 2006
ACAD Mechanical 6

erstellt am: 26. Jul. 2005 12:11    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,
könnte mir bitte jemand bei folgendem problem helfen:

ich möchte über menü-schaltflächen oder buttons parameterwerte aus den benutzerparametern über eine messsagebox ausgeben.
gibts da irgendwas wo ich nur noch das vba-script anpassen muss?

vielen dank für antworten schonmal...

grüsse

christoph

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

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: 27. Jul. 2005 08:55    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 admincd 10 Unities + Antwort hilfreich

Hi christoph,

auslesen geht ja irgendwie so:

    sDisplayName = oDrawDoc.DisplayName
    sFullName = oDrawDoc.FullFileName
    sPartListName = Left$(sDisplayName, Len(sDisplayName) - 4) + ".csv"
    SPartListPath = Left$(sFullName, Len(sFullName) - Len(sDisplayName))
   
    'MsgBox Chr(13) & Chr(10) + SPartListPath + Chr(13) & Chr(10) + sPartListName + Chr(13) & Chr(10)
       


und lesen der iProperties steht  hier

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

admincd
Mitglied



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

Beiträge: 57
Registriert: 01.07.2004

P4 2,2GHz 3GB Windows 2000 Pro
PNY Quadro 980XGL
2x EIZO 22" Röhren
Inventor Series 10 Mechanical 2006
ACAD Mechanical 6

erstellt am: 27. Jul. 2005 10:50    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

danke für die antwort,

ich bin mir nicht sicher ob es das ist was ich brauche, die ausgabe sollte im inventor erfolgen, mir gings darum, wie ich eine einzelne zeile aus der parameterliste über ein script als msgbox (über vba) anzeigen lassen kann. ich denke das ist relativ einfach, wenn man vba beherrscht...was ich leider nicht tue, bei mir reichts um bestehende vba-scripte anzupassen...daher kann ich auch nicht viel mit dem iproperties-script aus deinem link anfangen....hmmmm...

trotzdem nochmals danke,

gruss,

christoph

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: 27. Jul. 2005 12:59    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 admincd 10 Unities + Antwort hilfreich

Sowas wie im September 2003?

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

FX64 Software Solutions
Mold&More Software Solutions

[Diese Nachricht wurde von daywa1k3r am 27. Jul. 2005 editiert.]

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: 28. Jul. 2005 10:21    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 admincd 10 Unities + Antwort hilfreich

Hallo,
ich denke das ist es, was gesucht wird.

+++++++++++++++++++++++++++++++++++++++++++++++
Sub Benutzer_parameter()
'Dim oDoc As partDocument ' je nach Dokumenttyp (ipt oder iam)einstellen
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim pcount As Integer
pcount = oDoc.ComponentDefinition.Parameters.UserParameters.Count
Dim text As String
Dim Mldg As String
Dim Pvalue As String
Dim Punit As String
Dim Pname As String
Dim leer1 As Integer
Dim leer2 As Integer
Dim Faktor As Double

For i = 1 To pcount Step 1

    Punit = oDoc.ComponentDefinition.Parameters.UserParameters.Item(i).Units
       
    Select Case Punit
        Case "grd": Faktor = 180 / 3.14159265
        Case "mm": Faktor = 10
        ' usw.
    End Select
    Pvalue = oDoc.ComponentDefinition.Parameters.UserParameters.Item(i).Value * Faktor
    Pvalue = Format(Pvalue, "###0.000")
    'MsgBox Pvalue
    Pname = oDoc.ComponentDefinition.Parameters.UserParameters.Item(i).Name
    leer1 = 30- Len(Pname)
    leer2 = 20 - Len(Pvalue)
    Pname = Pname & Space(leer1)
    Pvalue = Space(leer2) & Pvalue
    text = Pname & "  : " & Pvalue & " [" & Punit & "]"
    Mldg = Mldg & Chr(10) & text

Next i

Dim Titel As String
    Titel = "Benutzerparameter von " & oDoc.FullFileName
    x = MsgBox(Mldg, vbOK, Titel)


End Sub
+++++++++++++++++++++++++++++++
MFG

[Diese Nachricht wurde von VOSTA1 am 28. Jul. 2005 editiert.]

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