[Red Nova]

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

[Хмурый]

у меня десяток размерных стилей, как у некоторых - десяток текстовых стилей, или стилей таблиц и т. д. Ничего в этом не считаю зазорным. В наличии нового размерного стиля есть сложность только для программистов. ЯТД.

[Red Nova]

Ну зазорного во втором размерном стиле конечно же ничего нету. Но смысл топика именно в том чтобы найти этому альтернативу.

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

Red Nova, тебя интересует "ручной" вариант или программный?

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

Так, вариант программный:

Код:

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

(defun c:mask-dims (/ *error* adoc selset)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (= (type (setq selset
                      (vl-catch-all-apply
                        '(lambda ()
                           (prompt
                             "\nВыберите размеры, для которых выполнять маскирование <Отмена> : "
                             ) ;_ end of PROMPT
                           (ssget "_:L" '((0 . "DIMENSION")))
                           ) ;_ end of LAMBDA
                        ) ;_ end of VL-CATCH-ALL-APPLY
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (foreach item (mapcar 'vlax-ename->vla-object
                          (_dwgru-conv-pickset-to-list selset)
                          ) ;_ end of mapcar
      (foreach prop (list (cons "TextFill" :vlax-true)
                          (cons "TextFillColor" 0)
                          ) ;_ end of list
        (vlax-put-property item (car prop) (cdr prop))
        ) ;_ end of foreach
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Ручной - см.аттач (проверял на 2008)

[Red Nova]

kpblc,

Ручной - см.аттач (проверял на 2008)

Ну это я знаю
За программу спасибо. Но честно говоря получилось что-то не то. Посмотри пример.

[Grinzaid]

Код:

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

(defun c:df ()

(command "select" pause "")

(Setvar "DIMTFILL" 1)

(command "dim1")

(command "up" "p" "")

(Setvar "DIMTFILL" 0)

)

[Red Nova]

Grinzaid, Спасибо большое. Все оказалось очень просто.

[Red Nova]

Grinzaid, Вот что обнаружил. У меня стоит СПДС, и я пользуюсь их масштабами дли размеров. Эти масштабы кроме прочих влияют и на переменную dimscale. Так вот, если масштаб размера 1:10, а текущий масштаб установлен 1:15, то в результате применения твоего кода размер приобретает текущий масштаб. Можно это исправить?

[andrew_ro]

Grinzaid, а нельзя ли создать похожий лисп, который бы отключал вторые (именно вторые!) выносную и размерную линии у выбранного размера. Очень не хочется для этого открывать окно свойств. И заодно вызывал бы сразу команду редактирования размерного текста _dimtedit.

[Red Nova]

Не у кого нет идей как исправить лисп с #7, по условиям с #9?

[Grinzaid]

U menia na rabore stoit ACAD 2006, i v nem voobshe net peremennoi DIMTFILL.
Poprobuiu na vihodnih vikroit vremia i poigratsia s etim doma. Ya rumaiu, chto eto reshaemo.
Chto takoe СПДС? Eto ADT? Kakaya versia?

[vasilyis]

Сообщение от Grinzaid Chto takoe СПДС? Eto ADT? Kakaya versia?

СПДС, это arx-примочка к ACAD'у для выполнения чертежей по российскому стандарту. Вам в Израиле она не нужна.

[Startrek]

(defun c:df ()
(setq scl (getvar"dimscale"))
(command "select" pause "")
(Setvar "DIMTFILL" 1)
(command "dim1")
(command "up" "p" "")
(Setvar "DIMTFILL" 0)
(setvar "dimscale" scl)
(princ)
)

[Red Nova]

Startrek, Неа, не помогло. Надо как-то узнать dimscale размера и потом его востоновить. Твой алгоритм делает что-то не верно.

[Startrek]

A esli tak, sam proverit' nemogu, neyt acada pod rukoi

(defun c:df ()
(setq scl (getvar"dimscale"))
(setq dmf (getvar "dimtfill"))
(command "select" pause "")
(Setvar "DIMTFILL" 1)
(command "dim1")
(command "up" "p" "")
(Setvar "DIMTFILL" dmf)
(setvar "dimscale" scl)
(command "dim1")
(command "up" "p" "")
(command "draworder" "p" "" "front" "")
(princ)
)