主要做如下设置,其他的部分比如打开数据库关闭数据库,打开表打开记录等等自己写了
Dim P3ddResult As PromptPointResult
Dim PointPrompt As PromptPointOptions = New PromptPointOptions("")
PointPrompt.BasePoint = P3ddResult.Value ' 橡皮筋基点坐标
PointPrompt.UseBasePoint = True‘允许使用橡皮筋,可以不要,默认为Ture
PointPrompt.UseDashedLine = True '设置橡皮筋的线型为虚线,可以不要