51 Ответ от EgorVe (3 года 1 месяц назад)

  • EgorVe
  • Участник
  • Автор темы
  • Неактивен
  • Стаж: 9 лет 3 месяца
  • Сообщений: 2 116
  • Репутация: [ 41 | 1 ]

Re: Сколько стоит сделать макрос на эксель

moskovkin пишет:

LINE   
  5  E4            номер   
330  1F            Программный указатель (Soft-pointer ID/handle)  словаря-владельца
100  AcDbEntity
  8  0             слой
  6  K5LT_BASIC    тип линии
62  5             цвет
420  255
370  60
100  AcDbLine

10  -7.0          Х-координата начальной точки 
20  -42.5         Y-координата начальной точки
30  0.0           Z-координата начальной точки
11  7.0           Х-координата конечной точки   
21  -42.5         Y-координата конечной точки
31  0.0           Z-координата конечной точки

как это выглядит в файле :
"
LINE
  5
E4
330
1F
100
AcDbEntity
  8
0
  6
K5LT_BASIC
62
     5
420
      255
370
    60
100
AcDbLine
10
-7.0
20
-42.5
30
0.0
11
7.0
21
-42.5
31
0.0
  0
"

это кусок текста вставляете в файл меняете только цифры нач. и конечн. точек
на прямоугольник нужно четыре таких фрагмента
по-моему, больше в файле можно ничего не оставлять  slightly_smiling_face

Это не удобно и долго.

Фрезеровка МДФ, ЛДСП, Слэбов.

52 Ответ от alex1 (3 года 1 месяц назад)

  • alex1
  • Участник
  • Неактивен
  • Стаж: 14 лет 9 месяцев
  • Сообщений: 5 802
  • Репутация: [ 198 | 0 ]

Re: Сколько стоит сделать макрос на эксель

best-best пишет:

кто за 500 делает скрипты в ехеле?  нужно 5 штук по 500

всё зависит от задания.

EgorVe пишет:

Т.е. можно из экселя сразу создать DXF?

Скрипт берёт цифры из A1 и B1 (и далее, пока ячейка из столбца A не окажется пустой) и записывает в текстовый файл

Осталось разобраться с форматом dxf, что там ещё нужно писать

Function SaveDXFfile() As Boolean
    On Error Resume Next: Err.Clear
    Open "C:\Temp\x.dxf" For Output As #1

    Set currentCell1 = Worksheets(1).Range("A1")
    Set currentCell2 = Worksheets(1).Range("B1")
    i = 1
    Do While Not IsEmpty(currentCell1)

       Print #1, Trim(currentCell1.Value)
       Print #1, Trim(currentCell2.Value)
       
       Set nextCell1 = currentCell1.Offset(1, 0)
       Set currentCell1 = nextCell1
       Set nextCell1 = currentCell2.Offset(1, 0)
       Set currentCell1 = nextCell2
    Loop
    
    Close #1
    SaveDXFfile = Err = 0
    
End Function

Отредактировано alex1 (, 3 года 1 месяц назад)

96О-9сорак1-48-осемнацать

53 Ответ от Hanks (3 года 1 месяц назад)

  • Hanks
  • Hanks
  • Участник
  • Неактивен
  • Откуда: СФО
  • Стаж: 8 лет 4 месяца
  • Сообщений: 9 355
  • Репутация: [ 134 | 5 ]

Re: Сколько стоит сделать макрос на эксель

EgorVe пишет:

Это не удобно и долго.

да ладно чем то даже на ассемблер смахивает, все интереснее чех hex писать  slightly_smiling_face

54 Ответ от EgorVe (3 года 1 месяц назад)

  • EgorVe
  • Участник
  • Автор темы
  • Неактивен
  • Стаж: 9 лет 3 месяца
  • Сообщений: 2 116
  • Репутация: [ 41 | 1 ]

Re: Сколько стоит сделать макрос на эксель

В идеале должно быть так
изображение_2021-02-24_113805

Фрезеровка МДФ, ЛДСП, Слэбов.

55 Ответ от Hanks (3 года 1 месяц назад)

  • Hanks
  • Hanks
  • Участник
  • Неактивен
  • Откуда: СФО
  • Стаж: 8 лет 4 месяца
  • Сообщений: 9 355
  • Репутация: [ 134 | 5 ]

Re: Сколько стоит сделать макрос на эксель

EgorVe пишет:

В идеале должно быть так
изображение_2021-02-24_113805

ну вот главное же результат, а как и на чем написано абсолютно пофигу конечному юзеру  slightly_smiling_face

56 Ответ от EgorVe (3 года 1 месяц назад)

  • EgorVe
  • Участник
  • Автор темы
  • Неактивен
  • Стаж: 9 лет 3 месяца
  • Сообщений: 2 116
  • Репутация: [ 41 | 1 ]

Re: Сколько стоит сделать макрос на эксель

Hanks пишет:
EgorVe пишет:

В идеале должно быть так
изображение_2021-02-24_113805

ну вот главное же результат, а как и на чем написано абсолютно пофигу конечному юзеру  slightly_smiling_face

Конечному юзеру нужно максимально просто. Дабы уменьшить вероятность ошибки.

