Création présentations à partir de polylignes de l'esapce objet

[CLOTHO]

Bonjour,

 

Le titre du sujet explique tout

J'aimerai savoir s'il y a un lisp qui permet de créer des présentations à partir de polylignes (cadres) ou des blocs dans l'espace objet.

 

L'idée est d'orienter facilement des cadres de vues en plan dans l'espace objet puis en créer automatiquement des présentations.

 

Merci pour tout réponse.

[Chti Julien]

Depuis des Vues AutoCAD création rapide des présentations...

 

regarde le post suivant :

 

http://forums.autodesk.com/t5/autocad-francais/impression-des-vues/td-p/1460495

 

A transformer en commande lisp AutoCAD...

 

;; Lecture des vues

;;

(if (not strVue) (setq strVue (cdr (assoc 2 (tblnext "view" T)))))

;;

;; Initialise la variable contenant le nom de la présentation etant copier

;;

(setq strNomPresentationExemple "PageModel")

;;

;; Copie de la présentation

;;

-PRESENTATION c !strNomPresentationExemple !strVue

;;

;; Active la nouvelle présentation

;;

ctab !strVue

;;

;; passage en espace objet

;;

_.MSPACE

;;

;; Rappel de la vue

;;

-VUE r !strVue

;;

;; passage en espace papier

;;

_.PSPACE

;;

;; Changement de vue

;;

(setq strVue (cdr (assoc 2 (tblnext "view"))))

;;

;; Test si il y a tjs une vue relance le script si tjs une vue

;;

(if strVue (command "_rscript"))

[CLOTHO]

Depuis des Vues AutoCAD création rapide des présentations...

 

regarde le post suivant :

 

http://forums.autodesk.com/t5/autocad-francais/impression-des-vues/td-p/1460495

 

A transformer en commande lisp AutoCAD...

 

;; Lecture des vues

;;

(if (not strVue) (setq strVue (cdr (assoc 2 (tblnext "view" T)))))

;;

;; Initialise la variable contenant le nom de la présentation etant copier

;;

(setq strNomPresentationExemple "PageModel")

;;

;; Copie de la présentation

;;

-PRESENTATION c !strNomPresentationExemple !strVue

;;

;; Active la nouvelle présentation

;;

ctab !strVue

;;

;; passage en espace objet

;;

_.MSPACE

;;

;; Rappel de la vue

;;

-VUE r !strVue

;;

;; passage en espace papier

;;

_.PSPACE

;;

;; Changement de vue

;;

(setq strVue (cdr (assoc 2 (tblnext "view"))))

;;

;; Test si il y a tjs une vue relance le script si tjs une vue

;;

(if strVue (command "_rscript"))

 

Bonjour,

 

Merci de ta réponse mais, je ne connais rein en lisp :(

Je cherche des lisps qui fonctionnent déjà :)

 

A+