[Torino]

Существует ли средство, позволяющее делать следующее:
предположим в данный момент у нас текущие слой 0, цвет RED, тип линии ByLayer, вес линии 0,09
Я запускаю команду, она просит щелкнуть на объекте.
Щелкаем на любом объекте, который находится на слое 2, цвет у объекта GREEN, тип линии CONTINIOUS, вес линии 0,13
После этого текущими устанавливаются сло1 2, цвет GREEN, тип линии CONTINIOUS, вес линии 0,13

Т.е. что-то типа кисточки, но чтобы работала именно так, как я написал выше.
Может в экспрессах завалялась?
Или лиспик какой-нить сторонний есть?

[Эдуард]

Помоему ничего сложного нет.
Накидал сходу.

Код:

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

(defun C:kist()
  (if
  (setq cobj (car
	       (entsel)
		 )
	)
  (progn
    (setq cobj (vlax-ename->vla-object
		 cobj
		 )
	  )
 (setvar "clayer" (vla-get-layer cobj))
 (setvar "cecolor"(itoa(vla-get-color cobj)))
 (setvar "celweight"(vla-get-lineweight cobj))
 (setvar "celtype"(vla-get-linetype cobj))
    )
  )
  (princ)
  )

[Torino]

Эдуард, спасибо!
Программа работает безукоризненно.

Все, начинаю изучать Лисп.

[Startrek]

_ai_molc комманда или ищи кнопку - есть такая, не могу знать где она на твоем десктопе сидит, стандартная аутокадовская комманда. А Лисп Эдуарда деиствительно красив.

[Torino]

>>Startrek
Эта команда делает то, что я хочу, но только со слоями.
Поэтому не совсем подходит.

[vk]

Если быть точным - команда _ai_molc делает слой выбранного объекта текущим слоем. И не более...

[Startrek]

vk ты прав, я не совсем понял - тогда EХPRESS - laymch