| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
Autor
|
Thema: Zugriff auf EEDs per VLISP (1152 mal gelesen)
|
Andreas Kraus Ehrenmitglied Elektrotechniker
    
 Beiträge: 1500 Registriert: 11.01.2006 WIN 11 ACAD 2022 BricsCAD V25.1.07
|
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: 9808 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, 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 Ehrenmitglied Elektrotechniker
    
 Beiträge: 1500 Registriert: 11.01.2006 WIN 11 ACAD 2022 BricsCAD V25.1.07
|
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: 13530 Registriert: 30.11.2003 .
|
erstellt am: 25. Feb. 2009 17:59 <-- editieren / zitieren --> Unities abgeben:          Nur für Andreas Kraus
|
Andreas Kraus Ehrenmitglied Elektrotechniker
    
 Beiträge: 1500 Registriert: 11.01.2006 WIN 11 ACAD 2022 BricsCAD V25.1.07
|
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: 13530 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: 1776 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 26. Feb. 2009 09:19 <-- editieren / zitieren --> Unities abgeben:          Nur für Andreas Kraus
|
Andreas Kraus Ehrenmitglied Elektrotechniker
    
 Beiträge: 1500 Registriert: 11.01.2006 WIN 11 ACAD 2022 BricsCAD V25.1.07
|
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 |