JMP OLE：如何将图例添加到双变量<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />我无法弄清楚如何通过OLE在我的双变量图表中显示图例。JSL OLE中的文档很少（我是唯一一个这样做的人吗？）。有人能指出我正确的方向吗？在它的当前状态下，它将按列显示图形和颜色代码。我需要做的只是显示图例。
这是我的代码（VBscript）：
'初始化JMP
Dim MyJMP，JMPDoc，DT，DT2，WidthTable，FrameBox
设置MyJMP = CreateObject（“JMP.Application”）
MyJMP.Visible = true
设置JMPDoc = MyJMP.OpenDocument（“MyFile.csv”）
'将文档转换为数据表
设置DT = JMPDoc.GetDataTable
'选择宽度数据（高和低）
DT.SelectRowsWhere“CHART_SUBSET”，rowSelectEquals，rowSelectExtendCurrent，“TARGET = HIGH”
DT.SelectRowsWhere“CHART_SUBSET”，rowSelectEquals，rowSelectExtendCurrent，“TARGET = LOW”
设置WidthTable = DT.subset
WidthTable.ColorByColumn（ “SPC_ENTITY”）
WidthTable.MarkerByColumn（ “SPC_ENTITY”）
“********
'创建双变量图表
“********
昏暗的Biv
设置Biv = WidthTable.Document.CreateBivariate
Biv.LaunchAddY（ “SPC_CHART_VALUE”）
Biv.LaunchAddX（ “SPC_TXN_DATE”）
Biv.LaunchAddBy（ “SPC_CHART_SUBSET”）
Biv.FitLine
Biv.Launch
FrameBox = Biv.GetGraphicItemByType（“框架框”，1）
Biv.FrameBoxAddGraphicsScript 1，“行图例（：SPC_ENTITY）”
Biv.FrameBoxSetMarkerSize 1,4
JMP OLE：如何将图例添加到双变量嗨Maltman：
全能的RunCommand（）函数可以让你轻松地在JMP中直接进行交互式对话，... 然后，如果你捕获脚本，很容易从自动化方面，从VBA，或Perl，Python或R等提交...
最好，
-Matt
公共子测试（）
'初始化JMP
Dim MyJMP，JMPDoc，DT，DT2，WidthTable，FrameBox
设置MyJMP = CreateObject（“JMP.Application”）
MyJMP.Visible = True
设置JMPDoc = MyJMP.OpenDocument（“C：/ temp / Big Class.jmp”）
'将文档转换为数据表
设置DT = JMPDoc.GetDataTable（）
'选择宽度数据（高和低）
DT.SelectRowsWhere“age”，rowSelectEquals，rowSelectExtendCurrent，“12”
DT.SelectRowsWhere“age”，rowSelectEquals，rowSelectExtendCurrent，“13”
设置WidthTable = DT.Subset（）
WidthTable.ColorByColumn（“name”）
WidthTable.MarkerByColumn（“sex”）
“********
'创建双变量图表
“********
Dim str As String
str =“Bivariate（”_
＆“Y（：重量），”_
＆“X（：height），”_
＆“Fit Line（{Line Color（{213,72,87}）}），”_
＆“SendToReport（”_
＆“派遣（”_
＆“{}，”_
＆“”“Bivar Plot”“，”_
＆“FrameBox，”_
＆“{标记大小（4），行传奇（”_
＆“名称，颜色（1），颜色主题（”“JMP默认”“），”_
＆“Marker（0），”_
＆“标记主题（”“”“），”_
＆“连续刻度（0），”_
＆“反向比例（0），”_
＆“排除的行（0）”_
＆“）}”_
＆“）”_
＆“）”_
＆“）;”
Debug.Print（str）
MyJMP.RunCommand（str）
结束子
JMP OLE：如何将图例添加到双变量如果有人能提供一些见解，仍然在寻找一些帮助。
我试过这样的东西，但它不起作用：
Biv.LaunchAddJSL“行传奇（：SPC_ENTITY，color（1），Marker（1））;”
谢谢
