Hallo!
das geht mit etwas Programmieraufwand..
Fragen Sie mal Herrn Wolff aus dem Forum an - er "verkauft"
Ihnen vielleicht sein PDF-Makro-Erzeugungsprogramm!
Es steckt sehr viel Programmierwissen dahinter...!
PM-Message an Wolff!
Ein Vorschlag...
Die 3 Makros in den Editor kopieren und in das Szene-Verzeichnis speichern.
Im Dos-Fenster die Liste.Dat erzeugen (alle SZA-Datein werden gelistet!)
Ev. müssen Sie Ihren PDF-Drucker noch einstellen und die PDF-Druckernummer mit dem Befehl
popup 0:PLOTPSEL - REM weg in der Datei - da kann man ersehen welche Nummer der PDF-Drucker hat
STRG+8 Makro pdf-drucken starten
Nun geht es los -
pdf-drucken.mac
REM Laden Sie eine Konstruktion in den Arbeitsspeicher
REM Erzeugen Sie eine Datei Liste.DAt mit dem Befehl
REM "dir /b *.SZA>LISTE.DAT" in der DOSbOX...
REM Bitte eine Konstruktion laden
REM HICAD-Next VN:1206
REM HiCAD
START 59
HNEXT
$dat:=c:LISTE
open $dat
if not vorhd then
echo Keine Dateiliste vorhanden
close $dat
goto 100
ifend
20:input $sza
if not dvorhd goto 99
$sza:=$sza(1:8)
REM 1:8 bedeutet Dateinamenlänge bis 8 Zeichen
call c:laden
call c:drucken-isd
goto 20
99:echo Alle Dateien eingel. oder keine oder leere Liste (liste.DAT) vorhanden
100:END
laden.mac
REM HICAD-Next VN:1206
REM HiCAD
START 59
HNEXT
REM HiCAD 3 = 3-D SZENE
OPTION 3 59
REM 3D - SZENE 2 = Laden
OPTION 2 101
if vorhd then
Antwort 0
ifend
STRING $sza
END
drucken-isd.mac
REM HICAD-Next VN:1212
REM HiCAD
START 59
HNEXT
REM HiCAD 3 = 3-D SZENE
OPTION 3 59
OPTION ESC
REM BERECHNUNG 2 = Eigene Verf.
OPTION 2 159
rem **********************************************************
rem Dieses Makro ermoeglicht die Druckausgabe der Gesamtan-
rem sicht einer Zeichnung auf einen Drucker. Es kann als Er-
rem klaerung der beim callhpm - Aufruf anzugebenden Parameter
rem dienen.
rem
rem Werteingaben
rem %drnr: Druckernummer (ermittelt ueber das automatisch er-
rem zeugte Popup 0 lotpsel
rem %drco: Farbdrucker ? (ermittelt aus plotpsel
rem %ndru: Anzahl der zu druckenden Exemplare
rem %nfor: Papierformat
rem %npka: Papierkassette
rem **********************************************************
rem **********************************************************
rem Vorschlagswert fuer %ndru definieren %nrdr-Drucker ist der PDF-Drucker
rem **********************************************************
%ndru:=1
rem **********************************************************
rem Erzeugen einer Gesamtansicht im Plotfenster und Erzeugung
rem der Plotdatei z:fastplot mithilfe der Parameterdatei
rem PLOPAR.DRF (Standard)
rem **********************************************************
rem **********************************************************
rem Abfragen der Druckparameter, hierfuer wird auch das Popup
rem plotpsel.mnu aufgerufen, das Informationen zu den vorhan-
rem denen Ausgabegerten enthaelt.
rem **********************************************************
rem popup 0:PLOTPSEL REM weg - da kann man ersehen welche Nummer der PDF-Drucker hat
rem $drnr:=%drnr
rem popup 0:PLOTPSEL
$drnr:=1
$drco:=%drco
$drco:=1
rem
rem *** VAR - Abfrage fuer Anzahl
rem var %ndru Anzahl Ausdrucke:
$ndru:=1
rem
rem *** VAR - Abfrage fuer Papierformat
rem var %nfor Papierformat (1 = A4, 2 = A3)
$nfor:=1
rem
rem *** VAR - Abfrage fuer Papierkassette
rem var %npka Papierkassette (1 = oben, 2 = unten)
$npka:=1
rem **********************************************************
rem Zusammensetzen der Parameter fuer callhpm:
rem *** 1. Stelle: P
rem *** 2. Stelle: Druckernummer
rem *** 3. Stelle: Papierformat
rem *** 4. Stelle: Papierkassette
rem *** 5. Stelle: Farbdruck (1 = ja, 0 = nein)
rem *** 6. Stelle: Anzahl
rem *** 7. Stelle: 0
rem *** 8. Stelle: 0
rem **********************************************************
$PARA:=0 0
$PARA:=" "+$PARA
$PARA:=$ndru+$PARA
$PARA:=" "+$PARA
$PARA:=$drco+$PARA
$PARA:=" "+$PARA
$PARA:=$npka+$para
$PARA:=" "+$PARA
$PARA:=$nfor+$para
$PARA:=" "+$PARA
$PARA:=$drnr+$para
$PARA:="P "+$PARA
rem **********************************************************
rem Aufruf callhpm
rem **********************************************************
REM ALT10
OPTION 30 0
REM Dateiname :
STRING callhpm
REM Parameterliste ( max 80. Char.)
STRING $PARA
OPTION ESC
REM ALT2
OPTION 22 0
REM KOORD. SYSTEM 5 = Gesamtansicht
OPTION 5 152
ALT2
OPTION 22 0
REM ANSICHT 4 = Plotfenster
OPTION 4 52
POINT INT
REM ALT4
OPTION 24 0
REM PLOTTEN S7= Farb -Drucker
OPTION 17 7
REM PLOTTEN 2 = Plot-Datei
OPTION 2 7
STRING RET
REM ALT4
OPTION 24 0
REM PLOTTEN 1 = Plotterausg.
OPTION 1 7
REM Parametereinstellung ?
ANTWORT 1
OPTION ESC
OPTION ESC
END
Hat es geklappt?
Liebe Grüße
------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn
https://home.wms-hn.de/people/teachers/ch/christ/
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP