vb用vlax.txt

'根据AutoCAD的版本判断使用的库类型 IfLeft(ThisDrawing.Application.Version,2)="15"Then SetVL=ThisDrawing.Application.GetInterfaceObject("VL.Application.1")