Move object from insertion to ucs point

[Emmanuel Focus Electrique]

Hi,

I'm a new Autolisp user and with Lee Ambrosus Book, I wrote this following code. I want to search a specific object in my block and move this one in a specific point (absolute coordinates). But what I saw, this Object move as a translation (Relative coordinates).

So how change my code to move my object in the specific UCS coordinates.

(if (setq ss (ssget "_X" '((2 . "RATING1"))))
(progn
(setq ent_data (entget (ssname ss 0)))
(setq ent_data (ssname ss 0))
(setq obj (vlax-ename->vla-object ent_data))
(setq insPt (vlax-get-property obj 'insertionpoint))
(setq ca (vlax-variant-value insPt))
(setq pt (vlax-safearray->list ca))
(sssetfirst nil ss)
(command "._move" ss "" pt '(6.0 -18.0 0.0))))

 

Thanks

 

Emmanuel

[Emmanuel Focus Electrique]

So my bad, Thanks to this program, I  understand I took the wrong object Property, I need to use TextAlignmentPoint instead of InsertionPoint:

http://www.theswamp.org/index.php?topic=5185.msg62997#msg62997

 

I hope that could help someone else.

 

Emmanuel

 

[CyberAngel]

Welcome to the forum. Thank you for sharing your experience, someone else may benefit.