请教一个VBA块的问题

rockrise

不知道如何在定义好的一个块中再插入另一个块?

谢谢~

雪山飞狐_lzh

调用块定义的insertblock方法

rockrise

谢谢楼主

能不能给个用InsertBlock在块中插入块的语句?

laoliu09

RetVal = object.InsertBlock(InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation [, Password]) 
Object
MSITStore:D:\我的CAD\acadauto2006.chm::/idh_modelspace_collection.htm">ModelSpace, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_paperspace_collection.htm">PaperSpace, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_block_object.htm">Block
使用该方法的对象和集合。 
InsertionPoint
Variant[变体] [变体] (三元素双精度数组); 为输入项
该三维WCS坐标指定了插入块到图形中的位置。 
Name
String[字符串]; 为输入项
插入的 AutoCAD 图形文件名称或图块名称。如果为文件名，则必须包含 .dwg 扩展名和任何路径信息以便 AutoCAD 找到该文件。 
Xscale
Double[双精度]; 为输入项
X向的比例。
默认值等于 1.0。必须为正数。 
Yscale
Double[双精度]; 为输入项
Y向的比例。
默认值等于 1.0。必须为正数。 
Zscale
Double[双精度]; 为输入项
Z向的比例。
默认值等于 1.0。必须为正数。 
Rotation
Double[双精度]; 为输入项
旋转角。
默认值等于 0.0 弧度。 
Password
Variant[变体]; 为输入项；可选项
RetVal
MSITStore:D:\我的CAD\acadauto2006.chm::/idh_blockref_object.htm">BlockRef 对象
返回新创建的块参照对象。 
说明 
插入块到其它块中将创建嵌套的块。 
试图带未初始化 Name 参数调用 InsertBlock 方法将产生意外结果。

rockrise

谢谢楼主啊

好久没上网了，到这时候才给你回复.