[Re-Maker]

Всем доброго времени суток!
Поискал темы по ключевому слову "горизонтали", однако ответа на свой вопрос не нашел.

Не так давно стал заниматься топографией. Большую часть работы выполняю в Topocad V11, затем экспортирую все в AutoCAD.
Столкнулся со следующей проблемой.

При создании горизонталей, Topocad вставляет текст, указывающий высотную отметку, прямо на саму горизонталь, однако линия горизонтали, как бы прерывается, оставляя зазор для легкой читаемости текста. При экспортировании чертежа в AutoCAD линия горизонтали не имеет такого зазора и проходит прямо по тексту, что делает его нечитабельным. Резать горизонталь нельзя, она должна оставаться целой. Следовательно речь идет и визуальном "колдовстве"

Я прилагаю zip файл с изображением того, как все красиво выглядит в Topocad-е и AutoCAD файл как результат экспорта.
Помогите сделать так, чтобы в AutoCAD-е выглядело также, как и в Topocad.

AutoCAD'овский файл посмотреть не получилось - версия файла больно уж крута для моего софта.
Но не глядя могу посоветовать после импорта в AutoCAD подкладывать маски под текст: для однострочного текста может помочь команда TEXTMASK из ExprexTools, для многострочного текста - опция скрытия заднего плана, встроенная в сам мтекст.
Для упрощения обработки больших объемов данных можно воспользоваться командой БВЫБОР (_.QSELECT) для выбора всех подписей горизонталей по их определенным свойствам.

[Re-Maker]

Сообщение от AlphaGeo AutoCAD'овский файл посмотреть не получилось - версия файла больно уж крута для моего софта.

Прилагаю тот же файл в версии R14.

Сообщение от AlphaGeo Но не глядя могу посоветовать после импорта в AutoCAD подкладывать маски под текст: для однострочного текста может помочь команда TEXTMASK из ExprexTools, для многострочного текста - опция скрытия заднего плана, встроенная в сам мтекст.

ОГРОМНОЕ СПАСИБО! Получилось! Текст однострочный, так что ExpressTools подошел.

Сообщение от AlphaGeo Для упрощения обработки больших объемов данных можно воспользоваться командой БВЫБОР (_.QSELECT) для выбора всех подписей горизонталей по их определенным свойствам.

А вот с этим проблемы. Возможно я нарушаю последовательность. Выделить только текст на горизонталях получается, но применить это выделение к TEXTMASK - нет. Буду благодарен, если опишите процесс по шагам.

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

Код:

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

Command: textmask
Initializing...
Current settings: Offset factor = 0.3500, Mask type = Wipeout
Select text objects to mask or [Masktype/Offset]: _all
<...>
Select text objects to mask or [Masktype/Offset]: <Enter>

[Re-Maker]

Сообщение от Кулик Алексей aka kpblc Код: [Выделить все] Command: textmask Initializing... Current settings: Offset factor = 0.3500, Mask type = Wipeout Select text objects to mask or [Masktype/Offset]: _all <...> Select text objects to mask or [Masktype/Offset]: <Enter>

Получилось! Сначала настроил QuickSelect, затем проделал то, что сверху. Еще раз ОГРОМНОЕ СПАСИБО!

[Re-Maker]

Еще одна проблема, связанная с высотными отметками на горизонталях.
Дело в том, что ориентировка текста на одних горизонталях сверху вниз, а на других - снизу вверх. Как сделать так, чтобы на всех горизонталях текст отображался одинаково? Прилагаю файл для ясности.
Заранее спасибо!

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

Либо вручную, меняя угол поворота; либо придется писать собственную программку. Либо налаживать тот софт, который эти отметки проставляет.

[Re-Maker]

Сообщение от Кулик Алексей aka kpblc Либо вручную, меняя угол поворота; либо придется писать собственную программку. Либо налаживать тот софт, который эти отметки проставляет.

Понятно....
А я решил, что есть инструмент, в котором можно указать вектор и выстроить по нему текст.
Кстати, неужели в AutoCAD нет возможности вращать несколько объектов, где в качестве опорных точек были бы математические центры объектов.

А программку заказать можно? Это на случай если родная программа не справится с задачей.

Нашел! На одном из буржуйских форумов Команда TORIENT! То, что нужно! Даже угол поворота указывать не надо. Там по умолчанию текст поворачивается по принципу Most Readable!

