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