| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Zugriff auf EEDs per VLISP (1120 mal gelesen)
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1356 Registriert: 11.01.2006 WIN 10 ACAD 2022
|
erstellt am: 25. Feb. 2009 09:51 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich möchte per VLISP auf Erweiterte Elementdaten von einem Insert zugreifen. Mit vlax-dump-object hab ich mir das mal angeschaut: ; IAcadBlockReference: AutoCAD Block Reference-Schnittstelle (Blockreferenz) ; Eigenschaftswerte: ; Application (RO) = #<VLA-OBJECT IAcadApplication 00d077b4> ; Document (RO) = #<VLA-OBJECT IAcadDocument 098fbe08> ; EffectiveName (RO) = "2A002022" ; Handle (RO) = "1FD11" ; HasAttributes (RO) = -1 ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0baf8d24> ; InsertionPoint = (-18050.7 4957.64 0.0) ; InsUnits (RO) = "Keine Einheit" ; InsUnitsFactor (RO) = 1.0 ; IsDynamicBlock (RO) = 0 ; Layer = "E__E_BL" ; Linetype = "ByLayer" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Material = "ByLayer" ; Name = "2A002022" ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 2111497416 ; ObjectName (RO) = "AcDbBlockReference" ; OwnerID (RO) = 2105105656 ; PlotStyleName = "ByLayer" ; Rotation = 0.0 ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 0baf8010> ; Visible = -1 ; XEffectiveScaleFactor = 20.0 ; XScaleFactor = 20.0 ; YEffectiveScaleFactor = 20.0 ; YScaleFactor = 20.0 ; ZEffectiveScaleFactor = 20.0 ; ZScaleFactor = 20.0 ; Unterstützte Methoden: ; ArrayPolar (3) ; ArrayRectangular (6) ; ConvertToAnonymousBlock () ; ConvertToStaticBlock (1) ; Copy () ; Delete () ; Explode () ; GetAttributes () ; GetBoundingBox (2) ; GetConstantAttributes () ; GetDynamicBlockProperties () ; GetExtensionDictionary () ; GetXData (3) ; Highlight (1) ; IntersectWith (2) ; Mirror (2) ; Mirror3D (3) ; Move (2) ; ResetBlock () ; Rotate (2) ; Rotate3D (3) ; ScaleEntity (2) ; SetXData (2) ; TransformBy (1) ; Update () Hab ich GetXData und SetXData gefunden, aber das ist was anderes. Bin ich nur zu blind oder muß ich da ganz anders drangehen ? Helft mir doch mal bitte ------------------ Gruß Andreas http://kraus-cad.de [Diese Nachricht wurde von Andreas Kraus am 25. Feb. 2009 editiert.] 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: 25. Feb. 2009 16:01 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
(entget (car (entsel)) (list "*"))) So werden die eeds mit ausgewählt und angezeigt (Gruppe -3). Natürlich können Sie dann auch modifiziert werden. Will man nur die eeds der eigenen Anwendung modifizieren, dann statt "*" evt. auch nur "meineApp". ------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1356 Registriert: 11.01.2006 WIN 10 ACAD 2022
|
erstellt am: 25. Feb. 2009 17:32 <-- editieren / zitieren --> Unities abgeben:
Das weis ich doch schon. Ich möchte aber mit vlisp-Befehlen an die EEDs weil ich über ODBX Daten aus den Blöcken auslese für meine Massenermittlung. An die Attribute komm ich ja ran, mir fehlen aber noch die EEDs. Trotzdem Danke
------------------ Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 25. Feb. 2009 17:59 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1356 Registriert: 11.01.2006 WIN 10 ACAD 2022
|
erstellt am: 25. Feb. 2009 22:00 <-- editieren / zitieren --> Unities abgeben:
Hm..., da hab ich aber schon alles was mir eingefallen ist durchprobiert. Entweder raff ich nicht oder mir ist noch nicht das richtige eingefallen . Kannst du mir da mal ein Beispiel geben ? ------------------ Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 26. Feb. 2009 06:45 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
Hi, Beispiel Führung(Leader) (setq en (car (entsel)));...klar ;(entget en '("*"));...-3."ACAD"-->APP ermitteln (zum schauen) (setq obj (vlax-ename->vla-object en));...klar (vla-getxdata obj "ACAD" 'xType 'xData) ;getxdata - als savearray in xtype xdata ;siehe Hilfe GetXData Method (vlax-safearray->list x...);...u.a. zum weiter verwurschten mfg heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 26. Feb. 2009 07:59 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>
|
erstellt am: 26. Feb. 2009 09:19 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1356 Registriert: 11.01.2006 WIN 10 ACAD 2022
|
erstellt am: 26. Feb. 2009 11:43 <-- editieren / zitieren --> Unities abgeben:
Danke CADmium !!! Das hat geholfen, bin wieder runter vom Schlauch. Mann war das blöd (ich erzähl jetzt lieber nicht was ich gemacht hab) Ja ja - Aschermittwoch hatts in sich Us sind unterwegs ------------------ Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |