Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Attributwert als Objekteigenschaft

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Attributwert als Objekteigenschaft (2343 mal gelesen)
ejjj
Mitglied
Student

Sehen Sie sich das Profil von ejjj an!   Senden Sie eine Private Message an ejjj  Schreiben Sie einen Gästebucheintrag für ejjj

Beiträge: 5
Registriert: 15.11.2013

Autocad Civil 3D 2010

erstellt am: 15. Nov. 2013 11:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
ist es möglich automatisch einen Attributwert als Objekteigenschaft zu schreiben.
Attributwert Farbe = Rot -> Objekteig: Farbe = Rot

Wäre für eine Lsg dankbar

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 15. Nov. 2013 11:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

... sollte Programmierbar sein ... Nice to have ? oder steckt ein tieferer Sinn dahinter?

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 15. Nov. 2013 11:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

AutoCAD bietet keine fertige Möglichkeit, mit einem kleinen Programm aber möglich,
dafür muß aber der Attributname oder Eingabeaufforderung bekannt sein (Attributname und Eingabeaufforderung nicht verwechseln).

http://forum.cad.de/foren/ubb/Forum54/HTML/030712.shtml#000005
Dort ist ein Tool welches eine Zahl in einem Attribut ermittelt und diese dann als PositionZ-Wert der Blockreferenz übernimmt.

Ich nehme an du kannst es nicht selbst anpassen ?

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ejjj
Mitglied
Student

Sehen Sie sich das Profil von ejjj an!   Senden Sie eine Private Message an ejjj  Schreiben Sie einen Gästebucheintrag für ejjj

Beiträge: 5
Registriert: 15.11.2013

Autocad Civil 3D 2010

erstellt am: 15. Nov. 2013 11:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Habe von einer Stadt das Kanalnetz bekommen und möchte nun die Fließrichtungspfeile, welche als Block eingefügt sind und das Attribut Winkel haben, in den Richtigen "Winkel" drehen.
Also den Attributwert von Winkel als Objekteigenschaft Drehung einsetzten.
Leider kann ich die Lisp nicht selbst anpassen.

Da es über 400 Blöcke sind, welche gedreht werden müssen, würde das halt so viel schneller gehen.

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 15. Nov. 2013 12:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

Servus, oder du verwendest civil....  pfeile in sdf (mapexport) inkl. Attributwerte und dann die Darstellung mit der Drehung Attribut abhängig.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rexxitall
Mitglied
Dipl. -Ing. Bau


Sehen Sie sich das Profil von rexxitall an!   Senden Sie eine Private Message an rexxitall  Schreiben Sie einen Gästebucheintrag für rexxitall

Beiträge: 266
Registriert: 07.06.2013

erstellt am: 19. Nov. 2013 11:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

mit vba eine relativ triviale Sache
Im Prinzip schauts wie folgt aus:


Function block_get_attribute(blo As AcadBlockReference, tagname) As String
    Dim AttList As Variant
    On Error Resume Next
    If blo.HasAttributes Then
        AttList = blo.GetAttributes
        For i = LBound(AttList) To UBound(AttList)
            If UCase(AttList(i).TagString) = tagname Or UCase(Trim(AttList(i).TagString)) = tagname & "_001" Then
                block_get_attribute = AttList(i).textstring
                Exit Function

            End If
        Next
    End If
End Function
sub rotateme
dim blockref as acadblockreference
dim entity as acadentity
for each entity in thisdrawing.modelspace
if lcase(entity.objectname)="acdbblockreference" then
set blockref=entity
if blockref.effectivename="BLOCKNAME" then
S= block_get_attribute(blockref, "ATTRIBUTNAME")
C= block_get_attribute(blockref, "FARBATTRIBUTNAME")
if isnumeric(s) then
r=val(s)
blockref.rotation=r
select case C
case "ROT"
blockref.color=acred
case "BLAU"
blockref.color=acblue

blockref.update
end if
endif

end if


next

end sub


Wie ueblich sind die ueblichen Huerden wie winkelumrechnungen
etc zu beachten. Und ist auch klar in dem falle sollte der blockeinfuegepunkt
gleichzeitig der drehpunkt sein.

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ejjj
Mitglied
Student

Sehen Sie sich das Profil von ejjj an!   Senden Sie eine Private Message an ejjj  Schreiben Sie einen Gästebucheintrag für ejjj

Beiträge: 5
Registriert: 15.11.2013

Autocad Civil 3D 2010

erstellt am: 22. Nov. 2013 16:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Zitat:
Original erstellt von rexxitall:

if lcase(entity.objectname)="acdbblockreference" then
set blockref=entity

An dieser Stelle bringt die SUB immer raus? Ist hier was falsch?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Cader52
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Cader52 an!   Senden Sie eine Private Message an Cader52  Schreiben Sie einen Gästebucheintrag für Cader52

Beiträge: 70
Registriert: 29.09.2011

AutoCAD 2012 SP1
AutoCAD 2013 SP1
Windows XP-Pro
Prozesseor AMD Athlon X2 (2 x 3.2GHz)

erstellt am: 22. Nov. 2013 17:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

Hallo

"acdbblockreference" sollte es nicht "acdblockreference" oder sogar AcadBlockReference heissen?

