关于CAD基于vba二次开发的问题

PRivate SUb commandbutton24_click()dim a as stringdim b as stringdim c as stringdim d as stringdim e as stringdim f as stringdim g as stringdim h as stringdim i as string'设定以上a—i为字符dim varret as variantdim pt1(0 to 2) as doubledim dCC as aCADblockreference'设定一个自定点,为非标准使用if label6 = '平头加硬自攻' thena = 'zg'e = 'd:\yz_zCAD\tk\azg\'end ifif label6 = '圆头加硬自攻' thena = 'bybz'e = 'd:\yz_zCAD\tk\byzg\'end ifif label6 = '平头公制螺丝' thena = 'pg'e = 'd:\yz_zCAD\tk\cpg\'end ifif label6 = '圆头公制螺丝' thena = 'yg'e = 'd:\yz_zCAD\tk\dyg\'end ifif label6 = '平头不锈钢自攻' thena = 'pbz'e = 'd:\yz_zCAD\tk\epbz\'end ifif label6 = '圆头不锈钢自攻' thena = 'ybz'e = 'd:\yz_zCAD\tk\fybz\'end ifif label6 = '机米螺丝' thena = 'jm'e = 'd:\yz_zCAD\tk\gjm\'end if'根据设定当前螺丝的种类来决定a与e的字串符文字c = textbox1.textif textbox1.text = '' thenc = label9.captionelselabel9.caption = textbox1.textlabel7.caption = textbox1.textend if'如果输出入框为空，则忽略输入框，如果输入框非空，则显示输入框文本b = label8.captiond = a + b + cf = '_'g = 'x'i = '.DWg''设定各字母的值，以后路径及判定用>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> thisdraWing.sendcommand 'orthomode 0' & vbCR thisdraWing.sendcommand '-insert' & vbCR thisdraWing.sendcommand h & vbCR thisdraWing.sendcommand '0,0,0 1 1 0 ' thisdraWing.sendcommand 'move l 0,0,0 '此段是在以后的一段代码,CAD执行CAD标准命令,我想直接改为用vba中的插入模块进行调用,整个函要如何改呢?你是不是这个意思,在按扭上不能用呀SUb zhinsertingablock() dim dCC as aCADblockreference dim VR as variant dim po(0 to 2) as doubleVR = utility.getpoint(, '请指定放置点: ')po(0) = VR(0)po(1) = VR(1)po(2) = VR(2)set dCC = thisdraWing.modelspace.insertblock _(insertionpnt, 'd:\001.DWg', 1#, 1#, 1#, 0)end SUb<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 参看:http://user.qzone.qq.com/307862408/blog/1236749778