[CDR X5-X8] как точно вычислить площадь сложных объектов одного цвета

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
В принципе, можно и без фотошопа обойтись.
Вот как то так
Код:
Sub CountFill()
 ActiveDocument.Unit = cdrMillimeter
 Dim shRange As ShapeRange
 Set shRange = ActiveSelectionRange
 If shRange.Count = 0 Then
    MsgBox "There is no selected shapes in the current document!"
    Exit Sub
 End If
 Dim x As Double
 Dim y As Double
 shRange.GetSize x, y
 
 Dim Opt As New StructExportOptions
 Opt.AntiAliasingType = cdrNormalAntiAliasing
 Opt.SizeX = 1
 Opt.SizeY = 1
 Opt.ImageType = cdrGrayscaleImage
 Opt.Compression = cdrCompressionNone
 TempFile = CorelScriptTools.GetTempFolder() & "Temp.bmp"
 ActiveDocument.Export TempFile, cdrBMP, cdrSelection, Opt
 
 Open TempFile For Binary Access Read Write As #1 Len = 1
 Dim Col As Byte
 Get #1, &H437, Col
 If Col > 254 Then Col = 254
 If Col < &H15 Then Col = &H15
 Col = Col - &H15
 MsgBox "Площадь заполнения примерно " & x * y * (254 - &H15 - Col) / (254 - &H15) & " mm^2"
 Close #1
End Sub
 
  • Спасибо
Реакции: Olga I

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835

~RA~

Одарённая.
12 лет на форуме
Сообщения
11 808
Реакции
3 434
но когда таких клише 100-150
спечатываете их все в сепарированный PS, а дальше, хоть фотошопом, хоть программистом считаете, что нужно.

Не по теме:
Я как-то писал скриптик, что считал краскозаполнение для всех сепараций всех файлов в папке. Сейчас уж не найду его, но там вряд ли было больше 10 строк, так что проще написать по-новой, чем искать.
 

Olga I

Участник
Топикстартер
Сообщения
15
Реакции
0
"В принципе, можно и без фотошопа обойтись." Простите, не ответила сразу. Огромное Спасибо! Сохранила, жду момента когда понесу это системщикам. Пока затихли с этим вопросам, но, думаю, это временно.
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Сразу предупреждаю - работает только для одного цвета (черного) и приближение довольно грубое. Хотя в данной задаче точно померять невозможно по определению. Точнее, померить точнее (каламбур! ;) ) можно только в момент вывода на РИПе.
 
  • Спасибо
Реакции: Olga I

Olga I

Участник
Топикстартер
Сообщения
15
Реакции
0
Сразу предупреждаю - работает только для одного цвета (черного) и приближение довольно грубое. Хотя в данной задаче точно померять невозможно по определению. Точнее, померить точнее (каламбур! ;) ) можно только в момент вывода на РИПе.
Понятно! Да пока и надо приближенное.
 

vereten1203

MadMike
Сообщения
31
Реакции
0
а есть ли подобные макросы, но с расчетом процента от площади изделия, по типу програмулины APFill Ink Coverage Meter 'hmmm'
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Ну поделите на площадь изделия прямо в макросе
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
У каждого sh шейпа есть отображаемая кривая sh.DisplayCurve, площадь которой равна sh.DisplayCurve.Area
Единицы измерения (например, квадратные миллиметры) ей задаются так: ActiveDocument.Unit = cdrMillimeter
Курите хелп редактора макросов, там все доходчиво и с примерами
Готового макроса под вашу конкретную хотелку нет, его надо или заказывать специально обученным людям или писать самому
 

ch_alex

Погулять вышел.
15 лет на форуме
Сообщения
8 420
Реакции
2 709
Ищите, обязательно ищите, только не макрос, а другое место работы. Подальше от такого "руководства".
В нынешних условиях такое "руководство" - это неотъемлемый придаток средств промышленного производства. И это редкие оазисы, между которыми перемещение весьма затруднительно.