Sub Visible_Example()
' This example creates an circle and toggles its Visible property.
Dim myCircle As AcadCircle
Dim ctrPt(0 To 2) As Double
ctrPt(0) = 5: ctrPt(1) = 3
Set myCircle = ThisDrawing.ModelSpace.AddCircle(ctrPt, 5)
myCircle.Update
ThisDrawing.Application.ZoomExtents
Dim response As VbMsgBoxResult
response = MsgBox("Do you want the new circle to be visible?", vbYesNoCancel + vbQuestion)
Select Case response
Case vbYes
myCircle.Visible = True
Case vbNo
myCircle.Visible = False
Case vbCancel
Exit Sub
End Select
ThisDrawing.Regen True
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. |