moving objects with lisp

How do you select or enter in selection points to move objects using lisp? I am trying to move block1 when block2 is inserted.

TIA

Collin

 

You need to use the block object.

(setq blockobject (vlax-ename->vla-object (car entsel "\nSelect block: <>"))))

(setq basepoint (getpoint "\nBase Point:")
destpoint (getpoint "\nDestination Point:"))

(vla-move blockobj (vlax-3d-point basepoint)(vlax-3d-point destpoint))

HTH

Bill

 

Hi Bill

How about:
(vlax-invoke blockobject 'Move basepoint destpoint)
no point conversion necessary...;-)

Cheers

 

Fine with me..

Thanks


Bill

 

WIth this code, I can put in the block name, base point, and destination point without having any input from the user?

Collin

 

Hi Juerg,

Just a thought to be safe with the Move method. Given getpoint returns a UCS point
and Move expects WCS points.

(vlax-invoke blockobject 'Move (trans basepoint 1 0) (trans destpoint 1 0))

Joe Burke

 

How do I set the base point and destpoint? I know what the coords of the block are and don't want any prompts for the user.

Collin

 

Say you want to move Block from PTA to PTB.
And, further, the X distance to move is 10.0
And the Y distance is 6.0
To 'calculate' the relative move, you need to
make a 'point' - PTB - from PTA (x,y,z).
Do:
(setq PTB (list (+ (car PTA) 10.0)(+ (cadr PTA) 6.0) 0.0)); Point PTB
To 'move' the block, you could then do:
(setq ss (ssget "C" PTA PTA)); Grab selection set at PTA
(if ss
(command "_move" ss "" PTA PTB); and move it
);if

Bob

 

Seems to me that if you have constant X and Y displacements, you could skip
PTB entirely, unless you need to have it to use for something else later.
Under Bob's assumptions about X and Y:

(setq ss (ssget "C" PTA PTA)); Grab selection set at PTA
(if ss
(command "_move" ss "" "10,6" ""); and move it
);if

If the displacements wouldn't always be the same, you would want to prompt
for them, and then building a PTB from the user input would be a good
approach, using saved quantities to add to the X and Y coordinates of PTA.

Kent Cooper, AIA


...

 

Here is what I have. I get this error msg:
; error: bad argument type: numberp: nil


(setq PTB (list (+ (car PTA) 10.0)(+ (cadr PTA) 6.0) 0.0)); Point PTB
(setq sss (ssget "C" PTA PTA)); Grab selection set at PTA


(if(tblsearch "block" BAEC1-A)
(command "-layer" "S" "notes" "" "" "-insert" "InsertOpticalBlk.dwg" "1.875,16.250" "" "" "0" "-insert" "InsertOpticalBlk2.dwg" "1.875,16.000" "" "" "0" "move" sss "" PTA PTB))

Collin