Hello,
this Function works under ACad very good...
it doesn't run unter Intellicad...
How does ist works???
Public Function GetIDFromBlock(WähleObject As Boolean, _
BlockName As String, _
Gesuchtes_Attribut As String) As Boolean
On Error GoTo fehler
Dim i As Integer
Dim found_PlankopfID As Boolean
Dim pickedPoint As Variant
GetIDFromBlock = False
acadApp.Visible = True
RestoreWindow acadApp.caption
If WähleObject = True Then
acadApp.ActiveDocument.Utility.GetEntity ActObj, pickedPoint, "Block wählen (" & BlockName & ")..."
End If
found_PlankopfID = False
If TypeName(ActObj) = "Nothing" Then Exit Function
If UCase$(ActObj.ObjectName) = "ACDBBLOCKREFERENCE" Then
If UCase$(ActObj.Name) = UCase$(BlockName) Then
If ActObj.HasAttributes = True Then
nvarAttrib = ActObj.GetAttributes
ReDim ARR_attribute1(UBound(nvarAttrib))
ReDim ARR_attribute2(UBound(nvarAttrib))
For i = LBound(nvarAttrib) To UBound(nvarAttrib)
ARR_attribute1(i) = nvarAttrib(i).TagString
ARR_attribute2(i) = nvarAttrib(i).TextString
Select Case UCase(nvarAttrib(i).TagString)
Case UCase$(Gesuchtes_Attribut)
IDvonACADBlock = nvarAttrib(i).TextString
GetIDFromBlock = True
found_PlankopfID = True
End Select
Next
End If
Else
RestoreWindow Application.caption
MsgBox "Blockattribut: '" & BlockName & "' erwartet.", vbInformation, "Hinweis"
GetIDFromBlock = False
Exit Function
End If
End If
If found_PlankopfID = False Then
MsgBox "Keine Plankopf-ID gefunden!", vbCritical, "Fehler"
GetIDFromBlock = False
End If
Exit Function
fehler:
GetIDFromBlock = False
ErrHandlerStandard
Exit Function
End Function
Will get back a ID from a Block
Moderator: CMS Inc
- CMS IntelliCAD
- - FAQ - Frequently Asked Questions
- - General
- - AutoLisp/SDS
- - VBA, . NET & IRX
- - - FAQ
- - New User
- - Small Business
- - Realistic Rendering
- - Bonus
- - Free CAD .DWG Blocks
- - License Management
- - Store, Accounts and Purchases
- - Academic
- QuoteCAD Manufacturing
- - General
- - Quotation and Manufacturing
- - Database Manager
- - License Management
- ETOOLBOX CAD Viewer
- - General
- - License management