Delphi + Lisp
![](http://mediasubs.ru/author/avatar/3603767.png)
есть следущий код
Uses ComObj;
...
Var
S: String;
Word: OleVariant;
I: Integer;
Begin
Word:=GetActiveOleObject('Word.Application');
Word.Selection.WholeStory;
S:=Word.Selection.Text;
While Pos(#13#13, S)>0 do Delete(S, Pos(#13#13, S), 1);
I:=1;
While I<=Length(S) do
Begin
If S[I]=#13 then Insert(#10, S, I+1);
I:=I+1;
End;
Memo1.Text:=S;
End;
он весь текст из ворда копирует в мемо
а как сделать с AutoLisp'ом который сидит в автокаде
Номер выпуска : 3142
Возраст листа : 248 (дней)
Количество подписчиков : 410
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/156021
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru