[Ingpro]

Дали файл в работу, в нём что-то странное с размерами, в свойствах и стилях ничего особенного...
В редакторе текста размерный текст съезжает влево, в чем причина, не пойму

[name02]

Что-то с размерным стилем, т.к. с другим стилем размер нормально функционирует

[Ingpro]

Сообщение от name02 Что-то с размерным стилем

Если разбить размер, то в тексте (в свойствах) можно увидеть \A1;3,20, а можно ли отформатировать текст в размере, не разбивая размер?
Может есть лисп? В этом же файле и в мультивыносках такая же фигня с текстом...

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

Поиск по форуму - StripMText, насколько я помню.

[name02]

Сообщение от Ingpro Если разбить размер, то в тексте (в свойствах) можно увидеть \A1;3,20, а можно ли отформатировать текст в размере, не разбивая размер?

А1 означает, что текст в размере выровнен по центру. Других кодов форматирования в тексте нет, поэтому StripMText тоже не сможет помочь.
Проще всего сделать заново размерный стиль с аналогичными "неправильному" стилю настройками и установить его размерам в чертеже

[Ingpro]

Сообщение от name02 А1 означает, что текст в размере выровнен по центру. Других кодов форматирования в тексте нет, поэтому StripMText тоже не сможет помочь.

Да, StripMText не справляется...

[koMon]

в 2026 этот косяк не наблюдается.

[Ingpro]

Сообщение от koMon в 2026 этот косяк не наблюдается

В 2015 и в 2021 наблюдается...
Интересно, как вообще можно "испортить" размерный текст, если просто текст размера перебить, никаких проблем не возникает?

[koMon]

действительно. а присланный чертёж был сделан именно в автокаде или в параллельном софте?

[Ingpro]

Сообщение от koMon действительно. а присланный чертёж был сделан именно в автокаде или в параллельном софте?

В AutoCAD 2021 rus. Но возможно (точно не знаю) участие "чужих" при создании профилей...

[Dinoxromniy]

Коллеги, к сожалению нет доступа к файлам из интернета на десктопе, поэтому сам файл посмотреть не могу - но исходя из вашего описания вопрос, а если выделить размер, в его свойствах по Ctrl+1 в секторе "текст" в графе Text override вбить знаки "больше меньше" - которые <> - разве текст не должен вернуться к исходному размеру? У него эта центровка в самом стиле прописана?

[koMon]

если бы всё было бы так просто)))
в этих размерах textoverride в терминах свойств размера НЕ установлен. и определяется только на уровне составного текста динамического блока размера. какой-то словарный косяк имхо.

Код:

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

;   Measurement (RO) = 9.30032
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 1313
;   ObjectName (RO) = "AcDbAlignedDimension"
;   OwnerID (RO) = 1128
;   PlotStyleName = "Color_30"
;   PrimaryUnitsPrecision = 2
;   Rotation = 0.0
;   RoundDistance = 0.1
;   ScaleFactor = 0.01
;   StyleName = "200"
;   SubUnitsFactor = 100.0
;   SubUnitsSuffix = ""
;   SuppressLeadingZeros = 0
;   SuppressTrailingZeros = -1
;   SuppressZeroFeet = 0
;   SuppressZeroInches = 0
;   TextColor = 256
;   TextFill = 0
;   TextFillColor = 0
;   TextGap = 50.0
;   TextHeight = 250.0
;   TextInside = 0
;   TextInsideAlign = 0
;   TextMovement = 1
;   TextOutsideAlign = 0
;   TextOverride = ""

Код:

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

Command: (cdr (assoc 1 (entget (car (nentsel)))))
Select object: "\\A1;9,3"

при этом код форматирования \A по логике никак не должен влиять на горизонтальное выранивание, поскольку предназначен для выравнования вертикального.

[Ingpro]

Сообщение от koMon Command: (cdr (assoc 1 (entget (car (nentsel))))) Select object: "\\A1;9,3"

Если разбить размер, то в свойствах текста можно увидеть \A1;9,3, а всё-таки можно ли отформатировать текст в размере, не разбивая размер?

[Dinoxromniy]

