社区 › VB › [VBA]哪位高手进来看一下

天蝎 发表于 2005-5-29 15:11:00

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

请教在2004里怎样加载线形？？？？
另外如何才能把模块清空？？？？

王咣生 发表于 2005-5-29 15:24:00

加载形:
                       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"
               模块清空是什么意思?

天蝎 发表于 2005-5-30 08:26:00

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

查看完整版本: [VBA]哪位高手进来看一下