[Малявка]

Здравствуйте! В прилагаемом примере три образмеренных квадрата. На левом квадрате - исходные размеры. Допустим, шеф дал указание увеличить значения на размерах (для лучшей читабельности). В панели свойств изменение глобального масштаба размеров в итоге даёт средний квадрат. Значения "съезжают" на границы квадрата. Помогите с макросом, чтобы выносные линии тоже удлиннялись на величину масштабирования, как на правом квадрате. (или, наоборот, укорачивались, если уменьшаю глобальный масштаб).
Предполагаю такой алгоритм:
- выделяю все размеры (рамкой или qselect)
- указываю коэффициент масштабирования в ком. строке
- макрос сканирует поочерёдно каждый размер, запоминает его начальную и конечную точки (в моём примере на углах квадрата)
- макрос изменяет размер (аналог scale), беря за базовую точку начальную точку размера. При этом конечная точка размера занимает новое положение и меняется значение размера.
- макрос изменяет размер (глобальный масштаб). При этом изменяется высота текста размера.
- макрос протягивает конечную точку из нового положения в прежнее, на угол квадрата. При этом восстанавливается правильное значение размера.
- макрос переходит к обработке следующего размера.
Спасибо.
p.s. Работаю в AutoCAD 2008 rus. Мне нужны лишь повёрнутые и параллельные размеры.
p.p.s мне это надо потому, что такие команды от шефа поступают, как правило, когда все фундаменты уже образмерены, и он просматривает готовый чертёж.

[Lymus]

Сделайте свой собственный размерный стиль, высота текста гостирована, для читабельности высоты в 3мм хватает за глаза, ну и изначально выбирайте читабельный масштаб.

[Малявка]

Фишка в том, что это не проекты, а исполнительные схемы, в них гораздо меньше ГОСТовских ограничений. Мы делаем их даже не в масштабе, отчего и весь сыр-бор: когда-то надо сделать на А4, а когда то же самое - на А3. Только уже с меньшими масштабами. И потом, шефу не прикажешь: сказал, сделать так, ну и делаешь. А бывает, что сама прозеваю: образмерю почти весь чертёж, а в конце работы обнаружу, что надо в одном месте поставить несколько ма-а-а-сеньких размеров. Приходится все уже проставленные редактировать.

[kp+]

Поиск по словам "аннотативность", "аннотативные размеры" поможет. В 2008 эта фишка уже есть.

[5hev]

Малявка, действительно, аннотативность поможет, но не с линиями размеров. Вот для этих целей попробуй:

Код:

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

 (defun c:dimlinescale  (/ k eget c10 c14 rasst)
  (setq eget  (entget (car (entsel)))
	k (getreal "\nВведите коэф-т масштабирования: ")
	c10   (cdr (assoc 10 eget))
	c14   (cdr (assoc 14 eget))
	rasst (distance c10 c14))
  (entmod (subst (cons 10 (polar c14 (angle c14 c10) (* k rasst))) (assoc 10 eget) eget))
  )

[Малявка]

kp+, ой, каак я не люблю аннотации!!! Понимаю, что это потому, что не умею, но разобраться не могу. (блондинка, наверное)
5hev[ru], спасибо, выносные линии масштабируются как надо. Осталось ещё "прикрутить" фишку, чтобы и само значение размера меняло высоту согласно коэффициенту масштабирования.
Ну, в принципе, я смогу высоту текста менять в окне свойств (глобальный масштаб)
__________

А можно сделать так, чтобы выделять все размеры рамкой, а то макрос принимает только один размер к обработке.
Причём, чтобы выделять рамкой вообще все примитивы стадом, а макрос бы реагированл только на размеры.

[5hev]

Сообщение от Малявка А можно сделать так, чтобы выделять все размеры рамкой, а то макрос принимает только один размер к обработке. Причём, чтобы выделять рамкой вообще все примитивы стадом, а макрос бы реагированл только на размеры.

