modification Plotall.lsp

[TPS001]

Salut a tous,

je utilise Le programme Plotall.lsp si possible est ce que pourrait être ajouter option pour sélectionner les format désirée

merçi

[vinz34]

Salut,

 

Si tu nous montre le code peut-être qu'on pourra t'aider.

 

Je pense que tu devrais poster dans le bon forum si tu veux une réponse rapide.

[TPS001]

salut,

voila : plotall.lsp

;;; ==========================================================================

;;; File : PlotALLCaneco

;;; Purpose : Provides PLOTALL and -PLOTALL commands to plot all paper space

;;; layouts in the current drawing, thereby working around the

;;; "Layout of order" item in January 2003 Bug Watch.

;;; Author : Steve Johnson for Cadalyst magazine.

;;; Notes : Expects to find PLOTALL.DCL in search path.

;;; Uses AutoCAD 2000+ Visual LISP functions.

;;; Only tested on AutoCAD 2002.

;;; ==========================================================================

 

 

;; ---------------------------------------------------------------------------

;; Function: C:PLOTALL

;; Purpose : Dialogue box version of command to plot all paper space layouts

;; in the current drawing.

;; Global : PLOTALL-DEVICE: string containing name of plot device, e.g.

;; "\\\\server\\plotter" or

;; "plotter.pc3"

;; PLOTALL-QTY: number of each layout to plot

;; PLOTALL-ORDER: order in which to plot (string)

;; PLOTALL-REV: reverse order? (boolean: T = reverse)

;; Local : dclfile: full filename of "PlotAll.dcl" file

;; dcl#: DCL ID number

;; device-list: list of available plot devices

;; order-list: list of order strings

;; device#: index number of chosen device in device-list

;; order#: index number of chosen order in order-list

;; quantity: temporary number of each layout to plot

;; ---------------------------------------------------------------------------

 

(defun C:PLOTALL (/ ; Functions

init_vars init_tiles call_ok

; Variables

dclfile dcl# device-list order-list device# order# quantity

)

 

 

;; ---------------------------------------------------------------------------

;; Function: init_vars

;; Purpose : Sets up variables prior to invoking dialogue box.

;; ---------------------------------------------------------------------------

 

(defun init_vars ()

(if (not PLOTALL-DEVICE) (setq PLOTALL-DEVICE "None"))

(if (not PLOTALL-QTY) (setq PLOTALL-QTY 1))

(if (not PLOTALL-ORDER) (setq PLOTALL-ORDER "Alpha"))

(setq

device-list (plotall_device_list)

order-list '("Alpha" "Numeric" "Tab")

order# (- (length order-list) (length (member PLOTALL-ORDER order-list)))

quantity PLOTALL-QTY

)

(if (and PLOTALL-DEVICE (member PLOTALL-DEVICE device-list))

(setq

device#

(- (length device-list) (length (member PLOTALL-DEVICE device-list)))

)

(setq device# 0)

)

) ; End init_vars

 

et pour le fichier plotall.dcl :

//// -------------------------------------------------------------------------

//// File : PlotAll.dcl

//// Author : Steve Johnson

//// Purpose : Dialogue box definition for PLOTALL command.

//// -------------------------------------------------------------------------

 

 

/// --------------------------------------------------------------------------

/// Turn off error checking

/// --------------------------------------------------------------------------

 

dcl_settings : default_dcl_settings { audit_level = 0; }

 

 

/// --------------------------------------------------------------------------

/// Widget: plotall_main

/// This is the main PLOTALL dialogue box.

/// --------------------------------------------------------------------------

 

plotall_main : dialog {

label = "PlotALLCaneco - Plots all layouts in current drawing";

: popup_list {

key = "device_list";

label = "Device ";

}

spacer;

: row {

: popup_list {

key = "order_list";

label = "Order ";

}

: toggle {

key = "reverse";

label = "Reverse";

}

}

spacer;

: edit_box {

key = "quantity";

label = "Quantity";

}

spacer;

ok_cancel;

errtile;

}

 

/// --------------------------------------------------------------------------

/// End PlotAll.dcl

/// --

 

 

pour moi c'est possible d'avoir une option pour le choix des format désirer

[Patrick_35]

Bonjour

 

Le lisp n'est pas complet

 

ps : tu as aussi ONG

 

@+

[TPS001]

bonjour

merci pour votre réponse Patrick et si possible s'il y a des logiciels ou applications pour l'impression rapide des fichiers indépendantes d'autocad chaque fichier avec ça présentation et ça format c'est urgent pour moi car j'ai des centaines des fichiers que je dois l'imprimé et le pliage plus le problème du temps

Merci pour tous votre aide et merci pour tous mes amis dans cette forum

 

[x_all]

s'il y a des logiciels ou applications pour l'impression rapide des fichiers indépendantes d'autocad chaque fichier avec ça présentation et ça format

 

je ne comprend pas trop ce que tu veux dire... si c'est des DWG avec les présentations il faut combiner super autoscript ( http://www.caderix.com/crbst_2.html ) avec ONG ou ton lisp

 

chez nous pour des questions d'archivage des indices on fait des pdf systématiquement de tous ce qui sort... et bien quand il nous tombe une galère comme ça, vive acrobat... !!!

mais si les pdf ont jamais été fait... t'es dans la mouise... je ne vois rien d'autre indépendant d'autocad qui permette de sortir un dessin...