Результаты поиска

double click to add point.. - OberonPlace.com Forums - Х3, 2007 г

В хелпе нету, в объектной модели есть.

В заголовке темы указана версия Х8. FindClosestSegment есть уже в X3, вместо GetPointAt можно использовать GetPointPositionAt. Т.е. код будет примерно такой (проверить не могу, нет Х3 под рукой) Sub ClosestPoint() x# = 0 y# = 0 Dim po# Set a =...

Посмотрите макрос SelectSmallObjects из состава wx_Tools от woxxom

В данном примере заданная точка имеет координаты (0, 0) Sub ClosestPoint() x# = 0 y# = 0 Dim po# Set a = ActiveShape.DisplayCurve.FindClosestSegment(x, y, po).GetPointAt(po) MsgBox "x = " & a.x & vbCr & "y = " & a.y End Sub

Calendar Wizard 4.1 for CorelDRAW/Corel DESIGNER Можете успеть воспользоваться тестовым периодом или купить, как собирались. Данная ссылка должна быть и в About вашего генератора календарей.

Там же есть какой-то ежедневник, во всяком случае, в полной версии:

Их объектной модели X7-X8 убран CorelSCRIPT, старым операторам подобраны аналоги, часто без изменения названия метода/свойства, но не всегда. Для начала попробуйте просто удалить "CorelSCRIPT", если не помогает, лезьте в хелп. Например, "CorelScript.RedrawScreen", меняется на "Refresh".

Иногда проще взять ширпотребное золото, чем изобретать безметалликовый вариант. Для других металликов особого смысла не вижу. зы Ещё бывают "игры" с печатью краской и по подложке и по выборке, тогда с применением металлика могут быть интересные результаты.

При печати по фольге без подложки любой оптически прозрачной краской она будет выглядеть как металлик, что позволяет несколько сэкономить и, например, в данном случае печатать просто фолиевым металлизированным пантоном.

Нижний - Tiffany

Helvetica World (LinotypeGmbH)

Там битая копия оригинального, уже не существующего, сайта Что помешало нажать кнопку?

wOxxOm's CorelDRAW macros: ALL macros in one archive

Какой-нибудь сбой на многократной вложенности.

опечатка в cdrNoneShape (не влияющая) Стоит не удалять сразу, а собрать в коллекцию для последующего удаления сразу всех, тогда можно ещё и не заморачиваться с обратным циклом Dim ss As New ShapeRange Sub Remover() On Error Resume Next ActiveDocument.BeginCommandGroup "Remove SVG data"...

Интернеты для избавления от "SVG data" посоветовали сохранение в *.cmx. На тесте сработало. Можно и другие форматы попробовать. Если у Вас многостраничник, или хочется одной кнопкой, то можно автоматизировать постраничный экспорт-реимпорт

В начале было написано удалить только скрытые и залоченные. На Вашем скрине присутствуют и нескрытые разлоченные SVG data. Если нужно удалять все SVG data, я бы попробовал удалять шейпы по имени, а не типу и т.п. Вы бы лучше небольшой подопытный файлик приложили, чтобы самому тесты не городить...

В последних версиях завели сходный дублирующий функционал - Symbols, в чём-то лучше, в чём-то хуже хуже - не интерактивен, при редактировании Clone видны изменения сразу на всех экземплярах лучше - можно добавлять объекты к родителю, есть докер Символов ну и другие отличия

Если только группы и клипы (бывают и другие виды вложения), то примерно так: Sub Unlocker() On Error Resume Next ActiveDocument.BeginCommandGroup "Unlock all" Dim p As Page For Each p In ActiveDocument.Pages P_unlock p.Shapes Next p ActiveDocument.EndCommandGroup End Sub Private...