关于ScaleEntity的使用

torch · 发表于 2004-7-9 16:05:00

For Each entry In sset
entry.ScaleEntity(Entry.Center,0.5)
Next entry为什么会出现Compile error: Experted:=的错误！
请大侠帮助我指正，谢谢！

雪山飞狐_lzh · 发表于 2004-7-9 17:40:00

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

torch · 发表于 2004-7-9 21:27:00

Circle实体，自然会有center属性

torch · 发表于 2004-7-9 21:29:00

我发现采用以下语句也不行
entry.ScaleEntity Entry.Center,0.5

雪山飞狐_lzh · 发表于 2004-7-9 22:45:00

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

mccad · 发表于 2004-7-9 22:46:00

copy


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

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

torch · 发表于 2004-7-10 07:54:00

谢谢！OK了

crazylsp · 发表于 2013-3-7 11:53:00

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

关于ScaleEntity的使用

发表回复

精选推荐