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

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

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


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

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

回复

加载形:


                       Dim shapeFileToLoad As String<BR>                       shapeFileToLoad = "C:/AutoCAD/Support/ltypeshp.shx"<BR>                       <BR>                       ' Load the shape file<BR>                       ThisDrawing.LoadShapeFile shapeFileToLoad<BR>


加载线型:


                       Dim linetypeName As String<BR>                       linetypeName = "CENTER"<BR>                       <BR>                       ' Load "CENTER" line type from acad.lin file<BR><BR>                       ThisDrawing.Linetypes.Load linetypeName, "acad.lin"<BR><BR>               模块清空是什么意思?

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

[VBA]

谢谢指教！


我说的模块清空是指创建一个模块之后，里面的图形是以参数的形式赋值的，改变参数之后，图形又覆盖在原来的图形上，现在的问题是下次运行前怎样将原来的图形去掉？
页: [1]
查看完整版本: [VBA]哪位高手进来看一下