[olga87]

Здравствуйте Уважаемые программисты!

В коде ниже есть запрос-переменная выбора объектов:

Код:

[Выделить все]

(defun C:CN (/ esel x1_object obj col)
  (vl-load-com)
  (setq esel (entget (car (nentsel))))
  (setq x1_object (assoc '0 esel))
  ...
)

Но следующая 2я процедура (вывод цвета объекта в rgb):

Код:

[Выделить все]

  (if (setq esel (nentsel "\nSelect object to report color:"))
    (progn
      (setq
         obj (vlax-ename->vla-object (car esel))
	 col (vla-get-truecolor obj)
      )
	  (alert (strcat (itoa (vla-get-red col)) "," (itoa (vla-get-green col)) "," (itoa (vla-get-blue col))))
    )
  )
  (princ)

требует переменную "esel" определенную иначе (помечено красным), иначе процедура не работает.

Подскажите пожалуйста, как изменить "esel", чтобы работали оба кода: и "(assoc '0 esel)" и 2я процедура?

Заранее спасибо!

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

Есть разница между (nentsel) и (car (nensel))
Посмотри на результаты - достаточно чуть ли не в ком.строке выполнить эти функции, и внимательно посмотреть на выводимые сообщения

[olga87]

Да, разницу заметила, НО хотелось бы объединить вывод разной информации о выбранном объекте - одно требует "dxf-расшифровки", другое нет.
Возможно ли это в одном коде (без повторного запроса выбора объектов)?

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

Код:

[Выделить все]

 (defun C:CN (/ esel x1_object obj col) 
  (vl-load-com)
  (setq esel  (car (nentsel)))
  (setq x1_object (assoc 0 (entget  esel)))
  ...

  ;(if (setq esel (nentsel "\nSelect object to report color:")) 
    (progn 
      (setq obj (vlax-ename->vla-object esel)
            col (vla-get-truecolor obj)
      )
      (alert (strcat (itoa (vla-get-red col)) "," (itoa (vla-get-green col)) "," (itoa (vla-get-blue col))))
    )
  ;)
  (princ)
)

[olga87]

Большое спасибо!