• Илья
  • Восстановленный участник
  • На форуме с 24 октября 2003г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Не могу получить свойство Сenter

dim x as double
x = -55
For Each Item In adoc.ModelSpace
    x = Item.Center(0)
Next Item

есть несколько arc'ов и circl'ов, но x не меняется!

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Не могу получить свойство Сenter

Option Explicit
Option Base 0
Option Compare Text
Sub qqq()
Dim acadObj As AcadEntity
Dim circleObj As AcadCircle
Dim arcObj As AcadArc
Dim x, x0 As Double
x0 = -55
For Each acadObj In ThisDrawing.ModelSpace
    Select Case acadObj.ObjectName
        Case "AcDbCircle"
            Set circleObj = acadObj
            x = circleObj.Radius
        Case "AcDbArc"
            Set arcObj = acadObj
            x = arcObj.Radius
        Case Else
            x = x0
    End Select
    Debug.Print x
Next
Set acadObj = Nothing
Set circleObj = Nothing
Set arcObj = Nothing
End Sub