-
FlexPro
- Zoom sur FlexPro
- Fonctionnalités & Options
- Domaines d’application
- Tous les avantages
- Nouveau dans FlexPro 2021
- Testez FlexPro gratuitement
- FlexPro View OEM Freeware
- Conseils d’achat
- Login
- Langue
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produits
- News
- Support
- Société
- Emplois
- Contact
- Login
- Langue
- +49 6894 929600
- infoweisang.com
- Google Maps
Von Formelformular zum Konturplott
Accueil > Community > Automation and VBA > Von Formelformular zum Konturplott
- This topic has 1 reply, 2 voices, and was last updated 4 years, 1 month ago by Bernhard Kantz.
-
AuthorPosts
-
August 31, 2020 at 5:47 pm #28264Wiebke MüllerParticipant
Hallo,
ich habe über VBA ein Formelformular erstellt mit dem Ergebnis eines Konturplottes CWT.
Nun möchte ich aus dieses Formelformular ein Diagramm erzeugen welches den Konturplott anzeigt.
Wie kann ich das machen?
Hier der Code womit ich dad Formelformular gemacht habe:
‘Formelblatt aktivieren
Rechn = “XKonturplott”
ActiveDatabase.TaskWindows(fpTaskWindowObjectList).Activate
ActiveDatabase.Selection.SelectObject Rechn
‘Formel aktivieren und das in ” ” dort eintragen
‘_PSpectrum und _Spectrum -> Konturplott erstellen -> CWT
‘Falls DB Normal
ActiveDatabase.ActiveObject.Formula = _
“Dim SourceData = XKorrigieren” & Chr(13) & Chr(10) & _
“If DataType(SourceData) == TYPE_VARIANT Then” & Chr(13) & Chr(10) & _
” Dim _Result = List(SourceData)” & Chr(13) & Chr(10) & _
” Parallel For Each Element _i In SourceData Do” & Chr(13) & Chr(10) & _
” Dim _PSpectrum” & Chr(13) & Chr(10) & _
” _PSpectrum = CWTSpectrum(SourceData.[_i], SPECTRUM_CWT_DB, WAVELET_MORLET, 8.000000000000000, 256n, FALSE, 0.000000000000000, 0.4999999432400000, 0n, 20.00000000000000, 256n)” & Chr(13) & Chr(10) & _
” _Result.[_i] = _PSpectrum” & Chr(13) & Chr(10) & _
” End” & Chr(13) & Chr(10) & _
” Return _Result” & Chr(13) & Chr(10) & _
“Else” & Chr(13) & Chr(10) & _
” Dim _Spectrum” & Chr(13) & Chr(10) & _
” _Spectrum = CWTSpectrum(SourceData, SPECTRUM_CWT_DB, WAVELET_MORLET, 8.000000000000000, 256n, FALSE, 0.000000000000000, 0.4999999432400000, 0n, 20.00000000000000, 256n)” & Chr(13) & Chr(10) & _
” Return _Spectrum” & Chr(13) & Chr(10) & _
“End”Vielen Dank
September 1, 2020 at 8:42 am #28265Bernhard KantzParticipantNeue Objekte (wie 3D-Diagramme) lassen sich mit der .Add-Methode eines Folder-Objekts anlegen. Das neu erzeugte Diagram3D-Objekt hat die Aufzählungseigenschaft Curves, deren Add-Methode fügt einen neuen Kurvenzug (des gewünschten Typs) hinzu. Das neue Surface3D-Objekt besitzt die Eigenschaft DataSets, dessen Eigenschaft DataSet enthält den FPScriptausdruck, welche die Oberfläche beschreibt.
Näheres zum Objektmodell findet man in der Online-Hilfe (im Inhalt) unter Automatisierung von Abläufen > Automatisierung mit FlexPro Visual Basic > Visual Basic-Verzeichnis für FlexPro > Objekte und Auflistungen.
Da der Code stark an jenen erinnert, welche über eine Makroaufzeichnung gewonnen wurde, liegt es nahe, auch die Erzeugung des Diagramms selbst in die Aufzeichnung zu integrieren.
Möglicherweise ist aber die automatische Erzeugung mittels eines Makros zu aufwendig. Es wäre zu prüfen, ob die Verwendung einer Analysevorlage bereits ausreichend ist. Ein entsprechendes Tutorial findet sich in der Hilfe unter Tutorials > Zum Anpassen von FlexPro > Tutorial Vorlagenerstellung.
-
AuthorPosts
- You must be logged in to reply to this topic.