• kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 23

Re: Где сохраняется Поворот Текста???

Эээээ... А зачем? Тут есть одна опасность, которую программисты Autodesk'a постоянно отодвигают, но, думаю, в обозримом будущем не решат: количество создаваемых внутри одного файла объектов ограничено. Число это хотя и велико, но не бесконечно, и можно рано или поздно наткнуться на непонятную работу вполне корректных кодов и команд, вплоть до вылета AutoCADa и невозможности открыть файл. Этим кодом же создается объект, ему назначается хендл и следующий объект получит уже не этот хендл, а следующий.
Если я не прав, расскажите, в чем конкретно.

  • На форуме с 10 июля 2004г.
  • Сообщений: 8,349
  • Спасибо: 4

Re: Где сохраняется Поворот Текста???

Алексей, это ко мне вопрос? Вот в послелнем варианте моей программы, опубликованной здесь:
http://forum.dwg.ru/showthread.php?t=30439
текст вставляется в чертеж параллельно наклонным отрезкам, т.е. угол поворота текста может быть произвольным. Этот угол сохраняется в текущем сеансе работы с AutoCAD'ом и при вводе обычного текста придется вручную устанавливать угол поворота текста равным нулю, переменной ведь, которую можно обнулить в программе, нет.

Ответ от kpblc (изменено: Кулик Алексей aka kpblc, 23 февраля 2009г. 22:08:18)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 23

Re: Где сохраняется Поворот Текста???

Владимир Громов, коды 

(defun vla-test (/ ang ent)
  (vl-load-com)
  (setq ang (getangle "\nSet angle : ")
        ent
            (vla-addtext
              (vla-get-modelspace
                (vla-get-activedocument (vlax-get-acad-object))
                ) ;_ end of vla-get-ModelSpace
              "vla : Test-string"
              (vlax-3d-point (getpoint "\nText point : "))
              (getvar "textsize")
              ) ;_ end of vla-AddText
        ) ;_ end of setq
  (vla-put-rotation ent ang)
  ) ;_ end of defun

(defun ent-test (/ ang ent)
  (setq ang (getangle "\nSet angle : ")
        ent (entmakex (list '(0 . "TEXT")
                            '(100 . "AcDbEntity")
                            '(100 . "AcDbText")
                            (cons 10 (getpoint "\nText point : "))
                            (cons 50 ang)
                            (cons 40 (getvar "textsize"))
                            (cons 1 "entmake : Test-string")
                            ) ;_ end of list
                      ) ;_ end of entmakex
        ) ;_ end of setq
  ) ;_ end of defun

написаны "на коленке", поэтому там нет отлова ошибок, например. Но! Они иллюстрируют, что можно создавать и (или) модифицировать объекты однострочного текста без изменения угла поворота текста "по умолчанию". Можно проверить.
Кстати, эти коды практически повторяют то, что показывал ShaggyDoc :)

  • На форуме с 10 июля 2004г.
  • Сообщений: 8,349
  • Спасибо: 4

Re: Где сохраняется Поворот Текста???

Можно-то, возможно, и можно. А вот нужно ли - думаю, что в моем случае ни к чему.