AutoCAD ActiveX #4 Block & Layer

Layer

A logical grouping of data, similar to transparent acetate overlays on a drawing.

Add

Dim layerObj As AcadLayerSet layerObj = ThisDrawing.Layers.Add("CNS_中心线")layerObj.color = acYellow''Make the new layer the active layer for the drawing'aDoc.ActiveLayer = layerObj

Delete

layerObj.Delete

Block

A block definition containing a name and a set of objects.

Insert

Inserts a drawing file or a named block that has been defined in the current drawing.

Dim Pt As VariantPt = aUt.getPoint(, "点选...")Dim path As Stringpath = "D:\joor\xxx.dwg"Dim blockRefObj As AcadBlockReferenceSet blockRefObj = ThisDrawing.ModelSpace.InsertBlock Pt, path, 1, 1, 1, 0

Add

Dim Pt As VariantPt = aUt.getPoint(, "点选...")Dim blockObj As AcadBlockSet blockObj = ThisDrawing.Blocks.Add(Pt, "xxx")

上一篇
下一篇