[VBA]哪位高手进来看一下

天蝎

请教在2004里怎样加载线形？？？？


另外如何才能把模块清空？？？？

王咣生

加载形: Dim shapeFileToLoad As String
shapeFileToLoad = "C:/AutoCAD/Support/ltypeshp.shx"

' Load the shape file
ThisDrawing.LoadShapeFile shapeFileToLoad
加载线型: Dim linetypeName As String
linetypeName = "CENTER"

' Load "CENTER" line type from acad.lin file

ThisDrawing.Linetypes.Load linetypeName, "acad.lin"

模块清空是什么意思?

天蝎

谢谢指教！


我说的模块清空是指创建一个模块之后，里面的图形是以参数的形式赋值的，改变参数之后，图形又覆盖在原来的图形上，现在的问题是下次运行前怎样将原来的图形去掉？