• Dima
  • Восстановленный участник
  • На форуме с 8 декабря 2005г.
  • Сообщений: 7
  • Спасибо: 0

Тема: Как узнать програмно сглажена сплайном полилиния или нет?

Подскажите пожалуйста как узнать програмно сглажена полилиния сплайном или нет.

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Как узнать програмно сглажена сплайном полилиния или нет?

Внимательно смотрим на значение Type для полилинии соглсно Help'а:

3DPolyline uses the ac3DPolylineType enum; read-write
acSimple3DPoly
A simple polyline.
acQuadSpline3DPoly
A quadratic B-spline polyline.
acCubicSpline3DPoly
A cubic B-spline polyline.
Polyline uses the acPolylineType enum; read-write
acSimplePoly
A simple polyline.
acFitCurvePoly
A fit curve polyline.
acQuadSplinePoly
A quadratic B-spline polyline.
acCubicSplinePoly
A cubic B-spline polyline.

  • Dima
  • Восстановленный участник
  • На форуме с 8 декабря 2005г.
  • Сообщений: 7
  • Спасибо: 0

Re: Как узнать програмно сглажена сплайном полилиния или нет?

Александр, а не подскажите как допустим это будет выглядеть в процедуре

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Как узнать програмно сглажена сплайном полилиния или нет?

> Dima

Sub Example_GetType()
    Dim ent As AcadEntity
    Dim basePnt As Variant
    Dim retCoord As Variant
    On Error Resume Next
    ThisDrawing.Utility.GetEntity ent, basePnt, "Выберите полилинию "
    ' Make sure the user selected a polyline.
    If err <> 0 Then
        If ent.EntityName <> "AcDbPolyline" Then
            MsgBox "Это не полилиния!"
        End If
        Exit Sub
    End If
    Dim ptype As AcPolylineType
    ptype = ent.Type
    If ptype = acSimplePoly Then
       MsgBox "Простая полилиния"
    ElseIf ptype = acFitCurvePoly Then
       MsgBox "FitCurve-полилиния"
    Else
       MsgBox "Splined-полилиния"
    End If
End Sub

Я не пишу на VBA - так что это только черновик.

  • Dima
  • Восстановленный участник
  • На форуме с 8 декабря 2005г.
  • Сообщений: 7
  • Спасибо: 0

Re: Как узнать програмно сглажена сплайном полилиния или нет?

Александр, большое Вам спасибо.