[VBA]站长,关于VBA二次开发一书中第128页,通过复制锁定文字的错误

天龙八部

[VBA]关于VBA二次开发一书中第128页,通过复制锁定文字的错误

在2006版本里,如果建立好图形后在标的话,出错,但如果光只有标注的话,正确,感觉怪怪的,站长大人啊!听说这个程序还是您老人家亲自编写的啊 !

mccad

请说明在哪个步骤出错，出错的提示是什么，这样有便于查找原因。

 

天龙八部

郑老师,你出版的那本VBA二次开发的教程.里面那道通过复制锁定文字的程序,我在2006中运行不正常,如果单独DIMENSION的话,是可以的,但如果画好一个对象,在标注的话就不正确了,弹出错误的提示框,这一小节是你写的吧!是否版本不匹配,前次EFAN写的那个文字程序用多行文字也不行,只能用单行的,AH写的倒没错误,可能他写的那部分太深奥,看不懂的缘故吧!

mccad

看来这个程序在新版本中已经不适用了。问题有：

1.已经做关联标注的对象，在复制时不生成对应的无名块。

2.未关联的标注对象，在做过锁定标注后，重新做标注关联，此时会生成另外的一些标注对象出来，也就证明了锁定标注的程序无法将复制过的对象做彻底的删除。(后台的无名块也要做删除)

对于第2种情况的解决，可以在循环的后面(NEXT前)加上一句：
ThisDrawing.Blocks(BlockCount ).Delete

对于第一种情况，暂未有解决方案，目前只能说，这个程序已经不适用于新版本了。