koMon, спасибо, ясно.

Сообщение от Ingpro а всё-таки можно ли отформатировать текст в размере, не разбивая размер?

Ingpro, на форум я пришел практически с вашим вопросом, только в части выносок.
К сожалению, в причинах и элегантных решениях я так и не смог разобраться, а вот с костылями все достаточно просто.
1. Стиль размеров у вас не сильно сложный, создаете на основе другого стиля новый стиль, настраиваете его по образу и подобию проблемного стиля 200.
2. Выделяете все вхождения размеров через ._filter / ._SELECTSIMILAR / ._QSELECT / ._SELSIMSEL
3. ._ISOLATEOBJECTS
4. Чертите новый размер стилем по п.1, ._MATCHPROP и применяете ко всем проблемным размерам, ._UNISOLATEOBJECTS , сносите стиль 200 и пользуетесь вместо него новым.

С выносками у меня такой подход сработал, с вашими размерами из приложенного куска вроде тоже получилось.

[Ingpro]

Сообщение от Dinoxromniy 1. Стиль размеров у вас не сильно сложный, создаете на основе другого стиля новый стиль, настраиваете его по образу и подобию проблемного стиля 200. 2. Выделяете все вхождения размеров через ._filter / ._SELECTSIMILAR / ._QSELECT / ._SELSIMSEL 3. ._ISOLATEOBJECTS 4. Чертите новый размер стилем по п.1, ._MATCHPROP и применяете ко всем проблемным размерам, ._UNISOLATEOBJECTS , сносите стиль 200 и пользуетесь вместо него новым.

Dinoxromniy, спасибо, это всё понятно, но хотелось бы быстрее и проще, но...

[Dinoxromniy]

Ingpro, создать стиль даже запинаясь нога за ногу вряд ли займет больше 5 минут. Пусть еще минута на применить, ну пусть на круг все десять минут будет.

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

[Ingpro]

Сообщение от Dinoxromniy Мне кажется, даже если есть способы быстрее

А если всё-таки попробовать программно?

Код:

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

 (defun c:unform-dimText ( / ss n ent entData dimText cleanText)
(vl-load-com)
  (setq ss (ssget '((0 . "DIMENSION")))) 
  (if ss
    (progn
      (setq n (sslength ss))
      (repeat n
        (setq ent (ssname ss (setq n (1- n))))
        (setq entData (entget ent))
        (setq dimText (cdr (assoc 1 entData))) 
        (if (and dimText (vl-string-search "\\A1;" dimText)) 
          (progn
            (setq cleanText (vl-string-subst "" "\\A1;" dimText)) 
            (setq entData (subst (cons 1 cleanText) (assoc 1 entData) entData))
            (entmod entData) 
            (entupd ent) 
          )
        )
      )
    )   
  )
  (princ)
)

Этот код не удаляет форматирование, нужно что-то изменить... Может профи посоветуют чего?

[koMon]

Ingpro,
нельзя убрать то, чего нет)))

Код:

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

Select object:
(-1 . <Entity name: 246a999c9b0>)
(0 . "DIMENSION")
(330 . <Entity name: 245e900f9f0>)
(5 . "45B")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
(62 . 30)
(370 . 25)
(100 . "AcDbDimension")
(280 . 0)
(2 . "*D2")
(10 2740.64 1151.8 2466.71)
(11 2749.96 1153.74 2466.71)
(12 0.0 0.0 2466.71)
(70 . 33)
(1 . "")
(71 . 5)
(72 . 1)
(41 . 1.0)
(42 . 9.30032)
(73 . 0)
(74 . 0)
(75 . 0)
(52 . 0.0)
(53 . 0.0)
(54 . 0.0)
(51 . 0.0)
(210 0.0 0.0 1.0)
(3 . "200")
(100 . "AcDbAlignedDimension")
(13 2759.24 1150.4 616.762)
(14 2740.64 1150.53 3751.33)
(15 0.0 0.0 0.0)
(16 0.0 0.0 0.0)
(40 . 0.0)
(50 . 0.0)

[Ingpro]

Сообщение от koMon нельзя убрать то, чего нет)))

???