topic Re: lisp - getpoint geometric center of last entity in Visual LISP, AutoLISP and General Customization Forum

lisp - getpoint geometric center of last entity

nmckelveyHMN4X — Wed, 07 Aug 2019 05:01:52 GMT

As per the above. Looking for a little help with a lisp routine.

I have to routine running that draws a region and the next step I am looking for is to set a point as the geometric center of that region so I can use that value in the next stage of the routine. Any help for this line of code would be appreciated.

(SETQ p3 (getpoint ……"gcenter"……."last"...???

Thanks in advance

Re: lisp - getpoint geometric center of last entity

dbhunia — Wed, 07 Aug 2019 05:51:46 GMT

Check >>THIS<<

Or if your last object is a "REGION" then try like this...

(setq P3 (vlax-get (vlax-ename->vla-object (entlast)) 'Centroid))

Re: lisp - getpoint geometric center of last entity

nmckelveyHMN4X — Thu, 15 Aug 2019 22:41:04 GMT

Thank you so much.

Worked perfectly!!

Re: lisp - getpoint geometric center of last entity

Kent1Cooper — Fri, 16 Aug 2019 12:48:10 GMT

@nmckelveyHMN4X wrote:
...

(SETQ p3 (getpoint ……"gcenter"……."last"...???
...

If it's a closed Polyline or Spline:

(setq p3 (osnap (vlax-curve-getStartPoint (entlast)) "gcen"))

[That's assuming there's nothing else with a geometric center around that it could snap to instead, when "picked" at the object's start point.]

You will need to do this first, if not done already, to get that (vlax-curve...) function:

(vl-load-com)

Re: lisp - getpoint geometric center of last entity

Michiel.Valcke — Sun, 04 Oct 2020 19:28:32 GMT

If it's a closed Polyline or Spline:

(setq p3 (osnap (vlax-curve-getStartPoint (entlast)) "gcen"))

[That's assuming there's nothing else with a geometric center around that it could snap to instead, when "picked" at the object's start point.]

You will need to do this first, if not done already, to get that (vlax-curve...) function:
(vl-load-com)

@Kent1Cooper

Hello,

I'm sorry to restart an old post, but this might be a solution to a problem I'm currently facing. However, the part in my routine tries to get a list of handles and their corresponding geometric centers, so there will always be a lot of other objects to snap to when "picked" at the object's start point. Would turning off osmode sysvar help?

Re: lisp - getpoint geometric center of last entity

Kent1Cooper — Sun, 04 Oct 2020 21:09:06 GMT

@Michiel.Valcke wrote:
....the part in my routine tries to get a list of handles and their corresponding geometric centers, so there will always be a lot of other objects to snap to when "picked" at the object's start point. Would turning off osmode sysvar help?

If you're calling for a specific Osnap mode, that would override any running mode(s) that you have set, so I think if it's not getting the geometric center of the object you want, turning OSMODE off probably would not help.

Re: lisp - getpoint geometric center of last entity

john.uhden — Sun, 04 Oct 2020 22:42:21 GMT

Hmm. 2002 doesn't have a "gcen" snap. That's cool.