Фрезеровка МДФ, ЛДСП, Слэбов.

57 Ответ от Hanks (3 года 1 месяц назад)

  • Hanks
  • Hanks
  • Участник
  • Неактивен
  • Откуда: СФО
  • Стаж: 8 лет 4 месяца
  • Сообщений: 9 355
  • Репутация: [ 134 | 5 ]

Re: Сколько стоит сделать макрос на эксель

EgorVe пишет:

Конечному юзеру нужно максимально просто. Дабы уменьшить вероятность ошибки.

в таком случае лучше использовать другие инструменты, хотя не все знают как подружить пару тройку программ  slightly_smiling_face
как вариант например HTML5 + JavaScript + Canvas
по итогу получаем кросс платформенное приложение

Отредактировано Hanks (, 3 года 1 месяц назад)

58 Ответ от samec (3 года 1 месяц назад)

  • samec
  • Участник
  • Неактивен
  • Стаж: 16 лет 1 месяц
  • Сообщений: 4 952
  • Репутация: [ 118 | 1 ]

Re: Сколько стоит сделать макрос на эксель

EgorVe пишет:

открывает Корел и рисует по этим данным прямоугольники

а зачем корел - если нужен dxf файл? Там же обычный текстовик, формат и структура которого разжевана в сети.
Бери из табилцы данные, да записывай сразу в файл, как надо.
И корел покупать не придётся  slightly_smiling_face

Много очень нужных вещей тут

59 Ответ от tcup (3 года 1 месяц назад)

  • tcup
  • tcup
  • Участник
  • Неактивен
  • Откуда: Барнаул
  • Стаж: 9 лет 5 месяцев
  • Сообщений: 3 480
  • Репутация: [ 65 | 1 ]

Re: Сколько стоит сделать макрос на эксель

PufonBarn пишет:

Про Пик Балмера слашал?

Теперь - да)
Если кому интересно быть творчески продуктивным, попробуйте "интервальное голодание", например с одним приёмом пищи в день

60 Ответ от alex1 (3 года 1 месяц назад)

  • alex1
  • Участник
  • Неактивен
  • Стаж: 14 лет 9 месяцев
  • Сообщений: 5 802
  • Репутация: [ 198 | 0 ]

Re: Сколько стоит сделать макрос на эксель

Function SaveDXFfile() As Boolean
    On Error Resume Next: Err.Clear
    Set currentCell1 = Worksheets(1).Range("A4")
    Open Trim(currentCell1.Value) For Output As #1

    Set currentCell1 = Worksheets(1).Range("A8")
    Set currentCell2 = Worksheets(1).Range("B8")
    Set currentCell3 = Worksheets(1).Range("C8")
    ' Тут надо писать заголовок
    i = 1
    Do While Not IsEmpty(currentCell1)

       j = 1
       Do While j < currentCell1.Value
          ' Тут надо что-то писать в файл

          Print #1, Trim(currentCell2.Value)
          Print #1, Trim(currentCell3.Value)
          j = j + 1
          ' возможно, и тут надо писать в файл что-то
          
       Loop
       
       Set nextCell1 = currentCell1.Offset(1, 0)
       Set currentCell1 = nextCell1
       Set nextCell1 = currentCell2.Offset(1, 0)
       Set currentCell2 = nextCell1
       Set nextCell1 = currentCell3.Offset(1, 0)
       Set currentCell3 = nextCell1
    Loop
    
    Close #1
    SaveDXFfile = Err = 0
    
End Function
96О-9сорак1-48-осемнацать

61 Ответ от moskovkin (3 года 1 месяц назад)

  • moskovkin
  • Частник
  • Неактивен
  • Стаж: 16 лет 2 месяца
  • Сообщений: 5 640
  • Репутация: [ 115 | 0 ]

Re: Сколько стоит сделать макрос на эксель

EgorVe пишет:
moskovkin пишет:

LINE   
  5  E4            номер   
330  1F            Программный указатель (Soft-pointer ID/handle)  словаря-владельца
100  AcDbEntity
  8  0             слой
  6  K5LT_BASIC    тип линии
62  5             цвет
420  255
370  60
100  AcDbLine

10  -7.0          Х-координата начальной точки 
20  -42.5         Y-координата начальной точки
30  0.0           Z-координата начальной точки
11  7.0           Х-координата конечной точки   
21  -42.5         Y-координата конечной точки
31  0.0           Z-координата конечной точки

как это выглядит в файле :
"
LINE
  5
E4
330
1F
100
AcDbEntity
  8
0
  6
K5LT_BASIC
62
     5
420
      255
370
    60
100
AcDbLine
10
-7.0
20
-42.5
30
0.0
11
7.0
21
-42.5
31
0.0
  0
"

это кусок текста вставляете в файл меняете только цифры нач. и конечн. точек
на прямоугольник нужно четыре таких фрагмента
по-моему, больше в файле можно ничего не оставлять  slightly_smiling_face

Это не удобно и долго.

ручками?
конечно неудобно... )))
но вы же хотите это навесить на эксель  slightly_smiling_face

Отредактировано moskovkin (, 3 года 1 месяц назад)