[AlexCondor]

Очень давно пользуюсь функцией построения размерной цепи от базовой точки. Писал ее не я, сам в программировании силен не очень, нашел ее на этом форуме или аналогичном. При черчении в масштабе 1:1 функция со своей задачей справляется превосходно! Изменение масштаба размеров она тоже учитывает, а масштаб чертежа нет. Прошу помощи знатоков LISP'а, может найдется у кого-нибудь время, добавить в функцию возможность указания масштаба чертежа и конечно учитывание его при вычислении размеров (перебивать их просто надоело). Заранее огромное спасибо.

[gomer]

То есть за просто так копаться в 30 кб чужого кода? мдааа

[ssn]

самое непонятное в этой ситуации - почему не воспользоваться штатной функцией проставления размеров... хоть цепочки, хоть от базы. не понятно.

[AlexCondor]

ssn, размерная цепочка которая есть в AutoCAD'е, в моем 2006-ом точно, это совсем не то, а многоэтажное построение размеров от базы занимает слишком много площади чертежа.

[gomer]

стиль размеров не пробовал настраивать?

[AlexCondor]

gomer, Если подскажете где это настраивается, буду очень благодарен!

[ciril]

А не пробовали F1 нажимать?

[AlexCondor]

ciril, Я в AutoCAD'е работаю не первый год, и прекрасно знаю что и где настраивается, а с такими советами могли бы и промолчать!

[ciril]

стиль размеров не пробовал настраивать?

gomer, Если подскажете где это настраивается, буду очень благодарен!

я разве оспариваю ваш многолетний опыт

[AlexCondor]

ciril, Что думаешь самый умный, найдешь, дам конфетку!
Для справки

[ciril]

Что искать-то? Где в 2006 акаде настраивается масштаб основных единиц? Ничего, что 2015 версия в продаже Я сам в упор не помню, есть ли он там, в более поздних - в свойствах-основные единицы-масштаб линейных размеров. Где в коде, вами же приложенном, это настраивается? Так, знаете ли, в ЭТОМ рыться - проще переписать Как сделать так, чтобы не перебивать вычисленные размеры, так чертеж приложите, который выходит после, если все тексты размеров на одном слое, то вопрос вполне решаем.

[Krieger]

Сообщение от AlexCondor ciril, Что думаешь самый умный, найдешь, дам конфетку! Для справки

Вопрос в том чтобы сделать как на картинке?
Размерный стиль элементарно настраивается.

Первый размер командой DIMLINEAR, следующие по DIMBASELINE с нулевым отступом. Масштаб аннотативный.

[ciril]

Код:

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

 (defun c:размасш  (/ x00 x01 x02 x03 x04 x05)
  (initget 7)
  (setq x00 (getreal "\nВведите масштабный коэффициент: "))
  (princ "\nВыберите тексты размеров для масштабирования...")
  (while (setq x01 (ssget '((0 . "TEXT"))))
    (repeat (setq x02 (sslength x01))
      (or (zerop (setq x05 (atof (cdr (setq x04 (assoc 1 (setq x03 (entget (ssname x01 (setq x02 (1- x02)))))))))))
          (entmod (subst (cons 1 (rtos (* x00 x05) 2 0)) x04 x03))))
    (setq x01 nil)
    (princ "\nВыберите тексты размеров для масштабирования..."))
  (princ))
(princ "\nМасштабирует значения текстов, вызывается РАЗМАСШ")

Какая справка, такой и код Вводите масштабный коэффициент, выбираете тексты размеров, пока не надоест, на блокированном слое масштабироваться не будут.

[AlexCondor]

За размерный стиль отдельное спасибо, вроде разобрался, настроил, даже 0 можно поставить указав выносную первого размера и подавив стрелку. И за код спасибо.

P.S. Да уж, такой и код, не работает он.

[ciril]

Да не за что