[Composter]

Добрый день. Подскажите как сделать так что информация в текстовом окне (которое вызывается через F2) разбивалась по строкам. А то результаты команды (entget(car(entsel))) вытягиваются в одну ддлинную строку и бегунка бокового нет.Получется либо раскрывать командную строку и смотреть либо в текстовом окне скопировать и вставить в текстовый файл.

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

Ну, если ты насколько не жалуешь VLIDE, то устанавливай LOGFILEMODE, LOGFILEPATH и смотри, что там и в каком объеме появится

[Composter]

Нет, я не хочу смотреть в текстовом файле, я хочу чтобы в текстовом окне автоматически текст переносился на новоую строку

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

Зафиксируй комстроку.

[frostmourn]

Мне тоже весьма не нравится организация ком.строки в последних версиях акада. И, поскольку решения не видится, пришлось соорудить небольшой костыль

Код:

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

 
(defun _watch_comLine (len / adoc LOGFILE STR STRlist ret
					)
	(vl-load-com)
	(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
	(if (zerop (getvar "logfilemode"))
		(progn
			(setvar "logfilemode" 1)
			(princ "\nЛог не был включен. Просмотр командной строки недоступен.\nПовторите команду и запустите программу снова")
		)
		(progn
			(setq LOGFILE (open (getvar "logfilename") "r"))
			(while (setq STR (read-line LOGFILE))
				(setq STRlist (cons STR STRlist))
			)
			(close LOGFILE)
			(setq ret (open (setq LOGFILE (vl-filename-mktemp "MYlog" nil ".txt")) "w"))
			(foreach x
				(reverse STRlist)
				(write-line (_GAS_str_divide_by_len x len) ret)
			)
			(close ret)
			(startapp "Notepad.exe" LOGFILE)
			(setq ret (getvar "millisecs"))
			(while (< (- (getvar "millisecs") ret) 200))
			; (vl-cmdf "_delay" 200)
			(vl-file-delete LOGFILE)
		)
	)
	(vla-endundomark adoc)
	(princ)
)

Не идеально, и логи как-то странновато работают, но хоть так.
Упс, не заметил, что раздел про Акад.