[rtyu]

Здравствуйте!! Ребята помогите доделать код. В лиспе не силён.

Вот код

Код:

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

 
(defun c:Z()
(setq pr (entget (car (entsel)))
      pr (subst '(210 0.0 0.0 0.1) (assoc 210 pr) pr))
(entmod pr)
);

Этот код отвечает за 210 группу, которая отвечает за изменение направления текста. То что есть сейчас мне хотелось бы переделать, чтобы можно было бы выделить несколько текстовых примитивов в чертеже и нажать на кнопку и чтобы все выделенные текстовые примитивы изменились. А также можно сделать, так чтобы в независимости выбрал ты объекты, а потом вызвал функцию Z или наоборот сначала вызвал функцию Z, а потом выделили нужные объекты нажал энтер и функция отработала. Просто не совсем удобно к примеру у меня выделены несколько текстовых примитивов я вызываю функцию Z она опять меня просит выделить необходимые объекты и я должен опять их выделять хотя они были выделены до вызова функции.

Заранее благодарен за помощь

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

http://forum.dwg.ru/showpost.php?p=188342&postcount=21

[rtyu]

сделал так

Код:

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

 
(defun c:Z(value / tab item)

(repeat (setq tab  nil
           item (sslength value)
        ) ;_ end setq
    (setq tab (cons (ssname value (setq item (1- item))) tab))   
)
(setq pr (entget (car (entsel)))
      pr (subst '(210 0.0 0.0 0.1) (assoc 210 pr) pr))
(entmod pr)
);

Он пишет ошибку слишком мало аргументов

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

rtyu, ты почему в команду параметры передаешь?

[rtyu]

В примере ж написано и я написал, а как правильно?

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

Еще раз прочитай dwg.ru/pub/9 и посмотри на разницу между функцией и командой. Это раз. Второе: прочитай всю тему, на которую я дал ссылку - там в предыдущих постах описывалось, что и как передается.

[VVA]

rtyu, без проверки

Код:

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

(defun c:Z ( / ss item pr)
(if (setq ss (ssget))
  (repeat (setq item (sslength ss))
    (setq pr (entget(ssname ss (setq item (1- item))))
	  pr (subst '(210 0.0 0.0 0.1) (assoc 210 pr) pr))
    (entmod pr)
    ))(princ))

[rtyu]

убрал из команды параметры и на большее к сожалению силёнок не хватило

Код:

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

 
(defun c:Z()
(repeat (setq tab  nil
           item (sslength value)
        ) ;_ end setq
    (setq tab (cons (ssname value (setq item (1- item))) tab))   

(setq pr (entget (car (entsel)))
      pr (subst '(210 0.0 0.0 0.1) (assoc 210 pr) pr))
(entmod pr)
)
);

----- добавлено через ~9 мин. -----

Сообщение от VVA rtyu, без проверки Код: [Выделить все] (defun c:Z ( / ss item pr) (if (setq ss (ssget)) (repeat (setq item (sslength ss)) (setq pr (entget(ssname ss (setq item (1- item)))) pr (subst '(210 0.0 0.0 0.1) (assoc 210 pr) pr) ) (entmod pr) ) ) (princ) );

VVA, Большое спасибо!!! Работает!!!