恩塞尔版本

Bryco · 发表于 2006-3-28 20:42:50

希望通过添加“可选vPoint as Variant”将此版本引入函数非常方便
公共常量VK_选择公共函数EntSel（可选strpmt作为String=“选择一个实体：”，可选vPoint作为变量）作为AcadEntity
将objTemp作为acadeentity
Dim objUtil作为acadeutility
Dim varPnt作为变量
将Dim varCancel作为变量
在出错时转到Err_Control
设置objutill=ThisDrawing。实用程序＜br＞对象。GetEntity-objTemp、varPnt、vbCrLf和strpmt＜br＞设置EntSel=objTemp＜br＞如果不是IsMissing（vPoint），则＜br＞vPoint=objUtil。如果退出，则添加平移坐标（varPnt、acUCS、acWorld、False）＜br＞结束：＜br＞退出函数＜br＞。在本例中，编号为-2147352567。打印错误。数字，错误。Description＜br＞varCancel＝此绘图。GetVariable（“LASTPROMPT”）
如果InStr（1，varCancel，“*Cancel*”0，则
如果GetAsyncKeyState（VK_ESCAPE）和8000>0，那么
错误。如果GetAsyncKeyState（VK_LBUTTON）>0，则清除
在此处恢复Exit_。清除
恢复
结束如果
否则
如果GetAsyncKeyState（VK_SPACE），然后
继续退出这里
终止如果
'错过了选择，将它们发送回来
恢复
结束，如果
出现此情况，否则
MsgBox出错。说明：
继续退出_Here
结束选择
结束功能

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

恩塞尔版本

发表回复

精选推荐