Dim pcd_app As PCDLRN.Application Dim pcd_partprogram As PCDLRN.PartProgram Dim pcd_command As PCDLRN.Command Dim pcd_commands As PCDLRN.Commands Set pcd_app = CreateObject("pcdlrn.application") pcd_app.Visible = True Set pcd_partprogram = pcd_app.ActivePartProgram pcd_partprogram.Visible = True Set pcd_commands = pcd_partprogram.Commands Set pcd_command = pcd_commands.Add(CONST_INT_POINT, True) pcd_command.PutText "PT15", ID, 0 pcd_command.PutText "PT1", REF_ID, 1 pcd_command.PutText "PT2", REF_ID, 2 pcd_command.ReDraw

Dim pcd_app As PCDLRN.Application Dim pcd_partprogram As PCDLRN.PartProgram Dim pcd_command As PCDLRN.Command Dim pcd_commands As PCDLRN.Commands Set pcd_app = CreateObject("pcdlrn.application") pcd_app.Visible = True Set pcd_partprogram = pcd_app.ActivePartProgram pcd_partprogram.Visible = True Set pcd_commands = pcd_partprogram.Commands Set pcd_command = pcd_commands.Add(CONST_MID_POINT, True) pcd_command.PutText "PT15", ID, 0 pcd_command.PutText "PT1", REF_ID, 1 pcd_command.PutText "PT2", REF_ID, 2 pcd_command.ReDraw

Object,Event and Method are 3 basic things in VB. I think you need to understand them a little bit better before going for scripting. For example,to set all the objects properly for PC_Dmis you need to do this: Dim pcd_app As Object Set pcd_app = CreateObject("pcdlrn.application") Dim pcd_partprogram As Object Set pcd_partprogram = pcd_app.ActivePartProgram Dim Cmds As Object Set Cmds = pcd_partprogram.commands Dim Cmd As Object Because "Object" is a data type but "PCDLRN.Application" is not so you can't define something to that. ".Add" is a Method so you can't set to it. I'm not 100% sure about what you're trying to do. Sorry, my Chinese typing is slow and I'm in a hurry. Hope this will give you some hints.

我有發一個程式供你參考,不過,要用excel vba打開!

谢谢版主 我在这里说明一下，我是在VB里编的不是在DMIS本身所带的编辑器里，请看下面的代码粗体部分以上都可以运行，粗体部分不能运行。 Dim pcd_app As PCDLRN.Application Dim pcd_partprogram As PCDLRN.PartProgram Dim pcd_command As PCDLRN.Command Dim pcd_commands As PCDLRN.Commands Private Sub Command1_Click() Set pcd_app = CreateObject("pcdlrn.application") pcd_app.Visible = True Set pcd_partprogram = pcd_app.ActivePartProgram pcd_partprogram.Visible = True Set pcd_commands = pcd_partprogram.Commands Set pcd_command = pcd_commands.Add(DIMENSION_2D_DISTANCE, True) pcd_command.PutText "s12", ID, 0 pcd_command.PutText "1", REF_ID, 1 pcd_command.PutText "2", REF_ID, 2 pcd_command.PutText "xAXIS", REF_ID, 3 pcd_command.ReDraw Set pcd_command = pcd_commands.Add(DIMENSION_START_LOCATION, True) pcd_command.PutText "s13", ID, 0 pcd_command.PutText "2", REF_ID, 0 pcd_command.ReDraw Set pcd_command = pcd_commands.Add(DIMENSION_X_LOCATION, True) pcd_command.ReDraw Set pcd_command = pcd_commands.Add(CONST_MID_POINT, True) pcd_command.PutText "s15", ID, 0 pcd_command.PutText "1", REF_ID, 1 pcd_command.PutText "2", REF_ID, 2 End Sub

谢谢各位版主,我的问题解决了。要加下面一句代码 Set pcd_command = pcd_commands.Add(DIMENSION_END_LOCATION, True)