[===AAA===]

Командой _donut вставляется объект "кольцо".
Фактически, как я понимаю - "замкнутая полилиния".

Нужно узнать её точку вставки, она же центр кольца.

В списке (entget <примитив>) этой точки нет.

Возможно, она есть где-нибудь в #<variant 8197 ...> ?

т.е.

(setq obj (vlax-EName->vla-Object e)) ;Получаем #<VLA-OBJECT
(setq vvv (vla-Get-Coordinates obj)) ; Получаем #<variant 8197 ...>

А как из этого "варианта" точку центра выдернуть-то?

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

Самый простой вариант - получить boundingbox и на его основе вычислить центр

[Boxa]

у этого кольца/полилинии две вершины, расположенные на углах 0 и 180 градусов, соответственно центр бублика получается если взять первую вершину и прибавить к ней половину вектора от вершины 1 к вершине 2. Ну или можете взять одну из граней бублика, взять ее выпуклость и получить центр от туда.

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

Как пример:

Код:

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

 (defun t1 (/ ent mi ma)
  (if (setq ent (car (entsel "\nSelect entity : ")))
    (progn (vla-getboundingbox (vlax-ename->vla-object ent) 'mi 'ma)
           (mapcar (function (lambda (x) (* x 0.5)))
                   (apply (function mapcar) (cons (function +) (mapcar (function vlax-safearray->list) (list mi ma))))
                   ) ;_ end of mapcar
           ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[VVA]

Вся геометрия по полилинии есть на Afralisp Page I и Page II и у Lee Mac'a Bulge Conversion Functions

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

Вариант вычисления по кривизне

Код:

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

 
(defun C:TEST (/ ent vx bulge lst)
  (vl-load-com)
  (if (setq ent (car (entsel "\nSelect entity : ")))
    (progn
      (setq ent (entget ent))
      (setq vx (massoc 10 ent))
      (setq bulge (cdr (assoc 42 ent)))
      (setq lst (polyarc-data bulge (car vx) (cadr vx)))
      (alert (strcat "Center "
                     (vl-prin1-to-string (car lst))
                     "\nRadius="
                     (vl-prin1-to-string (cadr lst))
                     "\nAngle="
                     (vl-prin1-to-string (caddr lst))
             ) ;_ end of strcat
      ) ;_ end of alert
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun
(defun polyarc-data (bu p1 p2 / ang rad cen area cg)
;;; Polyarc-data
;;; Returns a list of the center, radius and angle of a 'polyarc'.
  (setq ang (* 2 (atan bu))
        rad (/ (distance p1 p2)
               (* 2 (sin ang))
            ) ;_ end of /
        cen (polar p1
                   (+ (angle p1 p2) (- (/ pi 2) ang))
                   rad
            ) ;_ end of polar
  ) ;_ end of setq
  (list cen (abs rad) ang)
) ;_ end of defun
(defun massoc (key alist)
  (mapcar 'cdr
          (vl-remove-if-not
            (function (lambda (x) (= key (car x))))
            alist
          ) ;_ end of vl-remove-if-not
  ) ;_ end of mapcar
) ;_ end of defun 

[Krieger]

Почему просто не взять две вершины полилинии (а у кольца их две) и не вычислить точку по центру между ними?

Код:

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

 (setq pr (entget (car (entsel)))
      pt (assoc 10 pr)
      pt1 (cdr (assoc 10 (cdr (member pt pr))))
      pt2 (cdr pt)
      pt_centr (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
      )