【转帖】求救：关于cadvba中块插入的问题?
 

求救：关于cadvba中块插入的问题?
www.dimcax.com
求救：关于cadvba中块插入的问题?
如上图所示，我编的块是输入一个直径大小，输入一个文字代号（这段求助中没有写侦错），可以插入一个块。
而我要的结果如左图所示，第一次比如我插入a，大小为3mm,第二次再插入时填b,大小为4mm.两个要是分开的块，但它就是呆在一块，成了一个块，也就是说里面的参照不能自动清除，求助大家都帮我看一下那里的问题。谢谢！
界面如下:
代码如下:
private sub commandbutton1_click()
dim objblock as acadblock
dim blockinspoint(0 to 2) as double
dim objcircle as acadcircle
dim circenpoint(0 to 2) as double
dim radius as double
dim objtext as acadtext
dim objblockref as acadblockreference
on error resume next
blockinspoint(0) = 0#
blockinspoint(1) = 0#
blockinspoint(2) = 0#
set objblock = thisdrawing.blocks.add(blockinspoint, "圆1")
radius = val(textbox1.text) / 2
circenpoint(0) = 0#
circenpoint(1) = 0#
circenpoint(2) = 0#
set objcircle = objblock.addcircle(circenpoint, radius)
dim txtinspoint(0 to 2) as double
txtinspoint(0) = radius#
txtinspoint(1) = radius#
txtinspoint(2) = 0#
set objtext = objblock.addtext(textbox2.text, txtinspoint, 2.5)
me.hide
dim insertpoint as variant
insertpoint = thisdrawing.utility.getpoint(, "请选择点:")
set objblockref = thisdrawing.modelspace.insertblock(insertpoint, "圆1", 1, 1, 1, 0)
zoomall
end sub
像风一样自由