[cheshiki1]

Есть 10 разных по длине размеров от одной базы. Как сделать чтобы размеры не менялся при сжатии детали. На данный момент я использую свойства каждого размера. Долго получается.

[Солидворкер]

Картинку?

[CaMoCAD]

в блок все загнать и масштабировать

[cheshiki1]

вот пример.

[Profan]

Может, вот это поможет:
http://www.caduser.ru/forum/index.ph...D=44&TID=25914

[cheshiki1]

Спасибо. Тема закрыта.

[rzinnurov]

Сообщение от cheshiki1 Спасибо. Тема закрыта.

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

[cheshiki1]

Появился вопрос. При переходе размера в текст появляются четыре знака после запятой. Как избавиться от них. Тоесть мне необходимо чтобы величина размера изначально измерялась до одного числа после запятой. Установка точности размера не помогает.

[Profan]

Вариант программы:

Код:

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

;**************** overdim.lsp ********************************
;       Преобразование размера для последующего
;       его масштабирования (1 знак после точки)
;       Автор Владимир Громов aka Profan
;

(defun C:OVERDIM ( / dim text)
(setq dim (car (entsel "\n Выберите ассоциативный размер: ")))
(if (and dim (= (cdr (assoc 0 (entget dim))) "DIMENSION"))
    (progn
    (setq dim (entget dim))
    (setq text (cdr (assoc 42 dim)))
    (setq text (rtos text 2 1))
    (setq dim (subst (cons 1 text) (assoc 1 dim) dim))
    (entmod dim)
    (princ "\n Готово.")
    ) ;progn
    (princ "\n Ничего не выбрано или объект не размер.")
) ;if
(princ)
)

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

Сообщение от cheshiki1 Появился вопрос. При переходе размера в текст появляются четыре знака после запятой. Как избавиться от них. Тоесть мне необходимо чтобы величина размера изначально измерялась до одного числа после запятой. Установка точности размера не помогает.

Может, luprec сработает? И без лиспа?

[cheshiki1]

Спасибо. Исправленный код помог. Не подскажете где это прописано.

[Profan]

Это прописано здесь:
(setq text (rtos text 2 1))

[cheshiki1]

Я так и предположил. Но при изменении 1 на 0 к-во после запятой осталось 1. Или обе цифры важны?

[Profan]

Ну, не знаю. У меня при
(setq text (rtos text 2 0))
величина размера отображается целым числом.

[cheshiki1]

Извеняюсь. Точно все работает. Наверно чтото не так сделал ранее.
Оказывается надо было перезапустить код в загрузке приложений или весь автокад.