Hallo,
ich habe jetzt aus zwei Lisp eins gemacht.
Im oberem Abschnitt wird eine Blockauswahl gemacht. Im unterem Abschnitt ist noch eine Blockauswahl.
Wie ist die Zauberformel, dass ich die obere Blockauswahl auch für die untere Blockwahl benutzen kann?
Ich habe schon alle möglichen Umstellungen probiert, die aber alle in eine Fehlermeldung enden.
Für Eure Unterstützung bedanke ich mich im Voraus.
(defun c:PrintPDF (/ ENT BLATTNR PFADname PDFname)
;-> Attributwert Blatt-Nr. lesen!
(if(and(SETQ ent (car(ENTSEL "\nBlockreferenz waehlen: ")))
(=(cdr(assoc 66 (entget ENT)))1)
)
(WHILE (AND (SETQ ent (ENTNEXT ent))
(/= (CDR (ASSOC 0 (ENTGET ent))) "SEQEND")
)
(IF(AND (=(CDR (ASSOC 0 (ENTGET ent))) "ATTRIB")
(=(strcase(CDR (ASSOC 2 (ENTGET ent)))) "BEZEICH6") ;Attributname Blatt-Nr.!
)
(SETQ BLATTNR (CDR (ASSOC 1 (ENTGET ent))))
)
)
)
;<- Ende Attributwert lesen!
;-> Gehe zum Basispunkt des Zeichnungsrahmens u. errechne die Größe mit den angegebenen Werten (P2)!
(setq PFADname "R:\\AutoCAD\\") ;Dateipfad für die erzeugte PDF!
(princ "\nPDF Druckausgabe: ")
(princ PFADname)
(princ "\n")
(setq PlotStil "StiftBreite_009.ctb") ;vorhandener Plotstil!
;;(setq gg (assoc 10 (entget(car(ent))))) ???
(setq gg (assoc 10 (entget(car(entsel "Den Zeichnungsrahmen fuer eine PDF auswaehlen:"))))) ;Zeichnungsrahmen wählen für den Basispunkt!
(setq P1 (cdr gg)) ;Basispunkt!
(setq PDFname (strcat "Blatt-NR " BLATTNR)) ;Blatt-Nr. als Dateiname
(setq x (strcat PFADname PDFname)) ;Pfad & Dateiname!
(setq p2 (mapcar '+ P1 '(831.25 584))) ;Größe vom ZRahmen_A1!
;PDF erzeugen!
(command "_.-plot" "_y" "model" "DWG To PDF.pc3" "ISO full bleed A3 (420.00 x 297.00 mm)" "_m" "_l" "_n" "_w" P1 P2 "_f" "_c" "_y" PlotStil "_y" "_a" x "_n" "_y")
(princ)
)
(princ)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP