[ALM]

Привет всем.
Народ, подскажите как можно сделать так что бы из exel-данных autocad строил сплайн кривую. Мож какую прогу надо писать? или что то проще есть?
Спасибо.

[X-Frontier]

Ну разве что, кто напишет макрос переноса данных, и последующего построения кривых на основе интерполяции полиномом Лагранжа. :?

[Лентяй]

Сообщение от ALM Привет всем. Народ, подскажите как можно сделать так что бы из exel-данных autocad строил сплайн кривую. Мож какую прогу надо писать? или что то проще есть? Спасибо.

Все уже нахрен придумано [sm1212] Ышшы на форуме и будет тебе щастя [sm2200].

[DEM]

Лентяй
Злой ты [sm1224]

[Саша_Лебедев]

Народ, подскажите как можно сделать так что бы из exel-данных autocad строил сплайн кривую. Мож какую прогу надо писать? или что то проще есть?

Я не знаю, что такое сплайн-кривая, но я например строил сетку с координатами по данным excel'я так:

Код:

[Выделить все]

Option Explicit
Dim AppCAD As Object
Private Sub CommandButton1_Click()
    Set AppCAD = CreateObject("AutoCAD.Application")
    AppCAD.Visible = True
    
    Set AppCAD = Nothing
    
End Sub

Private Sub CommandButton2_Click()

    Dim lineObj As AcadLine
    
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    
    Dim myRect As Integer
    'рисуем горизонтальные линии
    For myRect = 0 To 400 Step 100

        startPoint(0) = 0#: startPoint(1) = myRect * 1#: startPoint(2) = 0#
        endPoint(0) = 400#: endPoint(1) = myRect * 1#: endPoint(2) = 0#
        
        Set lineObj = ActiveDocument.ModelSpace.AddLine(startPoint, endPoint)
      
   Next myRect
   
   'рисуем вертикальные линии
   For myRect = 0 To 400 Step 100

        startPoint(0) = myRect * 1#: startPoint(1) = 0#: startPoint(2) = 0#
        endPoint(0) = myRect * 1#: endPoint(1) = 400#: endPoint(2) = 0#
        
        Set lineObj = ActiveDocument.ModelSpace.AddLine(startPoint, endPoint)
      
   Next myRect
   
   BlackPoints
   
   'RedPoints
    Sheets("Красные отмтки").Select
    
   Dim mtextObj As AcadMText
   Dim insertPoint(0 To 2) As Double
   Dim width As Double
   Dim textString As String
   Dim RangColl As Byte, rangRow As Byte
   
    For RangColl = 65 To 69
        For rangRow = 1 To 5
         
            insertPoint(0) = (RangColl - 65) * 100 + 5
            insertPoint(1) = 385 - (rangRow - 1) * 100
            insertPoint(2) = 0
            width = 5
        
            textString = Range(Chr(RangColl) & rangRow).Text
    
            Set mtextObj = ActiveDocument.ModelSpace. _
            AddMText(insertPoint, width, textString)
            
            mtextObj.Height = 5
            
        Next rangRow
    Next RangColl
   
   ZoomAll
    
End Sub

Public Sub BlackPoints()
   Dim mtextObj As AcadMText
   Dim insertPoint(0 To 2) As Double
   Dim width As Double
   Dim textString As String
   Dim RangColl As Byte, rangRow As Byte
   
    For RangColl = 65 To 69
        For rangRow = 1 To 5
         
            insertPoint(0) = (RangColl - 65) * 100 + 5
            insertPoint(1) = 395 - (rangRow - 1) * 100
            insertPoint(2) = 0
            width = 5
        
            textString = Range(Chr(RangColl) & rangRow).Text
    
            Set mtextObj = ActiveDocument.ModelSpace. _
            AddMText(insertPoint, width, textString)
            
            mtextObj.Height = 5
            
        Next rangRow
    Next RangColl
End Sub

Клик по первой кнопке - открывает autocad, а по второй - чертит.
Может, будет полезно посмотреть, как брать значения из ячеек ну там всякое

[VVA]

http://www.jefferypsanders.com/autolisp_XL.html

[goga]

А можно ли экселевскую диаграмму-график перекинуть в автокад в виде акадовских примитивов?

[goga]

Сам и разобрался - паст спешал. Получается векторный чертеж.