Hi,
also eine Idee hab ich jedenfalls wenn ich das richtig verstanden habe ...
also innerhalb von deiner Zeichnung möchtest du die Konfigurationen auflisten ... Ich denke mir das könnte klappen wenn du als erstes
ein swx Textfeld (später im code DIM mNote as Note) einfügst. Diesem Note musst du via TagName einen von dir erzeugtem TagNamen geben(z.b. CONFIGNAMES|TEILENUMMER) TagNames werden immer mitgespeichert wenn diese vergeben wurden...
soviel zu Schritt 1 ...
Hier #2
mit dem folgenden code kannst du die Referenzen auf die ModelDocs bekommen und die configs
Sub maina()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDrawModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim sModelName As String
Dim nDocType As Long
Dim nErrors As Long
Dim nWarnings As Long
Dim cfgNames As Variant
Dim refModel As ModelDoc2
Dim mNote As Note
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
sModelName = swView.GetReferencedModelName
sModelName = LCase(sModelName)
If InStr(sModelName, ".sldprt") Then
nDocType = swDocPART
Else
nDocType = swDocASSEMBLY
End If
Set refModel = swView.ReferencedDocument
Debug.Print refModel.GetConfigurationCount
cfgNames = refModel.GetConfigurationNames
Do While Not mNote Is Nothing
If mNote.TagName = "CFGNAME:" & "TEILENUMMER" Then
mNote.SetText = "hier text aus cfgNames einfügen"
End If
Set mNote = mNote.GetNext
Loop
End Sub
mit einwenig anpassung kannst du so (wegen Teilenummer im TagNamen) eine Verbindung zwischen einem SWX Feld und einem ModelDoc incl configs erzeugen.
<omg ich bin verwirrt ... brauche Feierabend ... >
Gruß
Micha
------------------
http://classicvb.org/petition/
Zitat:
Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP