Sub Document_Example()
' This example creates a circle in model space and then
' finds the name of the document that the circle resides in.
Dim circleObj As AcadCircle
Dim dRadius As Double: dRadius = 5
Dim cntPnt(0 To 2) As Double
cntPnt(0) = 2: cntPnt(1) = 2: cntPnt(2) = 0
Set circleObj = ThisDrawing.ModelSpace.AddCircle(cntPnt, dRadius)
ThisDrawing.Application.ZoomExtents
' Find the document name for the circle
Dim currDoc As AcadDocument
Set currDoc = circleObj.Document
MsgBox "The circle resides in: " & currDoc.Name
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |