[===AAA===]

Всем привет!

Попался вот непонятный файл, в котором в Модели на виде "Спереди"
и "Сзади" появляется какая-то непонятная красная стрелка.

Судя по тому, что при зуммировании её экранный масштаб не меняется,
это какая-то настройка визуализации. Может быть.

Что это такое и как ЭТО удалить?

[AlexCondor]

Подержите мышку на ней. Пишет: "Geografic Marker"
GEOMARKERVISIBILITY On-Off

P.S. Или уж если это совсем не нужно - _.GEOREMOVE

[doctorraz]

Лезет из нанокада...
Вернее в него от топографов, а учитывая, что нано геомаркер скрыть удалить не умеет.. Он его показывает при копипасте из других чертежей
Потом эту красоту видят все))

[Cfytrr]

Сообщение от doctorraz Потом эту красоту видят все))

[doctorraz]

Сообщение от Cfytrr Узнаю проделки старины Флинта"

Нано ее просто делает видимой и тянет при копировании.
Не знаю тянет ли геомаркер при копировании Автокад)

[===AAA===]

Ну - в принципе - NC скрывать её тоже умеет.

Ещё бы понять (Лиспом) содержит ли чертёж геометки,
так и вообще бы славно. Они в каком-то словаре живут?

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

Словарь на пространстве модели, запись с именем ACAD_GEOGRAPHICDATA.

----- добавлено через ~6 мин. -----

Код:

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

 (vl-load-com)
(defun c:erase-geolink (/ adoc ms dict record)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq ms (vla-get-modelspace adoc))
  (if (equal (vla-get-hasextensiondictionary ms) :vlax-true)
    (progn
      (setq dict (vla-getextensiondictionary ms))
      (if (= (type (setq record (vl-catch-all-apply
                                  (function
                                    (lambda ()
                                      (vla-item dict "ACAD_GEOGRAPHICDATA")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                   ) ;_ end of setq
             ) ;_ end of type
             'vla-object
          ) ;_ end of =
        (vla-delete record)
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
) ;_ end of defun