| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Info aus den Blöcken lesen (1120 mal gelesen)
|
ManfredMann Mitglied CAD Konstrukteur
Beiträge: 216 Registriert: 27.04.2001 Autocad 2021 / Win10- 64 bit
|
erstellt am: 29. Nov. 2014 12:37 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich möchte Euch um Hilfe bitten, um aus Blöcken paar Infos lesen zu können. Es geht um Eplan-Symbole, die Blöcke sind. Aus denen möchte ich die Angaben über Position, Drehung, 2 Attributentexte und 2 Benutzerdefinierte Werte für WIDTH und MODE auslesen. Bis zu den letzteren 2, die Benutzerdefinierten Werte kann ich alle auslesen. Ich brauche diese Angaben, diese Blöcke mit anderen ersetzen zu können. (ich habe versucht aus den alten Themen eine Lösung zu finden, aber bis jetzt ohne Ergebnis) WIDTH steuert die Breite des Ovals, Mode steuert das Aussehen. Ich habe eine DWG und eine JPG mit dem entsprechenden Inhalt hochgeladen. Könntet ihr mir sagen, wie ich die WIDTH und MODE auslesen kann? Danke im Voraus, Manfred
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11
|
erstellt am: 29. Nov. 2014 13:07 <-- editieren / zitieren --> Unities abgeben: Nur für ManfredMann
|
ManfredMann Mitglied CAD Konstrukteur
Beiträge: 216 Registriert: 27.04.2001 Autocad 2021 / Win10- 64 bit
|
erstellt am: 30. Nov. 2014 02:46 <-- editieren / zitieren --> Unities abgeben:
Danke Udo für Deinen Vorschlag, diese Funktionen von Lee Mac habe bereits ausprobiert, aber ich komme mit dennen leider auch nicht weiter. Die rufen anscheinend weitere Funktionen auf, die mir nicht definiert bzw. bekannt sind. Könnte mir jemand mit konkreten Programm-Zeilen weiter helfen? Wie beschrieben konnte ich die beiden Attribute bereits lesen und in Variablen schreiben mit: (defun c:blk (/ dxf ent) (defun dxf (code ent) (cdr (assoc code (entget ent)))) (if (and (setq ent (car (entsel "\nSelect an Attributed Block: "))) (eq "INSERT" (dxf 0 ent)) (= 1 (dxf 66 ent)) )
(while (not (eq "SEQEND" (dxf 0 (setq ent (entnext ent))))) (if (= "TEXT1"(dxf 2 ent)) (setq attr1 (dxf 1 ent)) ) (if (= "TEXT2"(dxf 2 ent)) (setq attr2 (dxf 1 ent)) ) )) (princ "\nattribut1: ") (princ attr1) (princ "\nattribut2: ") (princ attr2) (princ) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meldin Mitglied
Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 30. Nov. 2014 09:47 <-- editieren / zitieren --> Unities abgeben: Nur für ManfredMann
Hallo, vielleicht hilft dir das weiter. Code: (setq AWS (car(entsel))) (setq WIDTH(getpropertyvalue AWS "AcDbDynBlockPropertyWIDTH" )) (setq MODE(getpropertyvalue AWS "AcDbDynBlockPropertyMODE" ))
------------------ Gruß Wolfgang Alias: Rabbit007 und Wolli1 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Solution Manager (m/w/d) Business Development | Wir sind Cideon. Prozessoptimierer und Systemintegrator, Produktdatenberater und digitaler Enabler. Wir sind Teil der Friedhelm Loh Group. Familienunternehmen und Global Player, Innovationsführer und Top-Arbeitgeber. Zur Unterstützung unseres Solution Management Teams suchen wir Sie an einem unserer bundesweiten Standorte zum nächstmöglichen Termin. Solution Manager (m/w/d) ... | Anzeige ansehen | Business Development |
|
ManfredMann Mitglied CAD Konstrukteur
Beiträge: 216 Registriert: 27.04.2001 Autocad 2021 / Win10- 64 bit
|
erstellt am: 30. Nov. 2014 14:39 <-- editieren / zitieren --> Unities abgeben:
|