Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  vla-GetPaperSize: auch fuer nicht aktuelle MediaName's?

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
Autor Thema:   vla-GetPaperSize: auch fuer nicht aktuelle MediaName's? (770 mal gelesen)
joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


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

Beiträge: 1661
Registriert: 11.10.2004

Window 8.1
ACAD 2012-2020
CIVIL 2012 - 2020
BricsCAD V14-V20
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050

erstellt am: 15. Jan. 2015 07:56    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

Hallo,
folgendes Problem: ich möchte für alle Papierformate des aktuellen Plotters des aktuellen Layouts die Größen haben.

Mit vla-GetPaperSize kann ich aber nur die Größe des aktuellen Papierformates zurückgeben.

Daher habe ich es mal von hinten durch die Brust ins Auge probiert:
Liste mit Papierformaten durchlaufen
  a. Papierformat aktuell setzen
  b. Rückgabe: PapierformatName + Größe über vla-GetPaperSize

Das geht bei einigen Papierformaten extrem auf die Performance, gibt es eine andere Möglichkeit direkt auf die Größen der verfügbaren Papierformate des aktuellen Plotters zuzugreifen?

Code:

(defun c:test ( / )
  (JBf_Plotter:MediaName:List:WithSize)
  )

;;;GrößenListe anhand der MediaNameList für aktuelles Layout
(defun JBf_Plotter:MediaName:List:WithSize ( /  ACTIVEDOCUMENT CONFIGNAME
                                            CONFIGSIZELIST HEIGTH
                                            LAYOUT MEDIANAME MEDIANAMECURRENT
                                            WIDTH)
 
  (setq MediaNameCurrent (JBf_Plotter:CanonicalMediaName:Get nil))

  (setq ActiveDocument (JBf_Plotter:ActiveDocument)
        layout(JBf_Plotter:Layout ActiveDocument nil))

  (setq ConfigSizeList(mapcar '(lambda(MediaName)
                                (vla-put-CanonicalMediaName layout MediaName)
                                (vla-RefreshPlotDeviceInfo
                                  (vla-get-activelayout ActiveDocument))
                                (vla-GetPaperSize layout 'Width 'Heigth)
                                (list MediaName (list Width Heigth)))
                        (JBf_Plotter:ConfigName:List nil)))

  ;;;alten Namen wieder herstellen
  (vla-put-CanonicalMediaName layout MediaNameCurrent)
  (vla-RefreshPlotDeviceInfo
    (vla-get-activelayout ActiveDocument))
  ConfigSizeList)


;;;ActiveDocument
(defun JBf_Plotter:ActiveDocument ( / ActiveDocument)
  (setq ActiveDocument (vla-get-activedocument (vlax-get-acad-object)))
  (vla-RefreshPlotDeviceInfo
  (vla-get-activelayout ActiveDocument))
  ActiveDocument)

;;;Layout über LayoutName oder Current
(defun JBf_Plotter:Layout (ActiveDocument LayoutName / )
  (if LayoutName
    (vla-item (vla-get-layouts ActiveDocument) LayoutName)
    (vla-get-activelayout ActiveDocument)
    )
  )

;;;Eine Liste mit allen Papierformaten zum aktuellen Layout oder,
;;;wenn Layoutname gesetzt muss es nicht das Aktuelle sein.
;;;wenn kein Plotter gesetzt ist wird grundsätzlich NIL zurückgegeben
(defun JBf_Plotter:ConfigName:List (LayoutName / ACTIVEDOCUMENT LAYOUT)

  (setq ActiveDocument (JBf_Plotter:ActiveDocument)
        layout(JBf_Plotter:Layout ActiveDocument LayoutName))
 
  (vlax-safearray->list
    (vlax-variant-value(vla-GetCanonicalMediaNames layout)))
  )

;;;PapierName aus aktuellem TAB (Model oder Layout) zurückgeben
(defun JBf_Plotter:CanonicalMediaName:Get(LayoutName / ACTIVEDOCUMENT LAYOUT)

  (setq ActiveDocument (JBf_Plotter:ActiveDocument)
        layout(JBf_Plotter:Layout ActiveDocument LayoutName))

  (vla-get-CanonicalMediaName layout)
)



Vor dem testen lieber alles speichern

 

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Orthogonalvermassung Youtube

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


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

Beiträge: 1661
Registriert: 11.10.2004

Window 8.1
ACAD 2012-2020
CIVIL 2012 - 2020
BricsCAD V14-V20
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050

erstellt am: 18. Jan. 2015 13:20    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 will diesen Beitrag nur nochmal nach vorne holen, vielleicht hat ja doch noch irgendwer von Euch eine Idee?!?

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Orthogonalvermassung Youtube

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)2020 CAD.de | Impressum | Datenschutz