[Olga_@@@]

Re-Maker, в Express Tools есть инструмент для создания маски вокруг текста, для создания разрывов в горизонталях в принципе подойдет. Но, у меня он не очень устойчиво работает.

Потом, есть еще такой лисп. Тоже может быть полезен в вашей ситуации.

Код:

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

;;;*****************************************************************************************
;;; PL_MTextMask.LSP
;;;*****************************************************************************************
;;; Copyright ©2005 Пётр В. Лоскутов (Alaspher)
;;; e-mail: alaspher@hotmail.com
;;;*****************************************************************************************
;;; ВЕРСИЯ: 0.9 beta
;;;*****************************************************************************************
;;; ОГРАНИЧЕНИЕ ГАРАНТИЙ
;;; ПРОГРАММА РАСПРОСТРАНЯЕТСЯ НА УСЛОВИЯХ "КАК ЕСТЬ".
;;; АВТОР НЕ БЕРЕТ НА СЕБЯ И НЕ ПОДРАЗУМЕВАЕТ КАКИХ-ЛИБО ГАРАНТИЙНЫХ ОБЯЗАТЕЛЬСТВ.
;;; ВЫ ИСПОЛЬЗУЕТЕ  ПРОГРАММУ НА СВОЙ РИСК.
;;; АВТОР НЕ БЕРЕТ НА СЕБЯ ОТВЕТСТВЕННОСТЬ ЗА ПОТЕРЮ ДАННЫХ, УЩЕРБ, ПОТЕРЮ ПРИБЫЛИ ИЛИ ЛЮБЫЕ
;;; ДРУГИЕ ПОТЕРИ, ПРОИЗОШЕДШИЕ ВО ВРЕМЯ ИСПОЛЬЗОВАНИЯ ИЛИ НЕПРАВИЛЬНОГО ИСПОЛЬЗОВАНИЯ
;;; ДАННОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ.
;;;*****************************************************************************************
;;; Разрешается использовать, копировать, изменять, и распространять это программное
;;; обеспечение бесплатно для любой цели при условии, что указанные выше знак авторского
;;; права и примечания об ограничениях гарантий будут приводиться во всех копиях.
;;;*****************************************************************************************
;;; Команда - mtmsk предназначена для включения/выключения маскирования графических объектов
;;; находящихся за многострочным текстом. При отказе от выбора цвета маски, маскирование
;;; производится цветом фона.
;;;*****************************************************************************************
;;;
(defun PL:MTextMask (/ app col doc ent extd i off sel sort tmp trs)
  (setq i -1)
  (if (and (setq sel (ssget ":L" '((0 . "MTEXT"))))
           (> (sslength sel) 0)
           (not (initget 196 "Remove Exit"))
           (or (setq off (vl-catch-all-apply
                           (function getdist)
                           '("\nУкажи величину отступа маски [Remove/Exit] <1.0>: ")
                         )
               )
               (setq off 1.0)
           )
           (not (vl-catch-all-error-p off))
      )
    (if (/= off "Exit")
      (progn
        (if (numberp off)
          (progn (or (setq trs 1
                           col (acad_colordlg 7)
                     )
                     (setq trs 3
                           col 256
                     )
                 )
                 (setq app (list (cons 45 off) (cons 63 col) (cons 90 trs)))
          )
          (setq app '((90 . 2)))
        )
        (while (setq ent (ssname sel (setq i (1+ i))))
          (entmod (append (PL:DXF-MltClr (entget ent) '(45 63 90 441) nil) app))
          (setq tmp (cons (entupd ent) tmp))
        )
        (if (numberp off)
          (progn
            (setq tmp  (mapcar (function vlax-ename->vla-object) tmp)
                  doc  (vla-get-Document (car tmp))
                  extd (vla-GetExtensionDictionary (pl:get-active-space doc))
            )
            (if (vl-catch-all-error-p
                  (setq sort (vl-catch-all-apply
                               (function vla-GetObject)
                               (list extd "ACAD_SORTENTS")
                             )
                  )
                )
              (setq sort (vla-AddObject extd "ACAD_SORTENTS" "AcDbSortentsTable"))
            )
            (vla-MoveToTop sort (PL:List-to-Variant tmp))
            (vla-Regen doc acActiveViewport)
          )
        )
      )
    )
  )
)

(defun PL:DXF-MltClr (_LIST _CODES _T)
  (cond
    ((null _LIST) NIL)
    ((/= _T (= (type (member (caar _LIST) _CODES)) 'list))
     (PL:DXF-MltClr (cdr _LIST) _CODES _T)
    )
    (t (cons (car _LIST) (PL:DXF-MltClr (cdr _LIST) _CODES _T)))
  )
)

(defun pl:get-active-space (doc)
  (if (and (zerop (vla-get-activespace doc))
           (= :vlax-false (vla-get-mspace doc))
      )
    (vla-get-paperspace doc)
    (vla-get-modelspace doc)
  )
)

(defun PL:List-to-Variant (lst / tmp)
  (setq tmp (if (apply (function =) (setq tmp (mapcar (function type) lst)))
              (car tmp)
            )
  )
  (vlax-make-variant
    (vlax-safearray-fill
      (vlax-make-safearray
        (cond ((not tmp) vlax-vbVariant)
              ((= tmp 'INT) vlax-vbLong)
              ((= tmp 'REAL) vlax-vbDouble)
              ((= tmp 'STR) vlax-vbString)
              ((= tmp 'NIL) vlax-vbNull)
              ((= tmp 'VLA-OBJECT) vlax-vbObject)
              (t vlax-vbVariant)
        )
        (cons 0 (1- (length lst)))
      )
      lst
    )
  )
)

(defun c:mtmsk ()
  (PL:MTextMask)
  (princ)
)

(progn (princ "\nType - 'mtmsk' in the command string for beginning.") (princ))

А, почему вы для этих задач выбрали чистый Автокад, а не Civil или Land Desktop?

[VVA]

Кстати, неужели в AutoCAD нет возможности вращать несколько объектов, где в качестве опорных точек были бы математические центры объектов.

Rotate нескольких объектов вокруг своей оси

[Re-Maker]

Сообщение от Olga_@@@ Re-Maker, в Express Tools есть инструмент для создания маски вокруг текста, для создания разрывов в горизонталях в принципе подойдет. Но, у меня он не очень устойчиво работает.

А у меня с ним никаких проблем (тьфу-тьфу не сглазить!). Работает как надо.

Сообщение от Olga_@@@ Потом, есть еще такой лисп. Тоже может быть полезен в вашей ситуации.

Это тоже про маску?

Сообщение от Olga_@@@ А, почему вы для этих задач выбрали чистый Автокад, а не Civil или Land Desktop?

Вообще я стараюсь научиться делать все в TopoCAD, однако программа молодая, и возможности ограничены. Civil ставил, но что-то разобраться не получается.

[Olga_@@@]

Re-Maker, этот лисп дорисовывает Мтексту бэкграунд, не создавая лишних примитивов и сохраняя возможность редактирования мтектов.

Команда textmask на большом количестве объектов у меня глючит, т.е. сначала все замечательно, а через некоторое время все тексты оказываются под маской.
Чем это вызвано, не знаю.

Кстати, неужели в AutoCAD нет возможности вращать несколько объектов, где в качестве опорных точек были бы математические центры объектов.

Объекты? у которых в свойствах есть Rotation (угол поворота)? можно можно крутить, меняя этот угол прямо в окне свойств. Для предварительного выбора, если вы работаете с Civil, Map или Land Desktop, удобно пользоваться командой Select Similar (Выбрать подобные).

[VVA]

Olga_@@@,

Команда textmask на большом количестве объектов у меня глючит, т.е. сначала все замечательно, а через некоторое время все тексты оказываются под маской

Возможно это тебе поможет. И еще просьба выслать глючный чертеж мне на почту. Мне он нужен для теста, а то в последнее время такие черчежи уже и не попадаются.

[Olga_@@@]

VVA, файл выложить не могу, генплан города - ДСП.
Причины глюка предположить трудно, если только проблема не связана с версией ET. В том файле не только 3 человека поработали, но еще много чего импортировано из разных программ, от разных исполнителей. Глюки наблюдала в ET под Land Dasktop 2005 (англ.)
За ссылку спасибо. Посмотрела. При случае испытаю Ваш лисп.
Но, в textmask меня не устраивает еще нередактируемость мтекcта после наложения маски.

[Re-Maker]

Еще кое-что связанное с горизонталями. С текстом все получилось, т.е. горизонталь под ним не видна, хотя реально осталась целой. А возможно ли добиться такого же эффекта допустим с линией? Поверх горизонталей проходит две линии, обозначающие дорогу. Хотелось бы, не испульзуя Trim, т.е. не нарушая целостность горизонталей, спрятать их там, где проходят дороги. Чтобы внутри дорог горизонталей не было.

[Olga_@@@]

Re-Maker, команда _wipeout.
Посмотрите, может быть подойдет.

Сообщение от Re-Maker Еще кое-что связанное с горизонталями. С текстом все получилось, т.е. горизонталь под ним не видна, хотя реально осталась целой. А возможно ли добиться такого же эффекта допустим с линией? Поверх горизонталей проходит две линии, обозначающие дорогу. Хотелось бы, не испульзуя Trim, т.е. не нарушая целостность горизонталей, спрятать их там, где проходят дороги. Чтобы внутри дорог горизонталей не было.

Ну, можно тем же методом скрытия горизонталей под маской. Есть такая команда в AutoCAD МАСКИРОВКА (_WIPEOUT). Правда есть такой нюанс, она работает только с замкнутыми полилиниями, поэтому чтобы срыть линии пересекающие дорогу нужно будет скрывать границы маски с помощью опции "контур" все той же команды МАСКИРОВКА. Но это ручной способ. Может, кто и программку какую подкинет.

Offtop: Добавлено:
Угу, оказывается я так медленно пишу...

[skkkk]

Команда _wipeout тебе поможет. Это та же маска, только обособленная. Только надо тогда еще освоить панель Порядок прорисовки (Draworder) - там все просто - надо определить, какой объект будет "над", а какой "под"
Offtop: Добавлено: Давно страничку открыл и отвлекся... Насоветовали тут и без меня уж, я еще более медленно

[Re-Maker]

Сообщение от Re-Maker Нашел! На одном из буржуйских форумов Команда TORIENT! То, что нужно! Даже угол поворота указывать не надо. Там по умолчанию текст поворачивается по принципу Most Readable!

Перестала работать. Выдает следующую ошибку:

Код:

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

Select TEXT, MTEXT, ATTDEF, or BLOCK inserts w/attributes...
Select objects: Specify opposite corner: 556 found
Select objects:
556 objects were not parallel to the current UCS.
No valid objects selected.

Есть предложения?

[skkkk]

Кстати, может, кто знает, как сделать контур wipeout'а полностью невидимым? Я делаю контур из маленьких точек по вершинам. В случае с пересечением горизонтали с дорогой их (точки wipeout'а) можно спрятать за линиями дороги (порядком прорисовки), а если спрятать не за чем? Они впрочем несильно напрягают, но как-то это немастерски что ли...

[Хмурый]

skkkk, смотрим командную строку и вызывем нужную опцию команды
_wipeout Specify first point or [Frames/Polyline] <Polyline>: _F
Enter mode [ON/OFF] <ON>: _Off

рамки пропадают

[skkkk]

Класс! Спасибо, Хмурый!
Добавлено:
Упс...А как теперь этот вайпаут без рамок выделить? Никак? Поставил и навсегда?
Добавлено 2:
Понял, надо их снова включить. А если мне некоторые надо включить , а другие выключить? Нельзя?

Удалено, чтобы не повторяться...

[Re-Maker]

Вот беда.... TEXTMASK стал тоже шалить

Код:

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

Select text objects to mask or [Masktype/Offset]:
1 found
Current settings: Offset factor = 0.5000, Mask type = Wipeout
Select text objects to mask or [Masktype/Offset]:
Masking text with a Wipeout  Unknown command "PROP".  Press F1 for help.
Invalid option keyword.

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

skkkk, такой режим (частичного показа рамок) невозможен.
P.S. Нет, точно никто в FAQ не смотрит... Зря тему про "хитрый блок" делали, ой зря.

[Semvad]

Сообщение от Re-Maker Перестала работать. Выдает следующую ошибку: Код: [Выделить все] Select TEXT, MTEXT, ATTDEF, or BLOCK inserts w/attributes... Select objects: Specify opposite corner: 556 found Select objects: 556 objects were not parallel to the current UCS. No valid objects selected. Есть предложения?

Автокад пишет, что текущая система координат не совпадает с текстом.
Попробуйте поменять: _view

[skkkk]

Сообщение от Кулик Алексей aka kpblc Нет, точно никто в FAQ не смотрит... Зря тему про "хитрый блок" делали, ой зря.

Ну не сердись. Нет, ну откуда же мне знать, что "хитрый блок" на языке профессионалов означает "режим частичного показа рамок вайпаута с большими заморочками"? А все темы прочесть тут не представляется мне возможным. А вот благодаря тебе совсем-совсем не зря создавали темку, спасибо, что навёл, и Vove заодно - что создал!И всем - что помогали! И мне - что читать сейчас её буду

[Re-Maker]

Сообщение от Semvad Автокад пишет, что текущая система координат не совпадает с текстом. Попробуйте поменять: _view

Не помогает...

Как torient, так и textmask выдают ошибку, после использования .align для Shift/Rotate/Scale горизонталей и текста.
Сейчас проблема в том, что после использования команды .align, маска под текстами исчезает, а проделать опять textmask не получается

Исследую дальше...

Итак, я копирую в буфер обмена горизонтали и текст, к которому уже применил torient и textmask. С ориентацией все ок, а вот вокруг маски почему-то стала появляться белая рамка. Т.е. каждый текст обрамлен в рамочку. Далее с помощью двух общих точек (Source and Destination) командой .align я перемещаю, врощаю и масштабирую все горизонтали и текст. В результате, рамки вокруг текста остаются, однако сама маска прозрачная и под ней опять видная линия горизонтали.

Ребята, помогите, совсем запутался. Теперь маска работает, но не могу избавиться от рамок

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

skkkk, в той теме очень подробно рассматривается применение wipeout'ов внутри блоков. По-моему, там же были "задеты" вопросы порядка отрисовки и использования пустого растра внутри дин.блоков...

[Хмурый]

Re-Maker, что-то у тебя с AutoCAD'ом не то. Переустановить в режиме восстановления файлов
для отключения рамок- см. сообщение #21

[Re-Maker]

Сообщение от Хмурый Re-Maker, что-то у тебя с AutoCAD'ом не то. Переустановить в режиме восстановления файлов для отключения рамок- см. сообщение #21

Ууууууууууууу, какая прелесть! Получилось!
Наверное все же со мной уже что-то не то... переутомился...

[Re-Maker]

Возобновляю тему, ибо возникла еще одна проблема, с которой я никак не могу разобраться.

Итак, я уже писал, что импортирую в AutoCAD горизонтали в виде dwg файла из программы TopoCAD v11. Все вроде ничего, НО... горизонтали, ведут себя странно. Точнее не горизонтали, а значение Z (высота).

Требуется:
Чтобы значение Z любой горизонтали, соответствовало ее высотной отметке. То есть, если на горизонтали стоит отметка 79, значит ее Z (высота) должна быть также равна 79.0000, если 80 - значит Z = 80.0000.

В чем проблема?
1) Если выделить любую горизонталь (например 79) и пройтись мышкой по ее узлам (синие квадратики), то вместо постоянной 79.0000 для значения Z я вижу 65.8602, 65.8603, 65.8605 и т.д.

2) Фактическая высота горизонтали не соответствует надписанной. Т.е. выделяю горизонталь с отметкой 79, жму на Ctrl + 1 и в Properties вижу Elevation 52.6629.
Что ж, думаю, 79 - 52.6629 = 26.3371. Просто сместил все горизонтали вверх на 26.3371 и теперь Elevation показывает 79.000, но...

3) Высота узлов опять полный нонсенс - 92.1973, 92.1974, 92.1976, да к тому же нонсенс "динамичный", т.е. каждый узел отличается от предыдущего на +-0.0001 или 0.0002 метра. Что это за объект такой 2D Polyline, у которого каждый узел имеет свою высоту???

далее

4) Выделаю горизонталь рядом - 80 или 78 - и, в Elevation для них, вижу 79.9997 и 78.0002 соответственно.

Я в ауте... ПОМОГИТЕ!

[Re-Maker]

Кажись задачка не из легких...

[engngr]

Криво вставляешь, имхо. Навскидку.

[Re-Maker]

Сообщение от engngr Криво вставляешь, имхо. Навскидку.

А мне кажется это результат .align по двум точкам и масштабированием.

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

http://forum.dwg.ru/showthread.php?t=30619