[rodion]

Собственно говоря САБЖ...
Никто еще не осуществил такую функцию?

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

Попробуй в качестве привязки указывать _m2p

[rodion]

TO Кулик Алексей aka kpblc
Спасибо большое!
Хотелось бы конечно единичным касанием привязку осуществлять, но видимо пока что это невозможно...

[Хмурый]

Как вариант: Включить объектную привязку (F11) и вектор полярного отслеживания (F10)

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

Хмурый, такое прокатит при положении прямоугольника, попадающего под углы полярной привязки. Если прямоугольник повернут, к примеру, на 16°4'20'', полярная привязка может и не сработать (по-моему).
---
Добавлено: Прошу прощения, я был неправ. Все работает.

[rodion]

Хмурый
Спасибо, но первый способ попроще (для меня).

[Ash]

Полярка то зачем?
F3 и F11 вполне хватит!!!

[Bull]

Сообщение от Кулик Алексей aka kpblc Хмурый, такое прокатит при положении прямоугольника, попадающего под углы полярной привязки. Если прямоугольник повернут, к примеру, на 16°4'20'', полярная привязка может и не сработать (по-моему). --- Добавлено: Прошу прощения, я был неправ. Все работает.

Не понял... Если он повернут, как может работать F11 и F10?

[VVA]

Можно здесь еще поковыряться
LISP. Определение координат центра прямоугольной ячейки. Примеры

[rodion]

VVA
Спасибо, но это немного не то.

[VVA]

Сообщение от rodion VVA Спасибо, но это немного не то.

Я же написал "поковыряться"

Код:

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

;;mdc - MiDdle Contour
;;Привяка к "центру" квадрата, прямоугольника
;;http://dwg.ru/f/showthread.php?t=16865
(vl-load-com)
(defun mdc (/ en reg pt pt1)
;;;Запрашивает контур и возвравщает координаты центра или "ошибка 
;;;выбора контура". Если контур вычислен, заносит точку в LASTPOINT 
;;;(можно сослаться по @). Может вызываться прозрачно в ответ на 
;;;запрос точки как 'MDC
  (setq pt (getvar "LASTPOINT") pt1 pt)
  (and (setq en (car (entsel "\nВыберите замкнутый контур: ")))
       (member (cdr (assoc 0 (entget en)))
               '("LWPOLYLINE" "POLYLINE" "SPLINE" "CIRCLE" "ELLIPSE")
       ) ;_ end of member
       (vl-catch-all-apply
         '(lambda ()
            (setq reg
                   (vla-addregion
                     (if
                       (and
                         (zerop
                           (vla-get-activespace
                             (vla-get-activedocument (vlax-get-acad-object))
                           ) ;_ end of vla-get-activespace
                         ) ;_ end of zerop
                         (= :vlax-false
                            (vla-get-mspace
                              (vla-get-activedocument (vlax-get-acad-object))
                            ) ;_ end of vla-get-mspace
                         ) ;_ end of =
                       ) ;_ end of and 
                        (vla-get-paperspace
                          (vla-get-activedocument (vlax-get-acad-object))
                        ) ;_ end of vla-get-paperspace
                        (vla-get-modelspace
                          (vla-get-activedocument (vlax-get-acad-object))
                        ) ;_ end of vla-get-modelspace
                     ) ;_ end of if
                     (vlax-make-variant
                       (vlax-safearray-fill
                         (vlax-make-safearray
                           vlax-vbobject
                           (cons 0 0)
                         ) ;_ end of vlax-make-safearray
                         (list (vlax-ename->vla-object en))
                       ) ;_ end of vlax-safearray-fill
                     ) ;_ end of vlax-make-variant
                   ) ;_ end of vla-AddRegion
            ) ;_ end of setq
            (setq
              reg (car (vlax-safearray->list (vlax-variant-value reg)))
            ) ;_ end of setq
            (setq pt (vlax-safearray->list
                              (vlax-variant-value (vla-get-centroid reg))
                            ) ;_ end of vlax-safearray->list
 
            )
            (vla-erase reg)
          ) ;_ end of lambda
       )
  ) ;_ end of and
  (if (equal pt pt1 1e-9)
    (setq pt "ошибка выбора контура")
    (setvar "LASTPOINT" pt)
    )
 
) ;_ end of defun
(defun C:MDC ()(mdc))
(defun C:ЬВС ()(mdc))

