Hallo Zusammen,
ich habe ein Lisp welches mir bei der Statusänderung im PDM-System
in der geöffneten ACAD-Zeichnung ein Plotfile erstellt und dieses
ins PDM-System übernimmt.
Leider ist das Lisp noch so "dumm" und erzeugt das Plotfile nur mit der zuletzt verwendeten Seiteneinrichtung und die ist wenn man zuletzt z.B. verkleinert auf A4 gedruckt hat nicht richtig um sie für das Plotfile in die Datenbank zu verwenden.
dem Lisp sind anscheinend die Namen der Rahmen bekannt "layoutformats"
So könnte es doch möglich sein in das Lisp folgendes vor dem eigentlichen Plotten einzubauen:
wenn layoutformats = E-Format dann setze die Seiteneinrichtung "E-Format 1zu1" aktuell
wenn layoutformats = F-Format dann setze die Seiteneinrichtung "F-Format 1zu1" aktuell
...
Die entsprechenden Seiteneinrichtungen sind in den Zeichnungen immer
vorhanden da ich sie beim Öffnen der Zeichnung automatisch importiere)
Hier das vorhandene Lisp:
----------------------------------------
; support script for plotting with cdb acad integration, last tested with acad2005
;
; The following symbols will be passed to this script:
;
; cdb_file_wait_timeout: time to wait for file
; cdb_format: the cdb frame name
; cdb_erzeug_system: no comment
; cdb_plot_file_name: file name to plot to
; cdb_first_layout: der name des ersten gueltigen layouts (deprecated)
;
;
; additionaly, these lists are filled, if plotting of
; other layouts is wanted:
;
; layoutnames: die namen aller layouts, fuer die das sec. format generiert werden soll
; layoutfiles: die dabei zu verwendeten dateinamen
; layoutformats: das cdb-format (die rahmennamen) auf den layouts
;
;
; meaning of the command parameters:
; _n: no detailed configuration
; "": plot current layout
; "": take default page setup
; "Tiff_Komprimiert.pc3": plotter to use
; cdb_plot_file_name: name of the target file
; "": dont save changes on the page setup
; "j": continue the plotting, plz
;
;(setvar "cmdecho" 0)
(command "_plot" "_n" "" "" "Oce 9800 EPC1.x.pc3" "" cdb_plot_file_name "" "j")
; von Behling auskommentiert (command "_plot" "_n" "" "" "TIFF Version 6 (CCITT G4 2D-Komprimierung).pc3" "" cdb_plot_file_name ""
"j")
;(command "_plot" "_n" "Layout1" "" "Oce_9800_EPC_1.0.1_Min.pc3" "" cdb_plot_file_name "" "_y")
;(command "_plot" "_n" "Layout2" "" "Oce_9800_EPC_1.0.1_Min.pc3" "" cdb_plot_file_name "" "_y")
;(command "_plot" "_n" "Layout2" "" "CDBHPGL.pc3" "_y" "xx.plt" "_n" "_y")
(setq i 0)
(if (/= layoutnames nil)
(while (nth i layoutnames)
(command "_plot" "_n" (nth i layoutnames) "" "Oce 9800 EPC1.x.pc3" "" (nth i layoutfiles) "" "_y")
; von Behling auskommentiert (command "_plot" "_n" (nth i layoutnames) "" "TIFF Version 6 (CCITT G4 2D-Komprimierung).pc3" ""
(nth i layoutfiles) "" "_y")
(setq i (+ i 1))
)
)
;(setvar "cmdecho" 1)
cimdb_zvs_plot_do_rest
------------------------------------------------------
In einem Beitrag von Marc Scherer habe ich das setzen der Seiteneinrichtung gefunden:
(setPageSetupName (vla-get-activedocument (vlax-get-acad-object)) "LayoutName" "SetupName")
Aber wie kombiniere ich das?
Danke und Gruß Wolfgang
------------------
"Früher war die Zukunft besser"
-Karl Valentin-
[Diese Nachricht wurde von Wolli am 13. Okt. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP