| | |
 | 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 |
Foren auf CAD.de (alle Foren)
| 
- 
