如下图中，如何[color=red]让VB开发出来的小程序中的combo下拉框获得pcdmis编辑窗口中的元素[/color]呢？望大侠们不吝赐教！ [attachimg]1570[/attachimg]

吼吼吼！ 刚把问题提出来，自己就搞出来了，原来要循环才可以的！代码贴出： ------------------------------------------------------------------------- Dim App1 As Object Dim part As Object Dim Cmds As Object Dim cmd As Object Private Sub Form_Load() Set App1 = CreateObject("PCDLRN.Application") Set part = App1.ActivePartProgram Set Cmds = part.Commands For Each cmd In Cmds Combo1.AddItem cmd Next cmd End Sub ---------------------------------------------------------------------------- [color=red]但是不太理想，把启动和测尖不相关的命令全拉进来的，现在还请教大虾们，如果我只要点命令显示出来，如何搞？[/color] [attachimg]1571[/attachimg]

to 2楼：在循环中需要判断命令是不是特征，加上这句 If Cmd.IsFeature Then 就可以判断出来是特征了，但是判断点我也不知道啊。 看来还是要学习

哦，原来楼主和2楼是一个人，囧

加一段错误处理代码： -------------------------------------------- Dim App1 As Object Dim part As Object Dim Cmds As Object Dim cmd As Object Private Sub Form_Load() On Error GoTo aaq: Set App1 = CreateObject("PCDLRN.Application") Set part = App1.ActivePartProgram Set Cmds = part.Commands Combo1.Text = "请选择元素" For Each cmd In Cmds Combo1.AddItem cmd Next cmd Exit Sub aaq: MsgBox "只能在pcdmis零件打开时使用本工具！", vbOKOnly, "温馨提示": Unload Me End Sub ---------------------------------------------------

[quote] 原帖由 [b]smallpig[/b] 于 2011-4-28 10:02:00 发表 to 2楼：在循环中需要判断命令是不是特征，加上这句 If Cmd.IsFeature Then 就可以判断出来是特征了，但是判断点我也不知道啊。 看来还是要学习 [/quote]感谢啊，呵呵！ ---------------------------------------------------- Dim App1 As Object Dim part As Object Dim Cmds As Object Dim cmd As Object Private Sub Form_Load() On Error GoTo aaq: Set App1 = CreateObject("PCDLRN.Application") Set part = App1.ActivePartProgram Set Cmds = part.Commands Combo1.Text = "请选择元素" For Each cmd In Cmds If cmd.IsFeature Then Combo1.AddItem cmd End If Next cmd Exit Sub aaq: MsgBox "只能在pcdmis零件打开时使用本工具！", vbOKOnly, "温馨提示": Unload Me End Sub -------------------------------------------------------- [attachimg]1572[/attachimg]

有兴趣的可以参看《实用坐标测量技术》P50，有一个例子。

我来看看P50

楼上，看出来了吗？