[Glorius]

Собственно сабж.
Вот так создаю простой мультитекст
(setq obj (vla-AddMText model_space (vlax-3D-point (getpoint)) 1500 (read-line file)))
В качестве текста выступает строка из файла. Нужно создать дробный текст прграмно.
Спасибо.

[Do$]

Пример бы не помешал...
Можно так:

Код:

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

(setq obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point (getpoint "\nInsertion point:"))
	    1500
	    "\\A1;<целое>\\S<числитель>/<знаменатель>"
	  ) ;_ end of vla-AddMText
) ;_ end of setq

[VVA]

Еще парочка примеров

Код:

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

(setq obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point (getpoint "\nInsertion point:"))
	    1500
	    "\\A1;<ЦЕЛОЕ>{\\H0.7x;\\S^<нижний индекс>;}"
	  ) ;_ end of vla-AddMText
) ;_ end of setq

(setq obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point (getpoint "\nInsertion point:"))
	    1500
	    "\\A1;<ЦЕЛОЕ>{\\H0.7x;\\S<верхний индекс>^;}"
	  ) ;_ end of vla-AddMText
) ;_ end of setq

(setq obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point (getpoint "\nInsertion point:"))
	    1500
	    "\\A1;<целое>{\\H0.7x;\\S<числитель>#<знаменатель>;}\\PНапример: 8{\\H0.7x;\\S1#2;}"
	  ) ;_ end of vla-AddMText
) ;_ end of setqq

[Glorius]

Спасибо, только что-то я никак не соображу с подстановкой конкретных текстовых величин.
Отредактируйте, пожалуйста, какой нибудь пример, который бы при указании точки в пространстве модели рисовал бы такой текст - "целое1 числитель/знаменатель целое2". Тут "числитель/знаменатель" - это дробная часть, дробь горизонтальная, размер - 70%.

[VVA]

Красным выделено форматирование, синим - текст

Код:

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

(setq obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point (getpoint "\nInsertion point:"))
	    1500
	    "\\A1;ЦЕЛОЕ1 {\\H0.7x;\\SЧИСЛИТЕЛЬ/ЗНАМЕНАТЕЛЬ ;}ЦЕЛОЕ2"
	  ) ;_ end of vla-AddMText
) ;_ end of setq

[Glorius]

VVA, Do$
Спасибо. Все работает.

Поначалу не срабатывало, потому что ошибка закралась в другом фрагменте кода. Вот и последний указаный пример с конкретными текстовыми величинами не пошел. Ошибку нашел и все встало на свои места)

P.S. А где можно посмотреть документацию по заданию вот таких параметров различных объектов автокада? Есть книга Полещука "AutoLISP и Visual LISP в среде AutoCAD", но там такого не видел. Например интересует как програмно подчеркнуть текст...

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

Смотри коды форматирования многострочного текста в справке AutoCAD.

[VVA]

А еще можно ручками нарисовать мтекст, отформатировать его как нужно в редакторе, набрать (entget(entlast)) и смотреть dxf группу 1.
коды форматирования многострочного текста Более полная версия в справке Автокада (искать "Форматирование многострочного текста во внешнем редакторе")

[WST]

Всем доброго дня вроде нашел подходящею тему нужно программно вставить в указанную точку текст того типа как в прикрепленном файле это как я понял можно сделать при помощи кода VVA, из поста #5

Код:

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

 (setq obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point (getpoint "\nInsertion point:"))
	    1500
	    "\\A1;quantity_of_lamps type_of_lamp {\\H0.98x;\\Squantity_of_lampsXpower/height;}"
	  ) ;_ end of vla-AddMText
) ;_ end of setq

но что делать если:
- quantity_of_lamps;
- type_of_lamp;
- quantity_of_lampsXpower;
- height.
переменные - которым присваиваются значения как из диалогового окна так и после обработки и расчетов программы.

[Oliver_88]

Код:

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

 (setq quantity_of_lamps 5
      type_of_lamp 10
      Squantity_of_lampsXpower 25
      height 11
      )
(setq obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	      ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point (getpoint "\nInsertion point:"))
	    1500
	    (strcat
	      "\\A1;"
	      (vl-princ-to-string quantity_of_lamps)
	      " "
	      (vl-princ-to-string type_of_lamp)
	      " "
	      "{\\H0.98x;\\S"
	      (vl-princ-to-string  Squantity_of_lampsXpower)
	      "/"
	      (vl-princ-to-string  height)
	      " ;}"
	      )
	    ) ;_ end of vla-AddMText
      )

[WST]

Oliver_88,
Огромное спасибо то что нужно, а главное понял суть