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

fenchane · 发表于 2012-5-28 22:13:00

小弟刚接学VBA
我有一个简单的功能需要实现，
对当前文件的对像全选，
然后以0,0,0为基点缩小10倍．
怎么实现，我看了一下scaleEntity这个函数好像不适用．

woaishuijia · 发表于 2012-5-28 22:20:00

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

fenchane · 发表于 2012-5-28 22:23:00

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

fenchane · 发表于 2012-5-28 22:24:00

我现的想法是先建立一个选择集，
把所有对像加入选择集，这个我会操作．
然后对选择集进行定点缩放操作．
不知道如何运用代码实现

woaishuijia · 发表于 2012-5-29 07:41:00

copy

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

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

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

发表回复

精选推荐