Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → Delphi → Расцветка массива
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Ещё вопрос. Может быть кто-то поможет.
По прежнему Autocad 2004 и Delphi 7. Сделал полярный массив (вокруг круга разложил ещё четыре).
О
ООО
О
Получается гдето-так. Теперь мне нужно раскрасит круги в разные цвета. Как? Сломал всюголову. Пробовал через командную строку, не получается. Если кто-то сталкивался, напишите.
AcadApp.activedocument.SendCommand('-bhatch'+' '+'p'+' '+'ansi37'+' '+'2'+' '+'0'+' '+ x+',' +y+' '+' ');
{ p properties
2 scale
0 angle
x,y coordinates }
x,y -координаты любой точки в центре окружности : string;
вместо 'ansi37' пишешь тип заливки который тебе нужен
Мне достаточно было бы покрасить контуры кругов в разные цвета, но наверн заливка лучше. Но заливка не получается, нормально доходит до 'solid', а потом '2' уже не схватывается. Выдаёт ошибку.
а вообще запусти команду -bhatch в акаде и посмотри что тебе нужно :
Command: -bhatch
Current hatch pattern: ANGLE
Specify internal point or [Properties/Select/Remove islands/Advanced]:
нажмешь р - вызовешь - Properties
получишь сообщение :
Enter a pattern name or [?/Solid/User defined] <ANGLE>:
и т.д.
А получить разные цвета можно меняя свойства Layer
акад воспринимает пробел как ентер.
в кавычках у меня пробелы!!! ' ' !!!
AcadApp.activedocument.SendCommand('-layer'+' '+'c'+' '+'2'+' '+'0 '+' '+#13+#13);
c-colour
2- number of colour 1 to 255
'0' - name of layer
#13 - enter 
Вроде с заливкой разобрался, спасибо.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → Delphi → Расцветка массива
Форум работает на PunBB, при поддержке Informer Technologies, Inc
