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

fenchane 发表于 2012-5-28 22:13:42

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

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

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

woaishuijia 发表于 2012-5-28 22:20:01

本帖最后由 woaishuijia 于 2012-5-28 22:23 编辑

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

fenchane 发表于 2012-5-28 22:23:04

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

fenchane 发表于 2012-5-28 22:24:05

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

不知道如何运用代码实现

woaishuijia 发表于 2012-5-29 07:41:51

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

清风明月名字 发表于 2012-5-30 08:41:00

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

页: [1]

明经CAD社区's Archiver

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