Mit freundlichen Grüssen! Cader52

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Cader52
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Cader52 an!   Senden Sie eine Private Message an Cader52  Schreiben Sie einen Gästebucheintrag für Cader52

Beiträge: 70
Registriert: 29.09.2011

AutoCAD 2012 SP1
AutoCAD 2013 SP1
Windows XP-Pro
Prozesseor AMD Athlon X2 (2 x 3.2GHz)

erstellt am: 22. Nov. 2013 17:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

Ups!!

Ich wollte eigentlich schreiben acadblockreference!

Mit freundlichen Grüssen! Cader52

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ejjj
Mitglied
Student

Sehen Sie sich das Profil von ejjj an!   Senden Sie eine Private Message an ejjj  Schreiben Sie einen Gästebucheintrag für ejjj

Beiträge: 5
Registriert: 15.11.2013

Autocad Civil 3D 2010

erstellt am: 25. Nov. 2013 15:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


VBA.PNG


Block.PNG

 
Es funktioniert mit beiden Varianten nicht.
Wenn ich das Makro per Einzelschritt ausführe tritt nie der Fall lcase(entity.objectname)="acdbblockreference" ein.
Selbiges wenn ich es nur ausführe.

Was mache ich denn falsch?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2624
Registriert: 02.05.2006

AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2022
Bricscad V11-V21 pro
Plateia, Canalis
Visual Basic

erstellt am: 25. Nov. 2013 20:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

Keinen Block in der aktiven Zeichnung? Oder verschachtelte Blöcke?

Prinzipiell funktioniert der Code von Rexxitall, fehlt nur ein End select:
Kannst ja mal hiermit probieren, bei mir macht es alles was es soll ...

Code:

Function block_get_attribute(blo As AcadBlockReference, tagname) As String
    Dim AttList As Variant
    On Error Resume Next
    If blo.HasAttributes Then
      AttList = blo.GetAttributes
      For i = LBound(AttList) To UBound(AttList)
        If UCase(AttList(i).TagString) = tagname _
        Or UCase(Trim(AttList(i).TagString)) = tagname & "_001" Then
          block_get_attribute = AttList(i).TextString
          Exit Function

        End If
      Next
    End If
End Function


Sub rotateme()
Dim blockref As AcadBlockReference
Dim entity As AcadEntity
Dim pi As Double
pi = 4 * Atn(1)
For Each entity In ThisDrawing.ModelSpace
  If LCase(entity.ObjectName) = "acdbblockreference" Then
    Set blockref = entity
    If blockref.EffectiveName = "UNNAMED" Then
      S = block_get_attribute(blockref, "WINKEL")
      C = block_get_attribute(blockref, "FARBE")
      If IsNumeric(S) Then
        r = Val(S) / 180# * pi
        blockref.Rotation = r
        Select Case C
        Case "ROT"
          blockref.Color = acRed
        Case "BLAU"
          blockref.Color = acBlue
        End Select
        blockref.Update
      End If
    End If
  End If
Next

End Sub


Wenn es nicht klappt, stell doch bitte eine Zeichnung mit einem Block hier ein.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 26. Nov. 2013 09:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich


AcPropsByAttValue_DLLs.zip


AcPropsByAttValue_setup_0.0.zip

 
Hallo @all,

ich habe mal ein paar Bausteine zusammen gesetzt. Das Ergebnis ist das anbei befindliche Tool mit dem aus den Attributwerten
-> die Farbe (Nur ACI-Farben 0-256)
-> die Layer (sofern diese in der Zeichnung existieren)
-> die Drehung
der Blockreferenz geändert werden können.

Das Tool ist Freeware und läuft unter AutoCAD 2011 - 2014 (und den darauf basierenden Applikationen).

Zur Installation via Setup-Routine sind Admin-Rechte erforderlich. Hat man die nicht, nimmt man die DLL's speichert diese auf der lokalen Festplatte, startet AutoCAD und lädt die entsprechend der eigenen AutoCAD-Version benannte DLL-Programmdatei mit dem Befehl NETLOAD (auch dies ist nur einmalig erforderlich, weil sich das Tool selbst für den AutoLoad registriert).

Über Feedback freue ich mich (wie immer).

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.


defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!


Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2624
Registriert: 02.05.2006

AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2022
Bricscad V11-V21 pro
Plateia, Canalis
Visual Basic

erstellt am: 26. Nov. 2013 10:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

Danke Holger,
Werde es gelegentlich mal testen, wenn ich mal wieder mit einer aktuellen AutoCAD Version arbeiten darf :P
(Verwende zur Zeit hauptsächlich Bricscad  aber bei VBA ist das ja egal, bei Net natürlich nicht )
Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rexxitall
Mitglied
Dipl. -Ing. Bau


Sehen Sie sich das Profil von rexxitall an!   Senden Sie eine Private Message an rexxitall  Schreiben Sie einen Gästebucheintrag für rexxitall

Beiträge: 266
Registriert: 07.06.2013

erstellt am: 29. Nov. 2013 16:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ejjj 10 Unities + Antwort hilfreich

Danke KlaK,
ist mir glatt durchgerutscht das "poehse" end if 

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz