huangyhg

"> 那位高手能帮忙看看这段代码的问题在那里
那位高手能帮忙看看这段代码的问题在那里
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
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.
谢谢版主
我在这里说明一下，我是在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)

__________________
借用达朗贝尔的名言：前进吧，你会得到信心!
[url="http://www.dimcax.com"]几何尺寸与公差标准[/url]