几何尺寸与公差论坛

 找回密码
 注册
查看: 605|回复: 0

vb -i tried the following code to insert three standard comments we use into

[复制链接]
发表于 2009-4-6 23:17:34 | 显示全部楼层 |阅读模式
vb code help
hi hi
i tried the following code to insert three standard comments we use into programs, saves tying the same thing over and over again but it will only insert the comments at the end of the program and i need it to insert at the current cursor position.
what have i missed out?
">
code:
sub main
dim dmisa as object
dim dmisart as object
dim dmiscommands as object
dim dmiscommand as object
set dmisa = createobject("cdlrn.application")
set dmisart = dmisa.activepartprogram
set dmiscommands = dmispart.commands
commandcount = dmiscommands.count
set dmiscommand = dmiscommands.item(commandcount)
dmiscommands.insertionpointafter dmiscommand

set dmiscommand = dmiscommands.add(set_comment, true)
dmiscommand.marked = true
' set id = c1
retval = dmiscommand.uttext ("c1", id, 0)
' set comment tye = inut
retval = dmiscommand.settogglestring (3, comment_tye, 0)
' set comment item 1 = 'works order no'
retval = dmiscommand.uttext ("works order no", comment_field, 1)
' set reort = yes
retval = dmiscommand.settogglestring (2, outut_tye, 0)

set dmiscommand = dmiscommands.add(set_comment, true)
dmiscommand.marked = true
' set id = c2
retval = dmiscommand.uttext ("c2", id, 0)
' set comment tye = inut
retval = dmiscommand.settogglestring (3, comment_tye, 0)
' set comment item 1 = 'customers order no'
retval = dmiscommand.puttext ("customers order no", comment_field, 1)
' set report = yes
retval = dmiscommand.settogglestring (2, outut_tye, 0)

set dmiscommand = dmiscommands.add(set_comment, true)
dmiscommand.marked = true
' set id = c3
retval = dmiscommand.uttext ("c3", id, 0)
' set comment tye = inut
retval = dmiscommand.settogglestring (3, comment_tye, 0)
' set comment item 1 = 'serial no & date'
retval = dmiscommand.puttext ("serial no & date", comment_field, 1)
' set report = yes
retval = dmiscommand.settogglestring (2, outut_tye, 0)

end sub

pc-dmis cad++ 4.2 mr1
dea mistral
look at you "insertionpointafter" second block...last line
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|几何尺寸与公差论坛

GMT+8, 2024-12-23 10:23 , Processed in 0.036433 second(s), 20 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表