---

Hallo Forum,

ich arbeite mit AutoCAD MAP 2005.
Per Stapelverarbeitung möchte ich eine bestimmte Seiteneinrichtungen Aktuell setzen. In meinem Falle "HP1220C_FA".
Gibt es hierfür ein Lispbefehl?

Vielen Dank !

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

---

Hallo Björn,
hier ist eine präzise Terminologie gefordert...
Was GENAU willst Du aktuell setzen?
Eine BENANNTE SEITENEINRICHTUNG? Oder möchtest Du in einer Seiteneinrichtung nur die Zuweisung der PC3 Datei (oder des Druckers) ändern?
Soll sich die Änderung auf ALLE Layouts beziehen?
Oder nur auf den Modellbereich?

------------------
Ciao,
Marc

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

---

Hallo Marc,

ich möchte eine Benannte Seiteneinrichtung aktuell setzen.
Diese Benannte Seiteneinrichtung habe ich vorher mit
(command "seinrichtimp" "U:/MASSENPLOT/MASSENPLOT.DWG" "HP1220C_FA")
importiert.

Bisdann Björn

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

---

Hi Björn,
Dein Topic läßt in mir die Frage aufkommen inwieweit benannte Seiteneinrichtungen eventuell auch bei mir zum Einsatz kommen könnten...
Daraufhin habe ich mal die Jungs aus dem Chat gefragt...
tunnelbauer hat mir folgenden Link gepostet: http://jtbworld.com/lisp/pagesetup.htm
Hier findest Du u.a. die Funktion:
setPageSetupName

In folgender Art eingesetzt:
(setPageSetupName (vla-get-activedocument (vlax-get-acad-object)) "LayoutName" "SetupName")
funzt die sogar... :-)

------------------
Ciao,
Marc

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

---

mal noch ein Ansatz ohne Command:

(defun DT:SET-PLOTCONFIG (LAYOUTNAME PLTCFGNAME / PLTCFGLISTE LAYOUTLISTE LAYOUT PLTCFG)
  (vl-load-com)
  (vlax-for ITEM(vla-get-PlotConfigurations
                  (vla-get-ActiveDocument(vlax-get-acad-object))
                )
    (setq PLTCFGLISTE (cons (list (strcase(vla-get-NAME ITEM)) ITEM)PLTCFGLISTE))
  )
 
  (vlax-for ITEM(vla-get-Layouts
                  (vla-get-ActiveDocument(vlax-get-acad-object))
                )
    (setq LAYOUTLISTE (cons (list (strcase(vla-get-NAME ITEM)) ITEM)LAYOUTLISTE))
  )
  (if (and(=(type LAYOUTNAME)'STR)
          (=(type PLTCFGNAME)'STR)
          (setq LAYOUT (assoc (strcase LAYOUTNAME) LAYOUTLISTE))
          (setq PLTCFG (assoc (strcase PLTCFGNAME) PLTCFGLISTE))
      )
    (progn
      (mapcar
        '(lambda(X)
           (if(not(vl-catch-all-error-p
                    (setq PROP(vl-catch-all-apply      
                                'vlax-get-property
                                (list (cadr PLTCFG) X)
                              )
                    )
                  ) 
              )   
            (not(vl-catch-all-error-p
                    (vl-catch-all-apply      
                      'vlax-put-property
                       (list (cadr LAYOUT) X PROP)
                    )
                )
            )            
          )
        )        
       '(ConfigName StyleSheet ShowPlotStyles
         CanonicalMediaName PaperUnits PlotRotation         
         PlotType ViewToPlot StandardScale UseStandardScale ScaleLineweights         
         CenterPlot PlotOrigin
         PlotWithPlotStyles PlotWithLineweights PlotViewportsFirst PlotHidden
         PlotViewportBorders
        )
      ) 
    )        
  )
)

aufruf mit
(DT:SET-PLOTCONFIG "LAYOUTNAME" "SEITENEINRICHTUNGSNAME")

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

[Diese Nachricht wurde von CADmium am 01. Mrz. 2005 editiert.]

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