topic Re: OLE get the UCS Screen Center Position in Visual LISP, AutoLISP and General Customization Forum

OLE get the UCS Screen Center Position

GeryKnee — Thu, 04 Mar 2021 19:06:42 GMT

Using OLE Object

Wich is the Path (Acad.Activedocumet....) to get the UCS Screen Center Position ???

In the following picture

(202293.622,4258614.444,0.0000)

Thanks,

Gery

Re: OLE get the UCS Screen Center Position

pbejse — Thu, 04 Mar 2021 19:50:28 GMT

@GeryKnee wrote:

Using OLE Object

Wich is the Path (Acad.Activedocumet....) to get the UCS Screen Center Position ???

In the following picture

(202293.622,4258614.444,0.0000)

Thanks,

Gery

Center of screen within objects?

(mapcar (function (lambda (a b) (/ (+ a b) 2.))) (getvar "extmin") (getvar "extmax"))

or the center of OLE object?

(defun c:demo ( / obj pt) (if (setq obj (car (entsel "\nSelect object: "))) (progn (Vla-getboundingbox (vlax-ename->vla-object obj) 'll 'ur) (setq pt (mapcar (function (lambda (a b) (/ (+ a b) 2.))) (vlax-safearray->list ll)(vlax-safearray->list ur) ) ) (sssetfirst nil (ssadd (entmakex (list (cons 0 "POINT") (cons 10 pt))))) ) )(princ) )

or even

(getvar 'viewctr)

Re: OLE get the UCS Screen Center Position

ronjonp — Fri, 05 Mar 2021 05:19:52 GMT

This might be more fitting:

(defun VPCords ( ) ;; https://www.theswamp.org/index.php?topic=25589.msg307970#msg307970 ( (lambda (offset) ( (lambda (viewctr) (list (mapcar '- viewctr offset) (mapcar '+ viewctr offset) ) ) (getvar "viewctr") ) ) ( (lambda (halfHeight aspectRatio) (list (* halfHeight aspectRatio) halfHeight ) ) (* 0.5 (getvar "viewsize")) (apply '/ (getvar "screensize")) ) ) ) ;; usage to get center of screen .. OLE where doe that come into play? (mapcar '/ (mapcar '+ (car (vpcords)) (cadr (vpcords))) '(2 2 2))

Re: OLE get the UCS Screen Center Position

pbejse — Fri, 05 Mar 2021 05:22:43 GMT

@ronjonp wrote:

This might be more fitting:

Similar to this:

(defun this () (mapcar 'setvar '(LIMMIN LIMMAX) (mapcar '(lambda (x) (reverse (cdr (reverse x)))) (mapcar 'getvar '(EXTMIN EXTMAX)) ) ) )

But real question is , where does OLE fit in to any of it? I'm guessing the OP decided it's not worth replying 🙂

EDIT: surprise, surprise . Same topic but VBA and more surprisingly i basically gave the same answer but was ignored anyway.

Re: OLE get the UCS Screen Center Position

ronjonp — Fri, 05 Mar 2021 05:43:52 GMT

@pbejse

FWIW 'this' does not return the same numbers as vpcords. Not sure about the OLE part of this equation either.

(defun vpcords () ((lambda (offset) ((lambda (viewctr) (list (mapcar '- viewctr offset) (mapcar '+ viewctr offset))) (getvar "viewctr") ) ) ((lambda (halfheight aspectratio) (list (* halfheight aspectratio) halfheight)) (* 0.5 (getvar "viewsize")) (apply '/ (getvar "screensize")) ) ) ) (grdraw '(0 0 0) (mapcar '/ (mapcar '+ (car (vpcords)) (cadr (vpcords))) '(2 2 2)) 1) (defun this () (mapcar 'setvar '(limmin limmax) (mapcar '(lambda (x) (reverse (cdr (reverse x)))) (mapcar 'getvar '(extmin extmax))) ) ) (grdraw '(0 0 0) (mapcar '/ (mapcar '+ (car (this)) (cadr (this))) '(2 2 2)) 2)

This is incorrect too ( for center of screen ) so I'm pretty sure the OP's question is lost in translation.

(grdraw '(0 0 0) (mapcar '/ (getvar 'viewctr) '(2 2 2)) 1)

Red (vpcords)
Green (this)

Yellow (getvar 'viewctr)

Re: OLE get the UCS Screen Center Position

pbejse — Fri, 05 Mar 2021 05:49:34 GMT

@ronjonp wrote:

@pbejse

FWIW 'this' does not return the same numbers as vpcords. Not sure about the OLE part of this equation either.

Oh snap! You are right. (vpcords) also has nothing to do with the drawing entities.

Re: OLE get the UCS Screen Center Position

john.uhden — Mon, 08 Mar 2021 00:07:44 GMT

Maybe not, but it's fun to see two brainiacs going at it. Just like the good ol' days on Compuserve.

Re: OLE get the UCS Screen Center Position

GeryKnee — Mon, 08 Mar 2021 03:13:31 GMT

Thank you very match ronjonp.

Codes written in autolisp can be called from autocad ole object as I think (I’m not sure) using ActiveDocument.SendCommand method. Is calling Commands (lisp syndax defun c:MyCommand … that is a void procedure (doesn’r return exported values). How can I get the position (a pair of doubles)?? ActiveDocument.SendCommand method doesn’t return any value. I have to find the acad ole object properties and methods in order to use them in my Delphi code.

Regards,

Gery.

Re: OLE get the UCS Screen Center Position

GeryKnee — Mon, 08 Mar 2021 03:17:38 GMT

Thank you very match pbejse.

Regards,

Gery.