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