[srazv]

Уважаемые специалисты. Столкнулся с простой на первый взгляд, но неразрешимой для меня задачей.
Имеется план этажа со множеством нанесенных размеров. Необходимо увеличить масштаб чертежа в 2 раза, но при этом, естественно, сохранить все размеры. Т.е. если стояла ширина помещения 2500, то и после масштабирования она должна остаться 2500, а не стать 5000. Конечно, можно explode (расчленить) все размеры и потом масштабировать, но это неудобно, т.к. в процессе работы их приходится потом редактировать (переносить), а это занимает теперь больше времени. Мне кажется, что должна быть какая-то системная переменная, которая бы позволяла так масштабировать, но я её не нашел.
Помогите, пожалуйста.

[Sergun'ka]

Видовой экран тебе в помощь.

[gve2005]

Решение вопроса ветки здесь: http://autocad-master.ru/index.php/17-q-q/186-gg-

[sasha_lif]

gve2005,

Иногда бывают такие ситуации когда нужно отмасштабировать чертеж (в меньшую сторону), но так чтобы после масштабирования его значения его размеров остались прежними. Сделать это можно 2 способами: 1. Расчленить размеры до масштабирования, используя инструмент "Расчленить" ("Взорвать" в старых версиях автокада) на панели управления "Редактировать", а затем проводить масштабирование. 2. Изменить свойство "масштаб измерений" в противоположную сторону от изменения величины масштаба.

Я знаю еще как минимум один способ, на этом форуме была программка mes2txt:

Код:

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

(defun C:mes2txt ( / ass flag pfx) 
  (prompt "\nВыберите размеры для перезаписи") 
  (ssget) 
  (setq ass (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))) 
  (vlax-for dmob ass 
    (if (wcmatch (vla-get-ObjectName dmob) "*Dimension") 
      (progn 
   (if (= (vla-get-ObjectName dmob) "AcDb2LineAngularDimension") 
     (vla-put-TextOverride dmob (strcat (rtos (/ (* (vla-get-measurement dmob) 180) pi) 
      2 (vla-get-TextPrecision dmob)) "%%D")) 
     (progn (cond ((= (vla-get-ObjectName dmob) "AcDbRadialDimension") (setq pfx "R")) 
         ((= (vla-get-ObjectName dmob) "AcDbRotatedDimension") (setq pfx "")) 
         ((= (vla-get-ObjectName dmob) "AcDbDiametricDimension") (setq pfx "%%C"))) 
       (vla-put-TextOverride dmob (strcat pfx (rtos (vla-get-measurement dmob) 
      (vla-get-UnitsFormat dmob) (vla-get-PrimaryUnitsPrecision dmob)))));progn 
   );if 
   (setq flag 1))));vlax-for 
  (if (null flag) (alert "Не то выбрал, дубина! Будь внимательнее!")) 
);end

Спасибо ее автору, иногда очень удобно

Offtop: P.S. Сейчас , наверно, начнется война наподобие этой: Автокад в интернете, самое начало :
http://forum.dwg.ru/showthread.php?p=389880&#post389880