На старый новый год 2018
Фрактал 2
D – новые возможности

Тестируем картинки из файла с bmp –рисунками. Прозрачность включена (стоит галка)

в-окно.jpg

Случайно не работает  –работает последовательно на все линии.

 

На одну линию случайно работает.jpg

На одну линию  опция случайно работает

Файлы только dxf:

Dxf на три линиии случайно как на одну.jpg

На линии в группе работают последовательно (случайно не работают)

 

только_dxf.jpg

Случайно картинки dxf-формата на одну линию – из папки «Петроглифы»

Генератор задается «в слепую»

На одну линию случайно dxf работает2.jpg

Случайно на одну линию из другой  папки первый отрезок не заполняется*

·         Картинка *.dxf может оказаться «короткая», из-за неё произойти «вылет» системы Вектор 

·         Упражнение-задание. Написать макрос перебора в папке файлов формата *.dxf для проверки их корректности  и  упрощения (превращения полилинии в меньшее на ней количества отрезков). По отдельности  с одним файлом (его корректности – файл просто импортировать в Вектор).

·         VbsMsg "файл dxf-преобразовать в меньше количеством в ней отрезков"

·          

·         ' Делаем двойным преобразованием "линия в полилинию" через метод Polyline.FromCurrObj

·         ' 1) Исходную группу (линии или линии в ней),

·         ' 2) Полученную парамтрическую линию  помещаем в группу и опять линия в полилинию 

·          

·         CurrObjNmb = LastNmb

·         n59 =  LastNmb

·         Polyline.FromCurrObj 200

·         CurrObjNmb =  LastNmb

·         n99 =  LastNmb

·         MoveToGroup n99, n99+1, "RRRR"

·         Polyline.FromCurrObj 250

Вело.jpg

Упрощение сложного файла (650 отрезков в 4 линиях) в простой (200 отрезков одну линию)

Упрощенный полученный файл из структуры экспортируем с новым именем, и по нему строить обобщенную трубу и 3D-модель (МК 6.2)

Вело-труба.jpg   Вело-упрощ-тело.jpg

Задав число u линий u-сечений больше,  получите более точный контур

Резюме. В диалоге можно все файлы какой-либо папки  последовательно упростить и сохранить в новой папке. Метода экспортирования нет, поэтому автоматически этот процесс сделать сейчас невозможно. Будем делать метод по типу импорта:  Import "Rnew12.dxf", n. Есть другой вариант: вызывая dxf-файл, стразу его упрощать и строить  по нему трубчатый рисунок

VbsMsg "Упростить файлы dxf в группу и построить на них трубу"

VbsMsg "Файлы группу dxf-файлов - преобразовать в меньшее количество в ней отрезков"

' Делаем двойным преобразованием "линия в полилинию" через метод Polyline.FromCurrObj

' 1) Исходную группу (линии или линии в ней),

' 2) Полученную парамтрическую линию  помещаем в группу и опять линия в полилинию 

'Import "C:\Program Files\MSUN\Vector\Знаки НОВЫЕ\Щуки\Вело.dxf",0

'Import "C:\Program Files\MSUN\Vector\Знаки НОВЫЕ\Щуки\Путин.dxf",0

Import "\\msun.int\files\Папка Tasks (архив)\OИXT\6-футболисты\1 Первый.dxf",0

 

'CurrObjNmb = LastNmb

n59 =  LastNmb

Polyline.FromCurrObj 100

CurrObjNmb =  LastNmb

n99 =  LastNmb

MoveToGroup n99, n99+1, "RRRR"

Polyline.FromCurrObj 166

n94 = LastNmb

 

'Delete n94-1

'Delete n59

 

'Строим трубу

'dubl

' Задаем образующую - окружность

r=0.15

 

Krug.ss p(0,0,0), r, P(0,0,1)

n58 = LastNmb

CurrObjNmb=n94

SetFillColor 255, 0, 0

Truba n58, n94, 55  ' здесь, похоже, ограничения, надо исправить

 

Футболисты-нов-тручатые-1.jpg        Футболисты-нов-тручатые.jpg

Упрощение-труба: слева для одного футболиста и
справа вытаскиваем по одному из группы

 

 

  

 

 

 

·