Aller au contenu

scu et affichage écran


Messages recommandés

Posté(e)

Bonjour,

 

je n'arrive plus à me souvenir comment effectuer la rotation du dessin pour que le l'axe X du SCU soit horizontal à l'écran. C'est plus facile de travailler avec un plan de bâtiment à l'horizontal plutôt qu'avec un angle par rapport au SCG.

 

Merci.

Posté(e)

Bonjour,

 

Suite à une demande sur un autre forum, j'avais fait ces 2 mini-lisp pour basculer la vue avec ou sans changement de scu avec seulement 2 points (valable uniquement 2D bien sûr).

 

;;; COMMANDE basc2pt
;;; Bascule la vue à partir de 2 points
;;; Par -Olivier- le 29/08/2012
(defun c:basc2pt (/ *error* pt1 pt2 accro echo)
 (defun *error* (errmsg)
   (setvar "osmode" accro)
   (setvar "cmdecho" echo)
   (princ errmsg)
   )
 (setq echo (getvar 'cmdecho)
accro (getvar 'osmode))
 (initget 1)
 (setq pt1 (getpoint "\n Indiquez le 1er point: "))
 (initget 1)
 (setq pt2 (getpoint "\n Indiquez le 2nd point: "))
 (setvar "cmdecho" 0)
 (setvar "osmode" 0)
 (command "_ucs" "_3" pt1 pt2 "")
 (command "_plan" "c")
 (setvar "osmode" accro)
 (setvar "cmdecho" echo)
 (princ)
 )

 

 

;;; COMMANDE dview2pt
;;; Bascule la vue à partir de 2 points sans modifier le scu
;;; Par -Olivier- le 29/08/2012
(defun c:dview2pt (/ *error* ang accro echo angunit)
 (defun *error* (errmsg)
   (setvar "osmode" accro)
   (setvar "cmdecho" echo)
   (setvar "aunits" angunit)
   (princ errmsg)
   )
 (setq echo (getvar 'cmdecho)
accro (getvar 'osmode)
angunit (getvar 'aunits))
 (setq ang (- 0 (getangle "\nEntrez l'angle de basculement: ")))
 (setvar "cmdecho" 0)
 (setvar "osmode" 0)
 (setvar "aunits" 3)
 (command "_DVIEW"  "" "_TW" ang "")
 (setvar "osmode" accro)
 (setvar "cmdecho" echo)
 (setvar "aunits" angunit)
 (princ)
 )

 

A+

Posté(e)

Bonjour,

J'ai un petit lisp qui permet de mettre la valeur d'UCSFOLLOW soit à 0 ou à 1 rien qu'en cliquant sur un bouton.

 

(if (= (getvar "ucsfollow") 1)

(setvar "ucsfollow" 0)

(setvar "ucsfollow" 1)

)

 

Je m'en sers régulièrement mais la méthode de lili2006 n'est pas mal non plus.

 

cordialement.

Posté(e)

@-olivier-

j'ai un truc un peu plus court pour un résultat similaire (certes je n'ai acune phrase qui dit qu'st-ce que je dois faire mais ça marche très bien)

(defun c:tu (/)

(command "_ucs" "z")

(command pause)

(command pause)

(command "_plan" "_current")

)

Et vive la bidouille!!

Phil

Projeteur Revit Indépendant - traitement des eaux/CVC

Posté(e)

@philsogood,

 

J'avais juste mis ces petits lisp parceque je les avait sous la main.

J'avais détaillé le lisp car il ne s'adressait pas à moi même si je m'en sert. Il y a de nombreuse façons de faire cette commande.

 

 

@usegomme

 

La demande provenant d'un autre site je n'avais pas pris la peine de vérifié si une réponse existait ici.

En plus lisper fréquemment me permet de ne pas perdre la main.

La commande que tu cite est plus complète.

 

A+ :)

Posté(e)

Bonjour,

 

Voici également une petite MACRO qui permet de s'aligner sur une arête... (pour les LTsiens par exemple)

 

Une simple :

 

^C^CUCSFOLLOW;0;_ucs;3;_Nea;\_Nea;\;_plan;;

 

Une autre plus élaborée...

 

^C^CUCSFOLLOW;0;userr5;$m=$(getvar,viewsize);_ucs;3;_Nea;\_Nea;\;_plan;_C;expert;5;_zoom;_E;_zoom;C;

0,0;$m="$(getvar,userr5)";_ucs;_S;"TH_$m=$(getvar,ctab)";_-view;_SA;"TH_$m=$(getvar,ctab)";expert;2;

 

Christian

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

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é