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;