[CDR 2017-2021] Скрипт "треугольник" из Corel X6 в 2020

[Cutter]

Добрый день, есть необходимость строить треугольники по заданным размерам, вручную несложная процедура, но их много.
Нашёлся скрипт "trianglecreator" для Corel X6, но применять его нужно в Corel 2020, что не удаётся.
Возможно ли скорректировать и запустить на Corel 2020?
(Чайник в скриптах)

 

[DukereD]

Добрый день, есть необходимость строить треугольники по заданным размерам, вручную несложная процедура, но их много.
Нашёлся скрипт "trianglecreator" для Corel X6, но применять его нужно в Corel 2020, что не удаётся.
Возможно ли скорректировать и запустить на Corel 2020?
(Чайник в скриптах)

все прям разные разные нужны? или одинаковые по форме, но разные по размеру?

 

[Cutter]

все прям разные разные нужны? или одинаковые по форме, но разные по размеру?

Все разные - Разные углы, разные длины сторон.

 

[_MBK_]

Вообще то это макрос.
А что, код закрыт?

 

[DukereD]

Вообще то это макрос.
А что, код закрыт?

код открыт но в странной форме он там )
в виде внешнего .CSC файла.
такой метод уже не работает в корелел.
ну а вопрашающему похоже все равно в каком он виде ) он ни в каком ничего не поймет. ))

 

[dastin]

А что, код закрыт?

код изумителен
есть очень аскетичный gms

Sub Start()
OpenCorelScriptFile("C:\Program Files\Corel\CorelDRAW Graphics Suite X6\Draw\GMS\TriangleCreatorX61.csc").Play
End Sub

ну а всё остальное в этом csc

 

[DukereD]

код изумителен
есть очень аскетичный gms

Sub Start()
OpenCorelScriptFile("C:\Program Files\Corel\CorelDRAW Graphics Suite X6\Draw\GMS\TriangleCreatorX61.csc").Play
End Sub

ну а всё остальное в этом csc

тут для новых корелов нужна тотальная переделка )
автору топика проще найти 6й корел и поставить на него скрипт чем разобраться в тонкостях переноса скрипта ))))

 

[dastin]

... ну да, там надо отварить и дважды процедить через ситечко, потому что ...
автор Peter Clifton (возможно псевдоним - т.к. юзерформ и комментарии на языке родных осин) создал и после дорабатывал скрипт в далёких 200*,
на основе теоретической базы Triangle -- from Wolfram MathWorld
в содружестве с научным консультантом Alex Vakulenko

 

[_MBK_]

А, значит, таки скрипт...

 

[lev]

Перекидал на VBA
Интерфейс не вылавливал, чтобы точь-в-точь
Спины не программировал, они болтаются для красоты
Самая веселуха пошла, когда прога стала рисовать разные результаты при переключении размерностей. Оказалось в исходнике были неправильно объявлены типы пары переменных и в результате они округлялись...

 

[dastin]

и бисектриссы с медианами шалят

 

[Cutter]

Перекидал на VBA

Спасибо за вашу помощь.
Но работать скрипт отказывается. Если указать стороны 100, 100, 100, то рисует правильный треугольник.
Если например 120, 100, 100, то уже "Построение треугольника с данными параметрами невозможно. и т.д."

 

[lev]

Угу, поленился строки в числа преобразовать.
Попробуйте ещё раз (заменил макрос в том же посте).