[shpionka]

Добрый день. Можно ли как-то задать тексту (в тексте не высота) с нулевыми значениями Z, отметки построенной поверхности?

[Valery Brelovsky]

Зачем тексту задавать Z?

[Neznayka]

Ну а если превратить текст в точку, а содержимое запихнуть в описание. Точки осадить на поверхность и потом взорвать.

превратить текст в точку можно командой данныеизвл

[flareon]

Любым из способов вытащить объекты в текстовый файл, затем обратно, но в виде 3D полилинии, затем положить ее на поверхность и создать точки COGO

[engngr]

Текст(ы) убрать в блок(и), блок(и) поднять на поверхность _AeccMoveBlocksToSurface, разбить блок(и).
Offtop: Но зачем?

[shpionka]

Сообщение от Valery Brelovsky Зачем тексту задавать Z?

Это необходимо для визуализации

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

Сообщение от engngr Текст(ы) убрать в блок(и), блок(и) поднять на поверхность _AeccMoveBlocksToSurface, разбить блок(и). Offtop: Но зачем?

Как убрать каждый текстовый объект в свои блок, а не в один общий? Т.к. если в один общий убирать, то он и поднимется на поверхность только в точке вставки блока.

Это необходимо для визуализации

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

Сообщение от flareon Любым из способов вытащить объекты в текстовый файл, затем обратно, но в виде 3D полилинии, затем положить ее на поверхность и создать точки COGO

Не совсем понятно как обратно импортировать текстовый файл в виде 3d полилинии?

[P_S]

Могу предложить лисп, правда, написан он на ходу

Код:

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

 (vl-load-com)
  (princ "\nВыберите поверхность")
(setq surf(vlax-ename->vla-object(ssname(ssget "_:S" '((0 . "AECC_TIN_SURFACE")))0)))
(princ "\nВыберите текст")
(setq txt(ssget '((0 . "TEXT"))))

(foreach tobj (vl-remove-if 'listp(mapcar 'cadr(ssnamex txt)))
(setq tobj(vlax-ename->vla-object tobj))
(if
      (=(vla-get-Alignment tobj)0)
       (progn(setq ins(vlax-variant-value(vla-get-InsertionPoint tobj))
		   el(vlax-invoke-method surf 'FindElevationAtXY(car(vlax-safearray->list ins))
                                  (cadr(vlax-safearray->list ins))))
				     (vlax-safearray-put-element ins 2 el)
					  (vla-put-InsertionPoint tobj ins))
       (progn(setq ins(vlax-variant-value(vla-get-TextAlignmentPoint tobj))
		   el(vlax-invoke-method surf 'FindElevationAtXY(car(vlax-safearray->list ins))
                                  (cadr(vlax-safearray->list ins))))
				     (vlax-safearray-put-element ins 2 el)
					  (vla-put-TextAlignmentPoint tobj ins)))
  );end of foreach