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

天龙八部 · 发表于 2006-9-26 20:24:00

[VBA]关于VBA二次开发一书中第128页,通过复制锁定文字的错误
在2006版本里,如果建立好图形后在标的话,出错,但如果光只有标注的话,正确,感觉怪怪的,站长大人啊!听说这个程序还是您老人家亲自编写的啊 !

mccad · 发表于 2006-9-28 08:12:00

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

天龙八部 · 发表于 2006-9-28 09:09:00

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

mccad · 发表于 2006-9-28 11:07:00

看来这个程序在新版本中已经不适用了。问题有：
1.已经做关联标注的对象，在复制时不生成对应的无名块。
2.未关联的标注对象，在做过锁定标注后，重新做标注关联，此时会生成另外的一些标注对象出来，也就证明了锁定标注的程序无法将复制过的对象做彻底的删除。(后台的无名块也要做删除)
对于第2种情况的解决，可以在循环的后面(NEXT前)加上一句：
ThisDrawing.Blocks(BlockCount ).Delete
对于第一种情况，暂未有解决方案，目前只能说，这个程序已经不适用于新版本了。

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

发表回复

精选推荐