9111_it-IT

liliconcom

Grafico di contorno con automazione VB<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Ehi, sto cercando di creare un diagramma di contorno da una tabella di dati utilizzando l'automazione VB. Devo specificare "Riempi aree" e impostare i livelli di contorno massimo e minimo. Grazie

Ecco cosa ho finora. Continuo a ricevere un errore di runtime 438 per la riga "Set con = jmpdoc1.CreateContour"

Sub JMP()

Dim jmpdoc1 Come JMP.Document

Oscura myJMP come JMP.Application

   

Dim DT come JMP.DataTable

   

Imposta myJMP = CreateObject("jmp.application")

myJMP.Visible = Vero

Imposta jmpdoc1 = myJMP.OpenDocument("C:\Utenti\jsuls\Desktop\test.csv")

Imposta DT = jmpdoc1.GetDataTable

   

  

Dim con come JMP.Contour

Imposta 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.Lancio

                          

Fine Sub

Re: Grafico di contorno con automazione VB

Siamo spiacenti, per qualche motivo non ho ricevuto una notifica di risposta.La chiamata in Automation per creare un diagramma di contorno è CreateContourPlot, non CreateContour.Hai CreateContourPlot?

Re: Grafico di contorno con automazione VB

Il problema non è aprire il file csv. Posso aprirlo con il codice sopra. Il problema è generare il diagramma di contorno. Posso creare distribuzioni, trame di superficie, ecc. Usando questo codice vb. L'unico problema che si verifica è quando provo a creare un diagramma di contorno. Continuo a ricevere il messaggio di errore "l'oggetto non supporta questa proprietà o metodo".

Re: Grafico di contorno con automazione VB

Per i file di testo, è necessario utilizzare l'interfaccia di importazione del testo per l'automazione.L'applicazione di esempio Text Import nella cartella Samples Automation fornisce un esempio.Per JMP 11, il percorso sarebbe qualcosa come C:\Programmi\SAS\JMP\11\Samples\Automation\Visual Basic Samples\Text Import .NET.

Se apri quell'esempio, vedrai che una sequenza tipica per aprire un file CSV sarebbe qualcosa del tipo:

Dim TI come JMP.TextImport

TI = MyJMP.CreateTextImportObject("c:\programmi\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()