[求助]：请问：VBA中如何将数据写入EXCAL

chuan

在AUTOCAD的图上有很多点，我分别求出他们的坐标后，怎样能将这些坐标逐行写入EXCAL，请指点，万分感谢。

efan2000

直接用VBA来控制Excel，首先用CreateObject或者GetObject来返回Excel的应用程序级对象的访问权，然后再用它的对象、属性和方法等来控制将CAD中的数据写入到Excel中。

chuan

是什么函数来控制数据传入EXCAL？如何来控制数据传入后的所在行和所在列

还有个问题：
怎样仅对图上所有的点进行操作。能否使用如Dim Obj as AcadPoint   然后用For Each Obj In ThisDrawing.ModelSpace 来实现

efan2000

要控制EXCAL，就要对它的编程有些了解，它的体系跟差不多，先是Application——WorkBook（工作簿）——WorkSheet（工作表）——Range（单元区域），顺着这个思路再结合帮助文件中的说明，就会很快掌握它的编程。
要对某一类对象进行操作，可以使用选择集，如仅对点操作，可以构造这样的过滤机制：FilterType(0)=0，FilterData(0)="Point"，然后再遍历选择集对其中的每个点进行操作。具体的可能参考相关资料。

chuan

多谢版主。
还有个问题想请教，如果要把一幅AUTOCAD的图分成大小相同的四份，并将他们按比例放大，该如何着手。

efan2000

一张图的大小有好几种分法，有的是根据图纸界限或者自定义的边界，有的是根据仅对象所包含的边界。要视情况，一般是先求出左下角点和右上角点的坐标再进行分割，这时如果分割时碰到实体要打断的还要先进行处理，然后将分割后的小区域内的实体选择，存入一对象数组，再用CopyObjects方法拷贝到另一图纸。

chuan

如果是按照图的中点进行分割，该用什么命令来实现？“如果分割时碰到实体要打断的还要先进行处理”是哪些处理。
还有就是要将分割后的图按比例放大该如何进行

超级寒星

怎么获取图中点的坐标？

efan2000

最初由 超级寒星 发布
[B]怎么获取图中点的坐标？ [/B]

图中点的坐标是指当前可视部分的窗口中点，还是指包含对象的最小外框的中点，还是指图界限的中点？
使用系统变量VIEWCTR可以获取屏幕上当前视图的中心点坐标，包含对象的最小外框时可以使用ZoomExtents先缩放，然后再使用上面的系统变量求的。而图界限则使用ZoomAll缩放(注意：图中的实体不能超出界限，否则取得的是包含对象的外框)。