[Александр36]

Здравствуйте, никак не могу разобраться как вставить какой-нибудь текст в конкретную точку, пробывал через mtext, в самом автокаде все получается, а код в lisp написать не получается. Заранее спасибо.

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

Ничего не понял. Задай вопрос конкретнее.

[Александр36]

Я имел ввиду что нужно в определенную точку в автокаде (например (1,1)) вставить слово ("nds") которое хранится в какой нибудь переменной.
В интернете поискал нашел только это- "(command "mtext" "366,10" "5" "0" "ВГТУ" ^c)"– процедура вставления текста ВГТУ размером 5 мм в точку с координатами 366,10." но оно не работает. Вот как то так.

[gomer]

(command "text" "366,10" "5" "0" "ВГТУ")

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

gomer, а если в текстовом стиле высота фиксирована?

[gomer]

Товарисч, это не оговаривал... он бы и не спросил так...

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

Я про то, что у него команда mtext, а у тебя - text. Кстати, оба кода не будут работать в локализованных версиях )))

[Александр36]

Сообщение от Кулик Алексей aka kpblc Я про то, что у него команда mtext, а у тебя - text. Кстати, оба кода не будут работать в локализованных версиях )))

а кокой код будет работать?

[gomer]

Сообщение от Кулик Алексей aka kpblc Я про то, что у него команда mtext, а у тебя - text.

А я про то, что однострочный текст нужно создавать однострочным
зы хоть убейте, не помню, чтоб mtext поменял на text

[Александр36]

Сообщение от gomer (command "text" "366,10" "5" "0" "ВГТУ")

вот эта штука не работает, если по отдельности вводить в строку Command в автокаде работает, а если все строчку вставить то не работает, и что с этим делать?

[Лентяй]

Ну что, расскажем страдальцу про создание текстовых объектов или пусть так помирает?

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

Ну, кой-какая часть есть здеся...

[gomer]

Сообщение от Лентяй Ну что, расскажем страдальцу про создание текстовых объектов или пусть так помирает?

Сообщение от Кулик Алексей aka kpblc Ну, кой-какая часть есть здеся...

У него моцк лопнет, пусть сначала функцию command выучит и русский язык за одно...

[Олег (jr.)]

Сообщение от Александр36 вот эта штука не работает, если по отдельности вводить в строку Command в автокаде работает, а если все строчку вставить то не работает, и что с этим делать?

на скорую руку:

Код:

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

(setq pt '(366 10))
(setq fix_height(cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
(cond ((zerop fix_height)
       (command "_.text" "_non" pt "5" "0" "Арбузолитейный"))
      ((/= 5 fix_height)
       (command "_.text" "_non" pt "0" "Арбузолитейный")
       (setq txt (entlast))
       (setq elist (entget txt)
	     elist (subst (cons 40 5.0) (assoc 40 elist) elist))
       (entmod elist)
       (entupd txt)
       )
      ((command "_.text" "_non" pt "0" "Арбузолитейный")))

см. все функции в справке

[Александр36]

Всем спасибо, вроде что-то получилось.

[VVA]

Александр36, Здесь берешь готовые функции. Спасибо говоришь ShaggyDoc.

[sasa.od]

сори, я чайник..не подскажете как текст разместить по дуге или по окружности..спасибо

[gomer]

Сообщение от sasa.od сори, я чайник..не подскажете как текст разместить по дуге или по окружности..

ыыыыыыыыы ничего себе чайники пошли...

[VVA]

sasa.od, Ты хочешь программно или все равно как? В любом случае можно попробовать это: Slinky Text

[gomer]

Сообщение от VVA В любом случае можно попробовать это

У этого метода есть один минус... Он не работает с привязками... Так как основан на grread