Aller au contenu

Lisp retrouve ! Resolu


Big666

Messages recommandés

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

 

 

Nous vivons tous dans le ventre d'un chien géant

Tout le monde le sait mais personne ne dit rien du tout

 

ultra Vomit

Lien vers le commentaire
Partager sur d’autres sites

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

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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...

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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

 

 

Nous vivons tous dans le ventre d'un chien géant

Tout le monde le sait mais personne ne dit rien du tout

 

ultra Vomit

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité