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

关于ScaleEntity的使用

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

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:04

收下谢了研究了一下，不能写entry和具体的定义就OK。
页: [1]
查看完整版本: 关于ScaleEntity的使用