给个范例给你看看。有兴趣的话研究一下，稍作修改便可作其它用途。 以下这个范例用于从ＰＣ－ＤＭＩＳ中读取测头直径： Sub Main() Dim App As Object Set App = CreateObject("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim MyProbes As Object Set MyProbes = Part.probes MyProbes.Visible = False Dim MyProbe As Object Set MyProbe = MyProbes.Item(1) Dim MyTips As Object Set MyTips = MyProbe.Tips Dim MyTip As Object Set MyTip = MyTips.Item(1) Dim MyDiam As Double MyDiam = MyTip.diam MsgBox (MyDiam) Set MyTip = Nothing Set MyTips = Nothing Set MyProbe = Nothing Set MyProbes = Nothing End Sub

各位大侠 怎样用VB直接从特征提取测量值？用哪个对象（FEATDATA，FEATCMD，COMMAND），具体的程式是怎样的？

谢谢！ 以上明白 但怎样从特征导出形状公差值呢，例如：圆度， 下图的程度错在哪里？ [attachimg]2695[/attachimg]

[b]回复 [url=http://bbs.hexagonmetrology.com.cn/showtopic.aspx?topicid=12402&postid=96379#96379]3楼[color=Olive]ftdjcl[/color]的帖子[/url][/b] 24行是哪一行，你最好不要贴图 上文本

Sub Main() Dim App As Object [color=DarkRed][color=Red] Set App = CreateObject("PCDLRN.Application")[/color] Dim Part As Object Set Part = App.ActivePartProgram Dim MyProbes As Object Set MyProbes = Part.probes MyProbes.Visible = False Dim MyProbe As Object Set MyProbe = MyProbes.Item(1) Dim MyTips As Object Set MyTips = MyProbe.Tips Dim MyTip As Object Set MyTip = MyTips.Item(1) Dim MyDiam As Double MyDiam = MyTip.diam MsgBox (MyDiam) Set MyTip = Nothing Set MyTips = Nothing Set MyProbe = Nothing Set MyProbes = Nothing End Sub

不行啊

也很期待，如何能把测好的报告中的测量值导出来，按编号顺序的导出来，且只导测量值，其它的数据不导出来。 这样就很方便做报告了。DATAPAGE 是可以的，但也很麻烦，还是收费的。

Set App = CreateObject("PCDLRN.Application")这句在我Excel里面为什么错误