Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  bildeigenschaften via lisp abfragen

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:  bildeigenschaften via lisp abfragen (961 mal gelesen)
tappenbeck
Mitglied
Vermessungsingenieur


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

Beiträge: 1213
Registriert: 30.05.2002

AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net

erstellt am: 21. Okt. 2003 09:12    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

ich benötige einige eigenschaften von bildern aus autocad heraus.

im buch autocad objekt von dietmar rudolph habe ich schon einige informationen gefunden - nur leider fehlt es noch an der umsetzung.

vielleicht kann mir jemand von euch weiterhelfen.

folgendes habe ich bisher zusammengetragen:

- die rechte obere ecke
  die linke untere ecke bekomme ich über den gc 10 und die bildbreite/höhe soll über gc 11 und 12 definiert werden können. aber wie ??

- den namen der bilddatei
  dieser soll im gc 1 vom AcDbRasterImageDef sich befinden - nur liefert mir (entget (car (entsel))) keinerlei ansatzpunkt hierfür.

vielen dank im voraus.

gruß Jan :-)

------------------
jan :-)

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

fuchsi
Mitglied
Programmierer c#.net Datawarehouse


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

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 21. Okt. 2003 10: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 Nur für tappenbeck 10 Unities + Antwort hilfreich

der gc10 ist der einfügepunkt
der gc11 ist der U-vektor
(das ist der abstand des rechten,unteren punktes ausgehend vom einfügepunkt in x,y,z)
der gc12 ist der V-Vektor
(das ist der abstand des linken oberen punktes ausgehend vom einfügepunkt in x,y,z)
ist das bild mit winkel 0 eingefügt ist der gc11 eine liste aus (bildbreite 0 0) und der gc12 eine liste aus (0 buildhöhe 0)
ist das bild mit winkel<>0 eingefügt , wirds etwas koplizierter

den pfad erhälst du über den gc340, dieser enthält wiederum einen elementanme, dessen elementdaten im gc1 den vollständigen pfad gespeichert hat
z.B.:
    (setq en1 (car (entsel))) ' elemntname image (über entsel)
    (setq ed1 (entget en1)) ' elemtdaten image
    (setq en2 (cdr (assoc 340 ed1))) ' elementname "zusatzdaten"
    (setq ed2 (entget en2)) ' elementdaten "zusatzdaten"
    (setq pfad (cdr (assoc 1 ed2))) ' pfad


aus der autocadhilfe

100 Subklassenmarkierung (AcDbRasterImage) 
90 Version der Klasse
10 Einfügepunkt (im WKS)
DXF: X-Wert; ANW: 3D-Punkt
20, 30 DXF: Y- und Z-Werte des Einfügepunkts (im WKS)
11 U-Vektor eines einzelnen Pixels; verläuft entlang der sichtbaren Unterseite des Bildes, beginnend am Einfügepunkt (im WKS)
DXF: X-Wert; ANW: 3D-Punkt
21, 31 DXF: Y- und Z-Werte des U-Vektors (im WKS)
12 V-Vektor eines einzelnen Pixels; verläuft entlang der sichtbaren linken Seite des Bildes, beginnend am Einfügepunkt (im WKS)
DXF: X-Wert; ANW: 3D-Punkt
22, 32 DXF: Y- und Z-Werte des V-Vektors (im WKS)
13 Bildgröße in Pixel
DXF: U-Wert; Anw.: 2D-Punkt (U- und V-Werte)
23 DXF: V-Wert der Bildgröße in Pixel
340 Hard-Referenz auf imagedef-Objekt
70 Anzeigeeigenschaften des Bildes:
1 = Bild anzeigen
2 = Bild anzeigen, falls Bild nicht am Bildschirm ausgerichtet ist
4 = Zuschneide-Umgrenzung verwenden
8 = Transparenz aktiviert
280 Zuschneide-Status: 0 = Aus, 1 = Ein
281 Helligkeit (0 bis 100; Vorgabewert = 50)
282 Kontrast (0 bis 100; Vorgabewert = 50)
283 Fade-Wert (0 bis 100, Vorgabewert = 0)
360 Hard-Referenz auf imagedef_reactor-Objekt
71 Typ der Zuschneide-Umgrenzung. 1 = Rechteckig, 2 = Polygonal
91 Anzahl der nachfolgenden Scheitelpunkte für Zuschneide-Umgrenzung
14 Scheitelpunkt für Zuschneide-Umgrenzung (im OKS)
DXF: X-Wert; ANW: 2D-Punkt (mehrere Einträge)
Anmerkungen:
1) Bei rechteckigen Zuschneide-Umgrenzungen müssen zwei gegenüberliegende Ecken angegeben werden. Vorgabewerte: (-0.5, -0.5), (Größe.x-0.5, Größe.y-0.5).
2) Bei polygonalen Zuschneide-Umgrenzungen müssen drei oder mehr Scheitelpunkte angegeben werden. Die Scheitelpunkte des Polygons sind sequentiell aufzulisten. Die Scheitelpunkte des Polygons sind sequentiell aufzulisten.
24 DXF: Y-Wert des Scheitelpunkts der Zuschneide-Umgrenzung (im OKS) (mehrere Einträge)

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

fuchsi
Mitglied
Programmierer c#.net Datawarehouse


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

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 21. Okt. 2003 10:53    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 tappenbeck 10 Unities + Antwort hilfreich

sorry noch ne kleine ergänzung, der U-vektor ist nur der vektor eines einzigen pixels ! und nicht der bildbreite

im GC13 hast du eine liste aus (xPixel und YPixel)

dir berrechnung ´des rechten oberen punktes läuft dann so

    (setq en1 (car (entsel)))  ' elementname image
    (setq ed1 (entget en1)) ' elemtdaten image

    (setq LiUn (cdr (assoc 10 ed1))) ' einfügepunkt

    (setq u (cdr (assoc 11 ed1))) ' u-vektor
    (setq u1 (polar LiUn 0 (car u)))
    (setq u1 (polar u1 (/ pi 2.) (cadr u))) ' u-punkt absolut
    (setq ReUn (polar LiUn (angle LiUn u1) (* (distance LiUn u1) (car (cdr (assoc 13 ed1)))))) ' rechter unterer punkt

    (setq v (cdr (assoc 12 ed1))) ' V-vektor
    (setq v1 (polar LiUn 0 (car v)))
    (setq v1 (polar v1 (/ pi 2.) (cadr v))) ' V-punkt absolut
    (setq ReOb (polar ReUn (angle LiUn v1) (* (distance LiUn v1) (cadr (cdr (assoc 13 ed1)))))) ' rechter oberer punkt

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