• Макс
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 33
  • Спасибо: 0

Тема: Background Mask для Mtext

величина Border Offset Factor по умолчанию равна 1.5. Как сделать, чтобы по умолчанию она была, допустим, 1.1?
Есть ли переменная, которая отвечает за эту величину?

  • Victor
  • Восстановленный участник
  • На форуме с 26 марта 2007г.
  • Сообщений: 270
  • Спасибо: 0

Re: Background Mask для Mtext

может макросом
^C^Ctextmask \o;1.1

  • kp
  • Восстановленный участник
  • На форуме с 17 марта 2005г.
  • Сообщений: 254
  • Спасибо: 0

Re: Background Mask для Mtext

Есть ли переменная - хрен его знает
Можно так

(defun c:bmon (/
           ss
           mts
           vl_mts
           mask_on
           mt
           mt_dxf
           leader
          )
  (setq ss (ssget '((0 . "MTEXT"))));выбор мтекстов в чертеже
  (setq mts (ssnamex ss))
  (setq ss nil)
  (setq mts (mapcar 'cadr mts));выкидывание номеров набора из списка
  (setq mts (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) mts))    ;выкидывание способов набора из списка
  (setq vl_mts (mapcar 'vlax-ename->vla-object mts))
  (mapcar '(lambda (x) (vla-put-BackgroundFill x :vlax-true)) vl_mts)
  (foreach mt mts
    (setq mt_dxf (entget mt))
    (setq mt_dxf (subst (cons 63 256) (assoc 63 mt_dxf) mt_dxf))
    (setq mt_dxf (subst [b](cons 45 1.25)[/b] (assoc 45 mt_dxf) mt_dxf))
    (setq mt_dxf (subst (cons 90 3) (assoc 90 mt_dxf) mt_dxf))
    (entmod mt_dxf)
    (if (assoc 330 mt_dxf)
      (progn
        (setq leader (cdr (assoc 330 mt_dxf)))
    (vl-cmdf "_draworder" leader "" "_a" mt "")
      )
    )
  )
)
(defun c:bmoff(/
           ss
           mts
           vl_mts
           mask_on
           mt
           mt_dxf
           leader
          )
  (setq ss (ssget '((0 . "MTEXT"))));выбор мтекстов в чертеже
  (setq mts (ssnamex ss))
  (setq ss nil)
  (setq mts (mapcar 'cadr mts));выкидывание номеров набора из списка
  (setq mts (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) mts))    ;выкидывание способов набора из списка
  (setq vl_mts (mapcar 'vlax-ename->vla-object mts))
  (mapcar '(lambda (x) (vla-put-BackgroundFill x :vlax-false)) vl_mts)

BMON включает маску текста, BMOFF  - выключает.
величина Border Offset Factor здесь равна 1.25. Можно изменить по вкусу в группе 45 (выделено жирным)
Если Mtext связан с выноской, она станет на передний план (IMHO, удобно)

  • kp
  • Восстановленный участник
  • На форуме с 17 марта 2005г.
  • Сообщений: 254
  • Спасибо: 0

Re: Background Mask для Mtext

Пардон, куда-то пропала последняя скобка

(defun c:bmoff(/
           ss
           mts
           vl_mts
           mask_on
           mt
           mt_dxf
           leader
          )
  (setq ss (ssget '((0 . "MTEXT"))));выбор мтекстов в чертеже
  (setq mts (ssnamex ss))
  (setq ss nil)
  (setq mts (mapcar 'cadr mts));выкидывание номеров набора из списка
  (setq mts (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) mts))    ;выкидывание способов набора из списка
  (setq vl_mts (mapcar 'vlax-ename->vla-object mts))
  (mapcar '(lambda (x) (vla-put-BackgroundFill x :vlax-false)) vl_mts)
)

  • Макс
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 33
  • Спасибо: 0

Re: Background Mask для Mtext

подскажите, как запускать функции bmon, bmoff? Какую команду писать в кнопке? ^C^C_bmon? Или как-то иначе? Не получается запустить.

  • kp
  • Восстановленный участник
  • На форуме с 17 марта 2005г.
  • Сообщений: 254
  • Спасибо: 0

Re: Background Mask для Mtext

а что при этом происоходит? что пишет АвтоГад?

  • Макс
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 33
  • Спасибо: 0

Re: Background Mask для Mtext

заработало. Что было - фиг знает. Похоже, просто помогла перезагрузка компьютера. Огромное спасибо за помощь!!!

  • Макс
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 33
  • Спасибо: 0

Re: Background Mask для Mtext

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

  • kp
  • Восстановленный участник
  • На форуме с 17 марта 2005г.
  • Сообщений: 254
  • Спасибо: 0

Re: Background Mask для Mtext

В стандартном редакторе - не знаю. Наверное, нельзя.
А вот в редакторе многоуважаемого VetalBY - МОЖНО!
См. тут: https://www.caduser.ru/forum/topic43376.html

  • Макс
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 33
  • Спасибо: 0

Re: Background Mask для Mtext

благодарю!