2 команды:
MDC и ее русская кузина ЬВС
Запрашивает контур и возвравщает координаты центра или "ошибка выбора контура". Если контур вычислен, заносит точку в LASTPOINT (можно сослаться по @). Может вызываться прозрачно в ответ на запрос точки как 'MDC
Вариант 1

Команда: _line Первая точка: Следующая точка или [Отменить]: Следующая точка или [Отменить]: 'mdc <- Вызвали прозрачно Выберите замкнутый контур: (262.411 88.545) Следующая точка или [Замкнуть/Отменить]: З

Вариант 2

Команда: MDC <- Вызвали команду Выберите замкнутый контур: (262.411 88.545) <- Точка в LASTPOINT Команда: Команда: Команда: Команда: _line Первая точка: @ <-Сослались на LASTPOINT

[IIIypuk]

Ctrl + Right button -> Snap menu.
Я когда рисую, у мя только центр, конец отрезка и перпендикуляр включены. Иногда еще node. А когда нужна другая привязка, зажал контрол, щелкнул мышкой и на клавиатуре:
g - касательная, l - паралельная, t+Enter - середина между двумя точками (как раз то, что вы ищите), r - nearest, m - middle, d - node и т.д. Чуть попрактиковавшись, начинаешь уже щелкать незадумываясь. Скорострельность в разы повышается. Выходит быстрее, чем набирать _m2p или, тем более, тянутся за какой то кнопкой на панелях. =]

[Хмурый]

IIIypuk, у тебя _m2p есть, а в AutoCAD'ах других версий этого может не быть.

[Sopro]

А провести вспомогательную диагональ и привязаться к ее середине не прокатит? Типа медленно, лишние построения, да? Я такие вещи строю не раздумывая и "теряю" при этом полсекунды, не более

[skif58]

Можно и так: Shift+правая => (меню привязки) => Середина между точками и щелкнуть середины противоположных сторон прямоугольника.
Т.е. тоже _m2p после ввода команды.

[rocker]

Сообщение от rodion Никто еще не осуществил такую функцию?

Эта функция реализована (весьма полноценно) в AutoCAD Mechanical.Там есть привязка Rectangle Center которая к тому же имеет четыре опции: Half (default),DRag,DIstances,Relation.

[rodion]

VVA Спасибо, но с помощью _m2p все же проще.

rocker
Ого, а перекинуть ее в акад никак нельзя?

Sopro
можно привести диагональ конечно, но это куча лишних нажатий, к тому же ее еще стирать потом надо...
Просто хочется оптимизировать работу по максимуму.

[rocker]

Сообщение от rodion Ого, а перекинуть ее в акад никак нельзя?

Такой надобности пока что не было поскольку AutoCAD Mechanical--это расширенная (и адаптированная) версия классического AutoCAD для машиностроителей.Естественно,что в этой версии можно работать и в чистом классическом AutoCAD-е.

Кроме расширенного набора привязок AutoCAD Mechanical имеет еще много полезных команд и настроек.

Можете попытаться что-либо сделать в классическом AutoCAD-е,вот описания команды :

Name: Rectangle Center

Description: Snaps the rectangle center: AMPSNAPCEN

Macro: ^P$M=$(if,$(getvar,cmdactive),_non )(c:ampsnapcen);

[rodion]

rocker
Спасибо

[Vova]

Для тех автокадов (2002, a может, 2004), у которых нет привязки M2P. Делаем кнопку '_cal;(_end+_end)/2;
Привязки, несомненно, быстрее вспомогательных построений и последующ. удаления, которое можно и забыть сделать, если отвлекут