xclip with vba

Hi, All.

I like to use vba to do xclip and I wonder if anyone already done it. If so,
how did you do it?

Thanks,

Tony Y.

 

Have you tried using SendCommand? (Not ideal, but should work.)

 

[pre]
Written in Delphi but...

procedure ClipXRef(ThisDrawing: AcadDocument; View: TView);
{ There is no method provided in ActiveX Automation for clipping the boundaries
of blocks and xrefs. Use the XCLIP command in AutoCAD, or send the XCLIP
command to AutoCAD using the SendCommand method. }
var
CommandString: string;
P1: string;
P2: string;
begin
ThisDrawing.MSpace := True;

P1 := FloatToStr(View.Corner1.X) + ',' + FloatToStr(View.Corner1.Y) + ' ';
P2 := FloatToStr(View.Corner2.X) + ',' + FloatToStr(View.Corner2.Y) + ' ';

CommandString := 'XCLIP ALL N Y R ' + P1 + P2;
ThisDrawing.SendCommand(CommandString);

ThisDrawing.MSpace := False;
end;
[/pre]