Можно

[Малявка]

5hev[ru], типа, юмор...

[5hev]

Малявка, угу

Код:

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

 (vl-load-com)
(defun c:dimlinescale  (/ k ss sname eget c10 c14 rasst)
  (setq	ss (ssget '((0 . "DIMENSION")))
	k  (getreal "\nВведите коэф-т масштабирования: "))
  (while (setq sname (ssname ss 0))
    (if	(wcmatch (vla-get-ObjectName (vlax-ename->vla-object sname))
		 "*Aligned*,*Rotated*")
      (progn
	(setq eget  (entget sname)
	      c10   (cdr (assoc 10 eget))
	      c14   (cdr (assoc 14 eget))
	      rasst (distance c10 c14))
	(entmod	(subst (cons 10 (polar c14 (angle c14 c10) (* k rasst)))
		       (assoc 10 eget)
		       eget))
	)
      )
    (ssdel sname ss)
    )
  )

[Малявка]

5hev[ru], И-и-и-и-и-и-и !!!! Типа визжу от восторга. Спасибо большое! Чмоки тя в разные приятные места.
(а нельзя, чтобы и значения меняли свою высоту и отступ от размерной линии? Ну, как "глобальный масштаб" в свойствах)

[5hev]

Малявка, можно... Так?

Код:

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

  (vl-load-com)
(defun c:dimlinescale  (/ k ss sname vlname eget c10 c14 rasst)
  (setq	ss (ssget '((0 . "DIMENSION")))
	k  (getreal "\nВведите коэф-т масштабирования: "))
  (while (setq sname (ssname ss 0))
    (if	(wcmatch (vla-get-ObjectName (setq vlname (vlax-ename->vla-object sname)))
		 "*Aligned*,*Rotated*")
      (progn
	(setq eget  (entget sname)
	      c10   (cdr (assoc 10 eget))
	      c14   (cdr (assoc 14 eget))
	      rasst (distance c10 c14))
	(entmod	(subst (cons 10 (polar c14 (angle c14 c10) (* k rasst)))
		       (assoc 10 eget)
		       eget))
	(vla-put-ScaleFactor vlname (* k (vla-get-ScaleFactor vlname)))
	)
      )
    (ssdel sname ss)
    )
  )

[Малявка]

5hev[ru], Всё! Можно считать, что день удался! Огромное спасибо на лиспик.
Не в качестве наглости, но в качестве бонуса (а вдруг понадобится?) - добавь, пожалуйста, такую же обработку и на размеры радиуса и диаметра. Хотя я ими пользуюсь редко и, в принципе, могу обработать и "ручками".
Ещё раз спасибо!

[bargool]

на вкладке Fit в конкретном стиле есть поле для ввода масштаба и у каждого конкретного размера можно менять его "Dim scale overall" - масштабирует все элементы размера. Как это переводится в локализованном автокаде - не знаю

[5hev]

bargool, да, но проблема была с линиями-выносками, которые не удлиняются судя по моему опыту, при смене масштаба аннотаций (выделил жирным). Если есть решение без лиспа - буду только рад!

[bargool]

разбирайтесь, что у вас не так. образмерил прямоугольник размерами со стандартным стилем. скопировал и у правых размеров выставил "Dim scale overall" в свойствах в 3. Отмасштабировались все элементы размера, см. приложение. Такой же эффект будет и изменении этого значения у стиля.

[5hev]

bargool, однако расстояние от опорных точек выносных линий размеров до точки касания стрелками выносных линий то же!

[bargool]

это да. но бесконтрольно увеличивать это расстояние я бы не стал - может куда не надо наехать и проч.

[Малявка]

Народ, не спорьте! Я получила симпатичный макросик, он меня очень даже устраивает. Может быть, в общем случае и с точки зрения программиста, он и сыроват где-нибудь, но для моих частных целей - самое то!