[Halfback]

Всем привет. Некоторое время назад начал работать в акаде и вот теперь дошел до лиспа. Пока мало что понятно.
Мне необходимо выделить все размеры на чертеже и заменить их цвет на зеленый. С выделением я вроде бы разобрался, но вот с цветом не понимаю.

(defun dim ( / )
(setq spisok (SSSETFIRST nil (ssget "X" '((0 . "DIMENSION"))))) ;;; При прогоне программы размеры выделяются. Создаю список "spisok" и заношу в него все размеры. Верно?
)

А вот как дальше изменить цвет размеров на зеленый? Не могу разобраться - чайник.

[Кулик Алексей aka kpblc]

http://forum.dwg.ru/showpost.php?p=188342&postcount=21 + http://forum.dwg.ru/showthread.php?t=15670 + DXF Reference

[Halfback]

Спасибо большое. Читаю.

[VVA]

Ну и в качестве практики Новая задачка для ЛИСП умельцев!!!

[allll]

(vla-put-color имя_объекта цвет)

[Иванов Дмитрий]

Вопрос, по поводу как получить имя примитива для функции vla-put-color
Не работает простой тест:
(defun C:2 (/)
(vl-load-com)
(vla-put-color
(cdr (assoc -1 (entget (ssname (ssget) 0))))
1
)
)
Как пользоваться этим списком - <Имя примитива: ffff0000num> ?

[VVA]

Сообщение от allll (vla-put-color имя_объекта цвет)

Сообщение от Иванов Дмитрий <Имя примитива: ffff0000num>

Красным выделены ключевые слова
DwgRuLispLib: Преобразование указателя на примитив в vla

[Семёныч]

Не мешало бы автору темы посмотреть доступные свойства объекта (размера) с помощью выражения
(vlax-dump-object (vlax-ename->vla-object (car (entsel))) t)

[Иванов Дмитрий]

Не ясно как получить объект после работы (ssname (ssget. В ошибке пишется, что нужен VLA-объект: bad argument type <<Entity name: e3eadd0>> ; expected VLA-OBJECT
Хотя, вот в справочнике написано что до объекта нужно идти с самого верха иерархии, от Application. Вот наверное в чем ошибка.
Точно, действительно, доступ к vlax-объекту делается vlax-ename->vla-object: (vla-put-color
(vlax-ename->vla-object (ssname (ssget) 0)) "2")
Все работает, спасибо