关于ScaleEntity的使用

torch

For Each entry In sset


entry.ScaleEntity(Entry.Center,0.5)


Next entry



为什么会出现Compile error:                 Experted:=的错误！


请大侠帮助我指正，谢谢！

雪山飞狐_lzh

选择集里是什么实体？都有Center属性么？

torch

Circle实体，自然会有center属性

torch

我发现采用以下语句也不行


entry.ScaleEntity Entry.Center,0.5

雪山飞狐_lzh

我这里没问题，贴完整一点的代码

mccad

2. Sub temp()
3.        Dim Entry As AcadCircle
4.        For Each Entry In ThisDrawing.ModelSpace
5.                Entry.ScaleEntity Entry.Center, 0.5
6.        Next Entry
7. End Sub

Sub temp()        Dim Entry As AcadCircle        For Each Entry In ThisDrawing.ModelSpace                Entry.ScaleEntity Entry.Center, 0.5        Next Entry End Sub

搞不清楚为什么不行，以上这个程序如果在整个图都是圆的情况下可以正常。

torch

谢谢！OK了

crazylsp

收下谢了研究了一下，不能写entry和具体的定义就OK。