Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub SelectPointBlock()
Dim dblOrigin(2) As Double
Dim objBlock As AcadBlock
Dim strName As String
Dim filename As String
Dim blockRefObj As AcadBlockReference
On Error Resume Next
strName = lstSymbols.List(lstSymbols.ListIndex)
If "" = strName Then Exit Sub
If lstSymbols.Selected(lstSymbols.ListIndex) = True Then
'MsgBox lstSymbols.List(lstSymbols.ListIndex)
Set objBlock = ThisDrawing.Blocks(strName)
''check if block already exists
'If Not objBlock Is Nothing Then
'MsgBox "Point style already in use select another"
'Exit Sub
' End If
'' Insert the block
filename = "R:\TSAS\Programs\GIS\AutoCAD\TestPrograms\points\donut.dwg"
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(location, filename, 20#, 20#, 0#, 0)
End If
End Sub