Hi Lee
Excellent your work with this function.
Doesn't a way exist of hiding the original object?
I need to show a block being just dragged.
Exactly as the function that I posted.
Thanks
Velasquez
;;;Drag a selection set to change location.
;;;
;;;Arguments
;;;ss The selection set to drag.
;;;pt The base point.
;;;prompt A message to display before dragging is started.
;;;highlight If given, causes a rubber-band line to be drawn from pt to the current cursor position while dragging;
;;;this parameter can be nil to draw a rubber-band line in the inverse of the screen color,
;;;or non-nil to draw a highlighted line.
;;;cursor The cursor form to display while dragging (0=crosshairs, 1=no cursor, 2=target).
;;;
;;;Return Values
;;;Normally returns the selected point, but will honor initget settings and can return arbitrary text or keywords.
;;;Returns nil if the dragging operation is aborted.
;;;
(defun JoyArrast (BlockName /)
(vla-move
(vla-InsertBlock
(vla-get-ModelSpace
(vla-get-activeDocument (vlax-get-acad-object))
) ;_ fim de vla-get-ModelSpace
(vlax-3d-point '(0. 0. 0.))
BlockName
1.
1.
1.
0.
) ;_ fim de vla-InsertBlock
(vlax-3d-point '(0. 0. 0.))
(vlax-3d-point (acet-ss-drag-move
(ssadd (entlast))
'(0. 0. 0.)
"\nSpecify insertion point: "
) ;_ fim de acet-ss-drag-move
) ;_ fim de vlax-3d-point
) ;_ fim de vla-move
) ;_ fim de defun
