[paradoxvaha]

Добрый день! Может ли кто то подсказать как можно написать текст (програмно) в пространстве листа автокада цветом, установленным не по умолчанию. Т.е. у меня слой text для него установлен цвет по слою (синий) и когда программа прописывает текст (вывод результатов расчета) она, естественно, прописывает его тем цветом, что установлен по слою. Как можно поменять цвет текста чтоб был другой (например красный), при том, что слой остался бы неизменен (text). Искал на форуме подобные темы, но что то ничего не нашел.

[KSI]

Наверное можно использовать переменную CECOLOR. Прочитать текущее значение, изменить, создать текст, вернуть старое значение переменной.

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

paradoxvaha, ты покажи как ты текст-то создаешь. Там же полно возможностей по изменению объекта

[paradoxvaha]

Сообщение от KSI Наверное можно использовать переменную CECOLOR.

Так и сделал, вроде помогло:

Код:

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

(setq p_CECOLOR (getvar "CECOLOR"))
(setvar "CECOLOR" (itoa n))
(command "_text" k_vs2 2 0 (rtos (nth j l_bl_sum_vse) 2 korrekt1))
(setvar "CECOLOR" p_CECOLOR)
(setq p_CECOLOR nil)

Может как то и проще можно, но так вроде бы работает. У меня там цикл из 150 повторений, так прога мне целую цветовую гамму выдала - текст каких хочешь цветов!
Спасибо за помощь.

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

А вот так не лучше будет?

Код:

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

(defun test (height / color pt res)
  (setq color 1
        pt    (list 0. height 0.)
        ) ;_ end of setq
  (while (<= color 150)
    (setq res (cons (entmakex
                      (list
                        '(0 . "TEXT")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbText")
                        (cons 10 (setq pt (list (car pt) (- (cadr pt) height) (caddr pt))))
                        (cons 1 "text to fill")
                        (cons 62 (setq color (1+ color)))
                        '(50 . 0.)
                        '(41 . 0.75)
                        '(51 . 0.)
                        (cons 40 height)
                        ) ;_ end of list
                      ) ;_ end of entmakex
                    res
                    ) ;_ end of cons
          ) ;_ end of setq
    ) ;_ end of while
  res
  ) ;_ end of defun

[KSI]

paradoxvaha, а зачем цветовую гамму? Присвоить конкретный номер цвета CECOLOR, и пускай все новые тексты будут одного цвета.

[paradoxvaha]

Сообщение от KSI paradoxvaha, а зачем цветовую гамму? Присвоить конкретный номер цвета CECOLOR, и пускай все новые тексты будут одного цвета.

Да это я ради проверки, а так буду использовать цвета не в таком широком диапазоне.

А вот так не лучше будет?

Ох и не знаю даже, я еще не на таком уровне програмки пишу... Тут как я понял целый объект создается!

[Mikka]

Один из варриантов использовать тег "\C##;", где ## - индекс текста.

Код:

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

Sub TestColorText()
    Dim txtObj  As AcadMText
    Dim txt     As String
    Dim pnt(2)  As Double
    
    txt = "\C23;Цветной \C53;текст"
    Set txtObj = ThisDrawing.ModelSpace.AddMText(CVar(pnt), 0, txt)
End Sub

з.ы. разметка поддерживается только MText и таблицей!

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

paradoxvaha, ну да, объект. А чего такого сложного?

[KSI]

Mikka, а потом, если понадобится, вычищать многострочный текст от всего этого?

[Mikka]

Сообщение от KSI Mikka, а потом, если понадобится, вычищать многострочный текст от всего этого?

Offtop: Легко, только не в этой теме...