[dzink]

помогите пожалуйста, тов. программисты.

прогамка была. на 2002 автокаде работала.. перешли на 2007. выдает "Неизвестная команда".

вкратце описание действий проги:
в текстовой строке набираю MDDEDIT
пишет выделите объекты
выделяю поочередно текстовые объекты (однострочный). ентер
программка открывает выбранные объекты для редактирования в той же последовательности, что и были выбраны. и переходит к следующему объекту после нажатия ентера.

у меня есть тело проги, если поможет могу выложить
заранее спасибо за проявленное внимание.

[Sazanoff_e]

Ну дык надо было сразу выкладывать)
И вкратце, как ее в 2007-й интегрировали.

Offtop: dzink, истинный "читатель", за 3 года - первое сообщение)))

[dzink]

(defun c:MDDEDIT (/ EN IN SS1)
(prompt
"\nВыберите Текстовый объект(ы) для редактирования..."
)
(setq SS1 (ssget)
IN 0
)
(while (setq EN (ssname SS1 IN))
(redraw EN 3)
(command "DDEDIT" EN "")
(redraw EN 4)
(setq IN (1+ IN))
)

(princ)
)
(princ "MDDEDIT loaded. ")
(princ)


а интегрировал в 2007 примерно так сервис->приложения->выбирал файл MDDEDIT.lsp

[Profan]

Попробуй вот такой код:

Код:

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

 
(defun c:MDDEDIT (/ EN IN SS1)
(prompt
"\nВыберите Текстовый объект(ы) для редактирования..."
)
(setq SS1 (ssget)
IN 0
)
(while (setq EN (ssname SS1 IN))
(redraw EN 3)
(command "_DDEDIT" EN "")
(redraw EN 4)
(setq IN (1+ IN))
)
(princ)
)
(princ "MDDEDIT loaded. ")
(princ)

[Sazanoff_e]

Во, уже под русскую версию адаптировали))) Локализовали то есть

[Vova]

В 2002 была експресс TEDIT. Я о ней много раз упоминал, тащу ее на все новые версии. Ищи по слову Tedit в форумном поиске. Она удобнее стандартной Ddedit

[dzink]

спасибо огромное.. все заработало!!!

[dzink]

кстати говоря попробывал с _TEDIT. пишет
Команда: _tedit
; ошибка: no function definition: ACET-ERROR-INIT

я не программист (хотя и немного жалею об этом) поэтому не понимаю что происходит