【原创】再续Pro/E的二次开发

usrmsg.txt如下所示：
USER Menu
showdialog
#
#
USER Menu Help
show dialog created by user
#
#

对话框资源文件mydlg.res如下所示：
!UI对话框示例程序资源文件:Example5_3.res
(Dialog mydlg
    (Components
        (SubLayout                      Layout1)!子布局1
        (SubLayout                      Layout2)!子布局2
    (Label                          image)  !提示图
    (CheckButton                    CheckEditSet)
        (Separator                      Separator1)
        (PushButton                     OK)
        (PushButton                     Cancel)
    )
    (Resources
        (OK.TopOffset          4)
        (OK.BottomOffset        4)
        (OK.LeftOffset          4)
        (OK.RightOffset          4)        
    (OK.Bitmap                      "cl_ok")
    (OK.Label                       "OK")
  
        (Cancel.TopOffset        4)
        (Cancel.BottomOffset      4)
        (Cancel.LeftOffset        4)
        (Cancel.RightOffset        4)        
        (Cancel.Bitmap                  "cl_cancel")
    (Cancel.Label                   "Cancel")
    (image.Bitmap             "example5_3.gif")
    (CheckEditSet.Label       "允许修改")
        (CheckEditSet.Set         True)
        (.Label                         "Example")
    (.Focus                         "OK")
    (.DefaultButton                 "OK")
    (.StartLocation                  5) !中心
        (.Layout
            (Grid (Rows 1 1 1) (Cols 1)
          (Grid (Rows 1) (Cols 1 1)
                    Layout1
                    (Grid (Rows 1 1) (Cols 1)
                       Layout2
             (Grid (Rows 1) (Cols 1 1)
                image
              CheckEditSet
                       )
          )
        )
        Separator1
        (Grid (Rows 1) (Cols 1 1)
                    OK
                    Cancel
                )
            )
        )
    )
)
  
(Layout Layout1 !设计参数子布局
    (Components
        (Label                          Label_D1)
        (Label                          Label_D2)
      (Label                          Label_L1)
      (Label                          Label_L2)
       
  
    
         (SpinBox                       SpinBoxD1)
         (SpinBox                       SpinBoxD2)
         (SpinBox                       SpinBoxL1)
         (SpinBox                       SpinBoxL2)
      
    )
  
    (Resources
      (Label_D1.AttachLeft              True)         
        (Label_D1.LeftOffset              4)
    (Label_D1.Label                   "D1")
    (Label_D1.Bitmap                  "dynmod_diam")
  
    (Label_D2.AttachLeft              True)         
        (Label_D2.LeftOffset              4)
    (Label_D2.Label                   "D2")
    (Label_D2.Bitmap                  "dynmod_diam")
  
    (Label_L1.AttachLeft              True)         
        (Label_L1.LeftOffset              4)
    (Label_L1.Label                   "L1")
    (Label_L1.Bitmap                  "dynmod_linear")
  
    (Label_L2.AttachLeft              True)         
        (Label_L2.LeftOffset              4)
    (Label_L2.Label                   "L2")
    (Label_L2.Bitmap                  "dynmod_linear")
  
    
  
    (SpinBoxD1.AttachLeft         True)         
    (SpinBoxD1.TopOffset          4)
        (SpinBoxD1.BottomOffset       4)
        (SpinBoxD1.LeftOffset         4)
        (SpinBoxD1.RightOffset        4)
    !(InputPanel_D1.Columns            3)
        (SpinBox.InputType          2)
        (SpinBox.Digits             2)
  
    (SpinBoxD2.AttachLeft         True)         
    (SpinBoxD2.TopOffset          4)
        (SpinBoxD2.BottomOffset       4)
        (SpinBoxD2.LeftOffset         4)
        (SpinBoxD2.RightOffset        4)
    !(InputPanel_D2.Columns            3)
        (SpinBoxD2.InputType          2)
        (SpinBoxD2.Digits             2)
  
    (SpinBoxL1.AttachLeft         True)         
    (SpinBoxL1.TopOffset          4)
        (SpinBoxL1.BottomOffset       4)
        (SpinBoxL1.LeftOffset         4)
        (SpinBoxL1.RightOffset        4)
    !(InputPanel_L1.Columns            3)
        (SpinBoxL1.InputType          2)
        (SpinBoxL1.Digits             2)
      
    (SpinBoxL2.AttachLeft         True)         
    (SpinBoxL2.TopOffset          4)
        (SpinBoxL2.BottomOffset       4)
        (SpinBoxL2.LeftOffset         4)
        (SpinBoxL2.RightOffset        4)
    !(InputPanel_L2.Columns            3)
        (SpinBoxL2.InputType          2)
        (SpinBoxL2.Digits             2)
  
      
    
    (.TopOffset                 4)
        (.BottomOffset             4)
        (.LeftOffset             4)
        (.RightOffset             4)
    (.Decorated                     True)
    (.Label                     "设计参数")
        (.Layout
            (Grid (Rows 1 1 1 1) (Cols 1 1)
                Label_D1
        SpinBoxD1                 
                Label_D2
        SpinBoxD2                 
                Label_L1
        SpinBoxL1
                Label_L2
        SpinBoxL2
               
            )
        )
    )
)
  
(Layout Layout2 !参数表子布局
    (Components
        (List                            List1)
    )
    (Resources
    (List1.SelectionPolicy       1)
        (List1.VisibleRows         5)
    (List1.Columns                   12)
    (List1.ListType                  1)
    (List1.ColumnLabel               "D1  D2  L1  L2")
        (List1.TabStops                  3 6 9 12)
  
        (.AttachTop             True)
    (.TopOffset               4)
        (.BottomOffset           4)
        (.LeftOffset           4)
        (.RightOffset           4)
    (.Decorated                      True)
    (.Label                          "参数表")
        (.Layout
            (Grid (Rows 1) (Cols 1)
        List1
      )
    )
    )
)

编译连接通过后在Pro/E中进行如下操作：
Utilities>Auxiliary Applications>Register，选择vc files\Example\protk.dat
点击AuxiliaryApplications对话框中的Start，

开始

可以看到自己做的菜单show dialog了，点击它，就可以看到对话框了

不知道为什么程序中有些括号变成了小人头
大家看程序时把它相应的换成括号就行 了
不便之处请见谅

是啊，好多人头，建议把对应的文件压缩在一起发上来。这样也不会出错。

压缩文件

proe怎么实现连续对话框？？

请教：在usrcreatesection()中能用参数方程表示不规则曲线吗？或者用吗办法？