---

Hallo

Kennt jemand eine Möglichkeit, den Namen des Papierformats des aktuellen Layouts in eine Variable zu schreiben?

Oder gibt es eine Möglichkeit, den Wert eines Schriftfeldes in einer Variable zu speichern? Oder den Wert des Schriftfeldes über Lisp abzurufen?

Schriftfeld: %<\AcVar PaperSize \f "%tc3">%

Vielen Dank schon mal!

------------------

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

---

Eigentlich problemlos. Erstelle ein Attribut, weise ihm "%<\AcVar PaperSize>%" zu, lese und setq'ue diesen Attributswert um.

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Dann gehe ich davon aus, das die Variable nicht direkt aus LISP angesprochen werden kann.

Betreffend Attributen auslesen stehe ich total auf dem Schlauch. Wie kann ich den Wert aus dem Attribut auslesen?

Gruss Zeli

------------------

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

---

(defun DT:LAYOUT-GET-PAPERSIZE ( / Width Height)
  (vl-load-com)
 
  (if (setq LAYOUT(vla-get-activelayout(vla-get-activedocument(vlax-get-acad-object))))
    (progn
      (vla-GetPaperSize LAYOUT 'WIDTH 'HEIGHT)                     
      (list WIDTH HEIGHT)
    ) 
  )
)

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke für die Antwort. Damit krieg ich jedoch die Masse und nicht den Namen des Papierformats. Ich bräuchte den Namen...

Ein Lösungsansatz wäre das:
(SETQ SIZE (VLA-GET-CANONICALMEDIANAME (VLA-GET-ACTIVELAYOUT (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))))

Allerdings erhalte ich das Ergebnis "UserDefinedMetric (297.00 x 420.00mm)" und der Original-Name lautet "A3 (297 x 420 mm)"

Gibt es keine Möglichkeit an die Variable des Namens heranzukommen?

------------------

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

---

Weis nicht ob es das ist was du willst.
Du müsstest nur nach dem Attribut suchen und dann könntest du so etwas in der Rrichtung anwenden.

Code:

---

(setq asas (vlax-ename->vla-object(car(entsel)))))

(if (eq(vla-FieldCode asas) "%<\\AcVar PaperSize>%" )
(vla-get-TextString asas))

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Hi,

vom CanonicalMediaName zum LocaleMediaName wäre es auch nur noch ein kleiner Schritt: 

(setq objLayout
      (vlax-get-property
        (vlax-get-property
          (vlax-get-acad-object)
          'ActiveDocument
        )
        'ActiveLayout
      )
)
(vlax-invoke-method objLayout 'RefreshPlotDeviceInfo)
(vlax-invoke-method
  objLayout
  'getLocaleMediaName
  (vlax-get-property
    objLayout
    'CanonicalMediaName
  )
)

Gruß
CADchup

------------------
CADmaro.de

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

---

Hallo CADchup!

Vielen Dank! Das funktioniert perfekt.

Gruss Zeli

------------------

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