[Jonas]

Программа по внесению в документацию тех-требований вставляет текст с поворотом на 4гр. Акад 2011.
Помогите исправить.
Да, всё происходит на одной машине.
Поиском ничего не нашел.
Lisp прикладываю.

[Do$]

Этот кусок выводит тексты на чертеж, я правильно понял?

Код:

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

 (if (findfile (strcat (getvar "DWGPREFIX")(getvar "DWGNAME") ".tt"))
   (progn
   (setq FILE (open (strcat (getvar "DWGPREFIX")(getvar "DWGNAME") ".tt") "r"))
      (setq p1 (getpoint "\nЛевый Верхний угол текста :"))
      (while (setq S (read-line FILE))
       (if p1 (progn
             (command "_TEXT" p1 3.5  S)   
                (setq p1 nil)
               )
          (command "_text" "" S)
       )
      );end while
   (close FILE)
   )
  (princ "\nТехнических требований не найдено.")
  )
)

Создавайте текст не командными методами, а функцией entmake(x) или vla- методами.
А так - смотрите опции команды "TEXT", может что-то не то передаете. Также, пользовательская система координат может быть повернута.

[Jonas]

Вот вся программа.

Видимо проблема не в программе а в Акаде потому что, на другой машине всё нормально.

[Do$]

Сообщение от Jonas Видимо проблема не в программе а в Акаде

Проблема может быть не именно в Акаде, а в настройках системы, автокада или самого чертежа. У каждого свои настройки, а задача того, кто пишет программу - сделать так, чтоб программа работала при любых настройках одинаково (в пределах разумного, конечно).
Систему координат смотрели?

[Александр Ривилис]

Сообщение от Jonas Программа по внесению в документацию тех-требований вставляет текст с поворотом на 4гр. Акад 2011.

Поворот или наклон? Если наклон, то смотри настройки текущего текстового стиля. А если поворот, то внимательно посмотри на строку:

Код:

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

(command "_TEXT" p1 3.5  S)

В зависимости от того задана ли у тебя в текущем текстовом стиле высота текста или она 0 ты получишь два разных сценания запросов:

;;; Высота в текстовом стиле 0.0 Command: -text Current text style: "Standard" Text height: 2.5000 Annotative: No Specify start point of text or [Justify/Style]: Specify height <2.5000>: 3.5 Specify rotation angle of text <0>: Enter text: ;;; Высота в текстовом стиле 2.5 Command: -TEXT Current text style: "Standard" Text height: 2.5000 Annotative: No Specify start point of text or [Justify/Style]: Specify rotation angle of text <0>: 3.5

[Jonas]

Сообщение от Do$ Систему координат смотрели?

Смотрел, правда не понимаю как это может влиять на вставку текста. Но тем не менее проверил, установил пользовательскую (графически указал на север).

Поворот или наклон? Если наклон, то смотри настройки текущего текстового стиля. А если поворот, то внимательно посмотри на строку:
Код:
(command "_TEXT" p1 3.5 S)
В зависимости от того задана ли у тебя в текущем текстовом стиле высота текста или она 0 ты получишь два разных сценания запросов:
Цитата:

1- Поворот.
2- Строка выглядела так

(command "_TEXT" p1 3.5 0 S)

если заменить "0" на "-4", то вставка вообще не предсказуема.

[Олег (jr.)]

Сообщение от Jonas Смотрел, правда не понимаю как это может влиять на вставку текста. Но тем не менее проверил, установил пользовательскую (графически указал на север). Поворот или наклон? Если наклон, то смотри настройки текущего текстового стиля. А если поворот, то внимательно посмотри на строку: Код: (command "_TEXT" p1 3.5 S) В зависимости от того задана ли у тебя в текущем текстовом стиле высота текста или она 0 ты получишь два разных сценания запросов: Цитата: 1- Поворот. 2- Строка выглядела так если заменить "0" на "-4", то вставка вообще не предсказуема.

Читай внимаааааательно A.Rivilis все объяснил
Кароч, разница если у стиля текста установлена или нет
фиксированная высота текста
Бери этот пример и забудь о проблемах

Код:

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

 ;;;author unknown
;;;edited by VVA
(defun text-draw (txt pnt height rotation justification)
   (if (null pnt)(command "_.-TEXT" "" txt)
   (if (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))
    0.0
       ) ;_ end of =
     (progn
     ;; нулевая высота текста
       (if justification
   (command "_.-TEXT" "_J" justification "_none" pnt height rotation txt)
   (command "_.-TEXT" "_none" pnt height rotation txt)
       ) ;_ end of if
     ) ;_ end of progn
     (progn
       (if justification
   (command "_.-TEXT" "_J" justification "_none" pnt rotation txt)
   (command "_.-TEXT" "_none" pnt rotation txt)
       ) ;_ end of if
     ) ;_ end of progn
   ) ;_ end of if
     )
  (entlast)
)

[getr]

Приведите пожалуйста пример вызова функции text-draw с юстификацией Left ...

[Do$]

Наверное, так:

Код:

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

(text-draw "TEXT" '(0.0 0.0 0.0) 2.5 0.0 "_L")

[VVA]

Сообщение от getr пример вызова функции text-draw с юстификацией Left

Код:

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

(text-draw "TEXT" '(0.0 0.0 0.0) 2.5 0.0 nil)

[getr]

-->VVA
Спасибо,- работает..и как это я не сообразил про nil?