JPG out

[Invité ingoenius]

celui si fonctionne pour la creation du nom et la generation du jpg

maintenat il faut trouver la maniere de faire une jpg par presentation du dessin courant

 

de plus il faudrai passer dans l'espace papier s'il on est dans l'espace objet

 

 

 

 

 

 
(defun c:Jpg ()

 
(setq nome (getvar "dwgname"))			;name and extension file
 
 
(setq Cdossier (getvar "dwgprefix"))									;current folder file
(setq Sdossier "H:\\Hotels & Convention Centers\\BS Base Audiovisuel\\PLANS_EVENTS_JPG\\")		;backup folder 

(setq name (strcat Cdossier(vl-string-trim ".dwg" (getvar "dwgname")) "_ver_1.jpg"));vois s'il existe

(setq x 1)
(if (findfile name)
	(while
		(findfile (strcat Cdossier(vl-string-trim ".dwg" (getvar "dwgname")) "_ver_"(rtos x)".jpg"))
			(progn
				(setq x (+ x 1)))
				(setq name (strcat Cdossier(vl-string-trim ".dwg" (getvar "dwgname")) "_ver_"(rtos x)".jpg"))
			);fin du progn s'il existe

		(setq name (strcat Cdossier(vl-string-trim ".dwg" (getvar "dwgname")) "_ver_1.jpg"));s'il existe pas

	) 

 
(command "_zoom" "ET" "")
(command "jpgout" name "")
)

[BIM G CO]

Pour savoir Si tu es en espace Objet ou papier : la variable s'appel tilemode

 

Non pas que je n'aime pas aidé mais je te donne donne des piste que tu aura à dévellopper pour t'améliorer en programmation LISP

Variable système TILEMODE

Type : Entier

Enregistré dans : Dessin

Valeur initiale : 1

Définit en tant qu'onglet courant l'onglet Objet ou le dernier onglet de présentation.

0 Active le dernier onglet de présentation sélectionné (espace papier).

1 Active l'onglet Objet.

 

dans ton lisp :

 (if (= (getvar "TILEMODE") 1) (alert "Espace Objet"))
(if (= (getvar "TILEMODE") 0) (alert "Espace Papier"))

 

d'où pour changer d'espace

 ;Passe en Espace Papier
(if (= (getvar "TILEMODE") 1) (setvar "TILEMODE" 0))

;Passe en Espace Papier
(if (= (getvar "TILEMODE") 0) (setvar "TILEMODE" 1))

 

Pour obtenir la liste des présentations

layoutlist

 

Returns a list of all paper space layouts in the current drawing

 

(layoutlist)

Return Values

 

A list of strings.

 

 (nth 0 (layoutlist)) ;; ta première présentation
(nth 1 (layoutlist)) ;; ta deuxième présentation

(length (layoutlist)) ;; le nombre de présentation
(nth (- (length (layoutlist)) 1) (layoutlist)) ;; la dernière présentation

 

[Invité ingoenius]

merci

Je suis completement daccord avec toi sur le fait de ne pas donner la routine complete pour stimuler dans l'etude chose que je fais aussi sur d'autres forum dediees a blender par exemple

 

donc merci des pistes ;-)

 

 

 

[BIM G CO]

Pour passer d'une présentation à une autre il faudra, je pense passer en Visual Lisp

et non en AutoLisp je n'ai pas encore réussi à passer d'une présentation à une autre en AutoLisp. (l'aide d'autoCAD n'est pas assez compréhensible pour cela)

 

A voir si c'est une foncion vl-.... ou vla-...... ou vlax-......

 

 

 

[Edité le 9/5/2007 par Maximilien]

[Tramber]

en AutoLisp je n'ai pas encore réussi à passer d'une présentation à une autre en AutoLisp. (l'aide d'autoCAD n'est pas assez compréhensible pour cela)

 

Variable CTAB, par exemple (l'inconvénient, c'est qu'il faut d'abord lister les présentations).

ou alors la commande PRESENTATION option Etablir....

[Bred]

(l'inconvénient, c'est qu'il faut d'abord lister les présentations)

 

(layoutlist)

 

non ?

[Tramber]

(l'inconvénient, c'est qu'il faut d'abord lister les présentations)

 

(layoutlist)

 

non ?

 

Y'en a qui suivent....

[BIM G CO]

:P Hey j'ai le droit de ne pas être en pleine possession de mes moyens, aujourd'hui!

Ben si c'est çà je vais me coucher :P

 

 

[Edité le 9/5/2007 par Maximilien]