Lisp retrouve ! Resolu

[Big666]

bonjour j ai posté sur un forum autocad un sujet sur un Lisp qui faisais un zoom tout sur toutes les fenêtres de présentation depuis le l'ai retrouvé

 
;; 
;; Routine: zel 
;;
;; Original Routine by marko_ribar - Very Minor Update by Patrice B
;;
;; Zoom Extent for all viewports in all layouts
;; 

(defun c:ztf( / *error* *adoc* ct ss i vp ce vs cenew )

 (vl-load-com)

 (defun *error* ( m )
(if ct
 	(setvar 'ctab ct)
)
(vla-endundomark *adoc*)
(if m
 	(prompt m)
)
(princ)
 )

 (setq *adoc* (vla-get-activedocument (vlax-get-acad-object)))
 (if (= 8 (logand 8 (getvar 'undoctl)))
(vla-endundomark *adoc*)
 )
 (vla-startundomark *adoc*)
 (setq ct (getvar 'ctab))
 (foreach lay (layoutlist)
(setvar 'ctab lay)
(setq ss (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 lay))))
(repeat (setq i (sslength ss))
 	(setq vp (ssname ss (setq i (1- i))))
 	(vla-display (vlax-ename->vla-object vp) :vlax-true)
 	(vla-put-mspace *adoc* :vlax-true)
 	(vl-catch-all-apply 'vla-put-activepviewport (list *adoc* (vlax-ename->vla-object vp)))
 	(setq ce (getvar 'viewctr))
 	(setq vs (getvar 'viewsize)) 

;;	(setq cenew (mapcar '+ ce '(0.0 6558.8231 0.0))) 
;;	(vl-cmdf "_.zoom" "_c" "_non" cenew vs) 

;;	(vl-cmdf "_.zoom" "_e"  ) 
 	(vl-cmdf "_.zoom" "_a"  ) 

 	(vla-put-mspace *adoc* :vlax-false)
)
 )
 (*error* nil)
)

il ne marche plus chez moi, domage

[Tramber]

Sinon tu fais un SCRIPT en augmentant la valeur de CVPORT et en zoomant à chaque fois. Easy B)

 

Un petit lien :

https://cadxp.com/topic/46832-fenetres-de-presentation-translation-espace-objet/page__p__274113__hl__cvport__fromsearch__1#entry274113

[lecrabe]

Hello Mr big666

 

https://forums.autodesk.com/t5/autocad-tous-produits-francais/recherche-lisp-zoom-tout-presentation/td-p/9727068

 

Je t ai répondu sur le forum French AutoCAD Autodesk avec de multiples routines Lisp correspondant à ta demande !

 

Zoom Tout, Zoom Etendu ... Merci a marko_ribar !

Verrouillage / Deverrouillage des Fenetres FMULT ... Merci a Gilles !

 

Mais à priori elles ne te convenaient pas ! Mystère !!

Apres 36 ans d'AutoCAD, je n ai sans doute pas bien compris ta demande !?

 

Routines tirées de mon stock de 3000 routines...

 

LA SANTE, Bye, lecrabe "triste"

... Demain soir la retraite...

[Big666]

bonjour dessolé pour ce loupé , je crois que je suis bordélique .aussi le temps me manque souvent, je ne serais pas a la retraite demain soir mais je me bat sur le pavé parisien

pour conserver nos droits