How to find arc center

I just to search arc center, first by dxf the result = nil,second by vlax
this result got problem too

_$ (setq ent (entget (car en)))
((-1 . <Entity name: 14c2588>) (0 . "ARC") (330 . <Entity name: 14c24f8>) (5
.. "49") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbCircle") (10 10.9142 -0.490689 0.0) (40 . 12.6097) (210 0.0 0.0 1.0)
(100 . "AcDbArc") (50 . 0.658431) (51 . 2.2417))

_$ (setq info20 (assoc 20 ent))
nil

$ (vl-load-com)
(setq ent
(vlax-ename->vla-object
(car
(entsel "\nSELECT AN ARC: "))))
#<VLA-OBJECT IAcadArc 01aade74>

_$ (setq ent1 (rtos (vlax-get-property ent "Center")))
; error: bad argument type: numberp: #<variant 8197 ...>
_$

Anybody know how to find arc center?,thanks.

 

Hi Adesu,

Shouldn't the groupcode be 10 instead of 20?

(setq ent (entget (car en)))
(setq CEN (assoc 10 ent))

 

(setq ent1 (vlax-safearray->list (vlax-variant-value (vlax-get-property ent "Center"))))

(28.3631 19.0772 0.0)


Bill

 

or....

(vlax-get (vlax-ename->vla-object (car (entsel))) 'center)

--
Autodesk Discussion Group Facilitator

(vlax-ename->vla-object (car (entsel)))))))

 

Bill,

Suggestion, no need for the safearray and variant stuff.

Command: (vlax-get (vlax-ename->vla-object (car (entsel))) 'Center)
Select object: (812.871 340.75 0.0)

Joe Burke

 

Hi Jason.

Joe Burke

 

Hi Joe

 

Hmmm,

I learn something new everyday.

Thanks Jason! Eh, Joe.

Bill

 

HI Jimmy,BillZ,Jason,Joe thanks a lot for you alls