[kp+]

Как включить рамку вокруг разм. текста для одного из размеров, не создавая специально для этого отдельный стиль?

[alisa]

БЫЛ ТУТ ГДЕ-ТО В DOWNLOAD СБОРНИК СИМПАТИЧНЫХ УТИЛИТОК
"G-TOOLS!", ТАК ВОТ ТАМ ЕСТЬ ФУНКЦИЯ "РАМКА ВОКРУГ ТЕКСТА".
САМА ПОЛЬЗУЮСЬ. НАДЕЮСЬ, ПОМОЖЕТ.

[alisa]

ЗАЧЕМ-ТО САМА ВКЛЮЧИЛА ПОИСК, А ОН ГОВОРИТ - ФИГУШКИ.
ИЗ ВРЕДНОСТИ СТАЛА ИСКАТЬ, И НАШЛА ЖЕ: СТР.6 DOWNLOAD, ЗАГРУЗКА ОТ 31.10.05.
ВРЕТ ПОИСК-ТО, ВЫХОДИТ...

[asys]

в свойствах размера, в разделе tolerance, см. картинку
[ATTACH]1138691730.jpg[/ATTACH]

[Jurasic]

Написал в подражание Лентяю :

Код:

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

(defun C:J_GAPOVER ()
  (setq	*doc* (vla-get-ActiveDocument (vlax-get-acad-object))
	 ass   (vla-get-ActiveSelectionSet *doc*)
  )
  (vla-SelectOnScreen
    ass
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbInteger '(0 . 0))
      '(0)
    )
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbVariant '(0 . 0))
      (list "*dimension")
    )
  )
  (vlax-for *acadObj* ass
    (if
      (vlax-property-available-p *acadObj* 'TextGap T)
       (progn
	 (setq gap (vlax-get-property *acadObj* 'TextGap))
	 (setq gap_override (- 0.0 gap))
	 (vlax-put-property *acadObj* 'TextGap gap_override)
       )
    )
  )
  (princ)
)

Программа включает и отключает рамку вокруг размерного текста.
Все права на переменную ass зарезервированы! (с) Лентяй

[Лентяй]

Jurasic: Все права на переменную ass зарезервированы! (с) Лентяй

Спасибо, родной! [sm312] Терперь можно умереть спокойно, ибо эстафета передана в надежные руки. :twisted:
А вообще, если уж писать в моем стиле, то так

Код:

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

(defun C:J_GAPOVER (/ ass) 
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        ass (vla-get-ActiveSelectionSet adoc)) 
  (vla-SelectOnScreen ass (vlax-safearray-fill (vlax-make-safearray vlax-vbInteger '(0 . 0)) '(0))
        (vlax-safearray-fill (vlax-make-safearray vlax-vbVariant '(0 . 0)) (list "*dimension"))) 
  (vlax-for obj ass
    (if (vlax-property-available-p obj 'TextGap T) (vla-put-TextGap obj (- 0.0 (vla-get-TextGap obj)))));vlax
  (princ) 
);end

[Jurasic]

Изменения внесенные Лентяем-гуру незначительные, поэтому прошу считать подражание защитанным... Ну и конечно перед каждым вариантом добавить

• (vl-load-com)

так на всякий случай!!

[Лентяй]

Изменения внесенные Лентяем-гуру незначительные, поэтому прошу считать подражание защитанным...

Лизарюция: Быть по сему.
Подписано: Я, любимый. [sm2001]

[kp+]

Сообщение от Asys в свойствах размера, в разделе tolerance, см. картинку [ATTACH]1138691730.jpg[/ATTACH]

RULEZZZ!!! Спасибо!