[Grinzaid]

Ситуяйция такая:

Некоторые размеры начерчены при перевёрнутом UCS. При возвращении в UCS World никак не могу заставить эти перевёртыши отображаться нормально. А новые размеры тем временем получаются "традиционной ориентации".

Таким образом на чертеже присутствуют размерные значения, повёрнутые во все возможные направления. Сравнительный анализ параметров двух разных размеров не показал ни одного отличия, да и на matchprop перевёртыши не реагируют. Как это исправить?

[X-DeViL]

Одно время я такую тему... поищи что ответили...

[Никита В.]

А никак...
Я сам часто пользуюсь линейными размерами в новых ПСК вместо DimALig. По сути дела это просто напросто повернутые DimLinear.

[asys]

МОгу предложить так:
ставишь ПСК и вид по размеру (чтоб нормально отображался) потом Copy wiht base point, переходишь в world ПСК и вставляешь. Один болшой бед - при множестве разных размерови ПСК реальный гимор

[Zouss]

закинул в download рецептик на lsp
http://dwg.ru/dwl/index.php?id=610
жду каментов, ибо подозреваю, что можно бы и доработать

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

Комментарии закинул туда.

[Grinzaid]

Zouss, что-то эта штука неправильно фурычит: она переворачивает размеры, перпендикулярные выбнанному, в нули.

[Zouss]

Grinzaid, спасибо за ценную информацию. Попробуй закомментировать строку файла, которая правит 50 группу

Код:

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

      (progn
;;;	(setq ed (subst templdx50 (assoc 50 ed) ed))   ;правим группы на нужные нам
	(setq ed (subst templdx51 (assoc 51 ed) ed))
	(entmod ed)				       ;обновляем примитив в БД чертежа			
      ) ;_  progn

придется таки прочитать инструкцию по dxf, как рекомендовал kpblc, кстати, если вышлешь фрагмент своего чертежа оно вернее будет - у меня банально нет реального материала на котором можно погонять прогу и отловить подобные спотыкачки

[AY]

Вот ссылка на такую же тему:
http://dwg.ru/forum/viewtopic.php?t=3318

[Grinzaid]

А я вдруг допёр как это сделать по-рабоче-крестьянски:

Код:

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

(defun c:ddd ()				       
  (command "select" pause "")
  (command "_copybase" "0,0" "p" "")
  (command "erase" "p" "")
  (command "_pasteclip" "0,0" "")
  )

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

Подниму тему по новой. Вариант, без проверок - времени нет

Код:

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

(defun c:dimred	(/ adoc ent selset item)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq ent (entsel "\nУкажите \"правильный\" размер <Выход> : "))
	   (setq ent (car ent))
	   (= (cdr (assoc 0 (entget ent))) "DIMENSION")
	   (setq selset (ssget '((0 . "DIMENSION"))))
	   ) ;_ end of and
    (while (and	selset
		(> (sslength selset) 0)
		) ;_ end of and
      (setq item (ssname selset 0))
      (ssdel item selset)
      (entmod (subst item
		     (assoc 210 (entget ent))
		     (assoc 210 (entget item))
		     ) ;_ end of subst
	      ) ;_ end of entmod
      ) ;_ end of while
    ) ;_ end of if
  (vla-endundomark adoc)
  ) ;_ end of defun

[Zouss]

почему все таки 210 группа?
из ACADного хелпа

Group Codes in Numerical Order 210 Extrusion direction (fixed) DXF: X value of extrusion direction APP: 3D extrusion direction vector 220, 230 DXF: Y and Z values of the extrusion direction

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

Так если нарисовать 2 примитива, один в мировой, второй - нет, то отличаться у них будут 210 группы примерно так:
1 примитив: (210 0.0 0.0 1.0)
2 примитив: (210 0.0 1.0 0.0)
Соответственно поменяв 210 группу, мы поменяем ему OCS.
В любом варианте, я код не проверял! Если не работает, прошу ногами в прыжках не бить

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

Ну вот, благодаря усилиям Magic, появилось нечто такое:

Код:

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

(defun c:dimred     (/ adoc ent selset item)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq ent (entsel "\nУкажите \"правильный\" размер <Выход> : "))
        (setq ent (car ent))
        (= (cdr (assoc 0 (entget ent))) "DIMENSION")
        (setq selset (ssget '((0 . "DIMENSION"))))
        ) ;_ end of and
    (while (and     selset
          (> (sslength selset) 0)
          ) ;_ end of and
      (setq item (ssname selset 0))
      (ssdel item selset)
      (entmod (subst
          (assoc 210 (entget ent))
          (assoc 210 (entget item))
          (entget item)
          ) ;_ end of subst
           ) ;_ end of entmod
      (vla-put-rotation
     (vlax-ename->vla-object item)
     (vla-get-rotation (vlax-ename->vla-object ent))
     ) ;_ end of vla-put-rotation
      ) ;_ end of while
    ) ;_ end of if
  (vla-endundomark adoc)
  ) ;_ end of defun

Вроде как работает

[Om81]

Обнаружил, что если скопировать в буфер размеры с повернутыми соответственно UCS числами, а потом вставить, например, в другой файл в виде блока - ориентация текста сохраняется.. если блок не взрывать) Другие способы, как я понимаю, связаны с программированием.

[kha]

,,,

[kha]

Я решил эту траблу таким способом.

1. Выделить все размеры что нужно исправить и повернуть их на такой угол, чтобы встали как положено ( обычно +/-90 градусов в зависимости от ситуации)
2. Создать блок с повёрнутыми размерами
3. Повернуть блок обратно (за первую точку взять ту же самую, вокруг которой был произведён первый поворот)
4. Войти в блок и отминусовать все размеры из блока в чертёж

Ни в коем случае не взрывайте блок - размеры опять перевернутся
[ATTACH]1150280604.dwg[/ATTACH]

[BigBrother]

Добавлю по 210-й группе, ее можно использовать для выравнивания параллельно виду для образмеренной трехмерки при смене точки зрения.
Соотв. в коде

kpblc Код: [Выделить все] (assoc 210 (entget item))

заменить на

Код:

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

(assoc 210 (getvar "viewdir"))