Layer

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

Add

Dim layerObj As AcadLayer
Set 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 Variant
Pt = aUt.getPoint(, "點選...")

Dim path As String
path = "D:\joor\xxx.dwg"

Dim blockRefObj As AcadBlockReference
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock Pt, path, 1, 1, 1, 0

Add

Dim Pt As Variant
Pt = aUt.getPoint(, "點選...")

Dim blockObj As AcadBlock
Set blockObj = ThisDrawing.Blocks.Add(Pt, "xxx")

上一篇
下一篇