求助：一个简单功能的实现

fenchane

小弟刚接学VBA
我有一个简单的功能需要实现，

对当前文件的对像全选，
然后以0,0,0为基点缩小10倍．

怎么实现，我看了一下scaleEntity这个函数好像不适用．

woaishuijia

何以见得不适用?
"对当前文件的对像全选"就应该先创建选择集,用全选模式选择,然后用"for each......next"循环遍历选择集,对其中的图元对象逐个使用"ScaleEntity"方法缩放.

fenchane

我也不是十分理解．看了一下说明好像要先定义OBJECT内型，
我这OBJECT有线，也有实体．

fenchane

我现的想法是先建立一个选择集，
把所有对像加入选择集，这个我会操作．
然后对选择集进行定点缩放操作．

不知道如何运用代码实现

woaishuijia

1. Dim SS As AcadSelectionSet, E As AcadEntity, P(2) As Double
   
2. Set SS = ThisDrawing.SelectionSets.Add("SS")
   
3. SS.Select acSelectionSetAll
   
4. For Each E In SS
   
5.     E.ScaleEntity P, 0.1
   
6. Next
   
7. SS.Delete

Dim SS As AcadSelectionSet, E As AcadEntity, P(2) As Double<br /> Set SS = ThisDrawing.SelectionSets.Add("SS")<br /> SS.Select acSelectionSetAll<br /> For Each E In SS<br />     E.ScaleEntity P, 0.1<br /> Next<br /> SS.Delete

清风明月名字

谢谢楼主，很有实际意义啊，下载了