强烈渴望版主WOAISHUIJIA解答问题，谢谢

zzhylhao

最近在论坛上学习了许多知识关于VBA的知识。现在希望版主能解决我工作上的一些可以提高效率的方法。 3 ^5 N2 w; G1 a  M一，我建立了一个工作上的很多一比一的图块，现在想通过CAD VBA中程序可以一次性插入在精确点的位置。即是装配。 二，图块是通用的，只是需修改尺寸。尺寸通过计算得出，常规的加减乘除法。 三，图块通的，中介需修改其中一些数据文字。 四，以上三点，能在EXCEL VBA中实现的方法。 五，在EXCELVBA中和CADVBA中编程有什么不同？有没有这方面的资料书，可提供给看一下。谢谢！ 尤其谢谢版主woaishuijia希望能得到你的解答。急盼中0－－－－－－－

woaishuijia

泛泛地说是很难讲清楚的.你还是举一个具体的例子吧.

zzhylhao

第一条的意思：我需要将一些块(所有的块我集中在一个图形中）插入到新图中，通过CAD VBA建立一个下拉菜单，把需要的选中，然后在一副新图产生得到完整的图形。新图插入块的位置通过计算得出。不知是否可以实现？

5 v! {4 u7 P9 k& j4 y5 ]5 E第二点的意思:通过CAD VBA建立相应的窗体，修改图中的标注尺寸，这些尺寸通过计算得出。
; |5 ~) U; v& c& j, S第三点的意思：在EXCEL VBA中修改一幅CAD图中的一些单行文字，使用EXCEL VBA打开一这张图纸，并修改数据（这些数据来源于EXCEL表格中的数据），保存，再关闭CAD的图纸，不关闭CAD软件。

woaishuijia

这些从技术上讲都是可以实现的.
3 d7 p; E, r! q! R% v" o% P从一个文档向另一个文档复制块是很容易的,因为块是命名对象,对它进行检索很方便.在提供了插入点或用于计算插入点的相关参数及一个固定的计算规则,插入块也很简单.
事实上,这个操作可以这样进行:在包含块的原始文档中,插入这些指定的块(插入点随意),然后把这些块参照整体复制到新文档中,再根据提供的或计算得出的插入点去修改这些块参照的位置,最后在原始文档中删除用于复制的块参照.
7 O: \* H& k+ o- W) i! p修改标注文字和单行文字比对块的操作要难一些,它们都不是命名对象,对它们的检索需要提供被检索对象的独一无二的特征,比如位置(一个小的范围)或文字内容等.然后按照这些特征对图形中所有标注和单行文字逐个比对,找到目标后修改就容易了.
, [! s2 A) ]4 w# M5 }但是我对修改标注文字是不赞成的.因为这可能会带来一些很难被发现的不必要的错误.正确的做法是修改标注的参照点.
我不知道你每个图形中零件的尺寸是否一样,如果零件尺寸一样,只是摆放位置不同,那上面的方法是可行的.如果零件的尺寸不一样,而你又不想修改块,只是想修改标注文字,这样的办法就是不可取的.不是技术上做不到,而是这样的方法不好.最好的方法是通过代码在图形上创建并插入块.每个块对应一个函数,需要创建哪个块,就调用哪个函数,根据提供的关键参数创建块,而不是到原始图形中复制回来再修改.