CAD与用户交互到在图上提取一个点

IMxDrawUtility::GetPoint 方法

与用户交互到在图上提取一个点。

参数	说明
[in] IMxDrawPoint* point	交互提取时，前一个参考点，可以传为null
[in] BSTR prompt	命令提示字符串

例如:Delphi中取一个点的例程代码：

    procedure TForm1.DoInsertFlagClick();
    var
            ptInsert        : OleVariant;
            pt              :  IMxDrawPoint ;
    begin
        ptInsert := mxUtility.GetPoint(EmptyParam,'点插入点');
        pt:=IMxDrawPoint(IDisPatch(ptInsert));
        if pt = nil then
            EXIT;
        MxDrawX1.InsertBlock(MxDrawX1.GetOcxAppPath() + 'blkTsgNote.dwg','Flag');
        MxDrawX1.DrawBlockReference(pt.Get_x(),pt.Get_y(),'Flag',10.0,0.0);

    end;