9111_fr-FR

liliconcom

Tracé de contour avec VB Automation<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Hé, j'essaie de créer un tracé de contour à partir d'une table de données en utilisant l'automatisation VB. Je dois spécifier "Remplir les zones" et définir les niveaux de contour maximum et minimum. Merci

Voici ce que j'ai jusqu'à présent. Je continue à avoir une erreur d'exécution 438 pour la ligne "Set con = jmpdoc1.CreateContour"

Sous JMP()

Dim jmpdoc1 As JMP.Document

Dim myJMP As JMP.Application

   

Dim DT As JMP.DataTable

   

Set myJMP = CreateObject("jmp.application")

monJMP.Visible = Vrai

Set jmpdoc1 = myJMP.OpenDocument("C:\Users\jsuls\Desktop\test.csv")

Définir DT = jmpdoc1.GetDataTable

   

  

Dim avec As JMP.Contour

Définir con = jmpdoc1.CreateContour

con.LaunchAddY ("Z")

con.LaunchAddX ("X")

con.LaunchAddX ("Y")

con.FillAreas (True)

con.SpecifyContours(5.0,20.0,6.0,True)

con.Launch

                          

Sous-titre de fin

Re: Tracé de contour avec VB Automation

Désolé, pour une raison quelconque, je n'ai pas reçu de notification de réponse.L'appel dans Automation pour créer un tracé de contour est CreateContourPlot, pas CreateContour.Avez-vous CreateContourPlot?

Re: Tracé de contour avec VB Automation

Le problème n'est pas d'ouvrir le fichier csv. Je peux l'ouvrir avec le code ci-dessus. Le problème est de générer le tracé de contour. Je peux créer des distributions, des tracés de surface, etc. en utilisant ce code vb. Le seul problème qui se produit est lorsque j'essaie de créer un tracé de contour. Je continue à recevoir le message d'erreur "l'objet ne prend pas en charge cette propriété ou cette méthode"

Re: Tracé de contour avec VB Automation

Pour les fichiers texte, vous devez utiliser l'interface d'importation de texte pour l'automatisation.L'exemple d'application Text Import dans votre dossier Samples Automation donne un exemple.Pour JMP 11, l'emplacement serait quelque chose comme C:\Program Files\SAS\JMP\11\Samples\Automation\Visual Basic Samples\Text Import .NET.

Si vous ouvrez cet exemple, vous verrez qu'une séquence typique pour ouvrir un fichier CSV serait quelque chose comme :

Dim TI comme JMP.TextImport

TI = MyJMP.CreateTextImportObject("c:\program files\sas\jmp\11\samples\import data\Book1.csv", 10000)

TI.SetEndOfFieldOptions(JMP.jmpTIEndOfFieldConstants.tiComma)

TI.SetEndOfLineOptions(JMP.jmpTIEndOfLineConstants.tiCRLF)

TI.FirstLineIsData(True)

Doc = TI.OpenFile()