-
Qui est en ligne 8 membres, 0 anonyme, 182 invités (Afficher la liste complète)
AutoCAD LT 2006
237 sujets dans ce forum
-
- 0 réponse
- 4,1 k vues
-
- 2 réponses
- 5,1 k vues
-
- 1 réponse
- 3,9 k vues
-
- 3 réponses
- 4,1 k vues
-
- 0 réponse
- 4,6 k vues
-
- 9 réponses
- 32,6 k vues
-
- 2 réponses
- 9,4 k vues
-
- 4 réponses
- 3,7 k vues
-
- 3 réponses
- 5,8 k vues
-
- 1 réponse
- 2,8 k vues
-
- 2 réponses
- 3,7 k vues
-
- 2 réponses
- 3,3 k vues
-
- 3 réponses
- 3,4 k vues
-
- 6 réponses
- 4,3 k vues
-
- 0 réponse
- 2,8 k vues
-
- 7 réponses
- 5,7 k vues
-
- 5 réponses
- 4,2 k vues
-
- 20 réponses
- 12,1 k vues
-
- 3 réponses
- 3,4 k vues
-
- 2 réponses
- 3,9 k vues
-
- 3 réponses
- 2,8 k vues
-
- 3 réponses
- 3 k vues
-
- 0 réponse
- 4 k vues
-
- 6 réponses
- 3,9 k vues
-
- 7 réponses
- 3,7 k vues
-
Statistiques des forums
-
Total des sujets49,3 k
-
Total des messages298,8 k
-
-
Sujets
-
-
Messages
-
CVPORT n'est pas une commande qui permettrait de modifier la géométrie d'une fenêtre flottante. CVPORT (Current ViewPORT) est une variable système qui permet d'obtenir ou de définir le numéro de la fenêtre active (voir l'aide). La géométrie d'une fenêtre flottante rectangulaire est définie par le centre de la fenêtre, sa largeur et sa hauteur. Remplace : ;; Définir les nouvelles coordonnées pour chaque coin du rectangle ;; Par exemple, supposons que vous voulez les définir manuellement : (setq new-pt1 (list 0 0)) ; Nouveau coin inférieur gauche (setq new-pt2 (list 250 0)) ; Nouveau coin inférieur droit (setq new-pt3 (list 250 200)) ; Nouveau coin supérieur droit (setq new-pt4 (list 0 200)) ; Nouveau coin supérieur gauche ;; Appliquer les nouvelles coordonnées avec la commande _CVPORT (command "_CVPORT" (car new-pt1) (cadr new-pt1) (car new-pt3) (cadr new-pt3)) par (setpropertyvalue vp2 "CenterPoint" '(125 100 0)) (setpropertyvalue vp2 "Width" 250) (setpropertyvalue vp2 "Height" 200) -
Bonjour à tous, j'ai donc une question de vocabulaire sur une route de type 2x2 voies. Sachant que je viens d'une formation géomètre (BTS), je n'ai pas de notion scolaire/académique de conception de route (hormis la lecture ponctuelle d'ICTAAL/ARP). Je n'ai que l'expérience de chantiers (12ans) et les connaissances des personnes croisées sur chantiers. Les plans du MOE indiquent "une bande médiane" et un "bloc de gauche". Après quelques échanges, cela signifie ceci : Ma question : avez-vous déjà croisé ces expressions ? et pouvez vous développer le pourquoi (l'historique) de ces mots. PS : et les variantes : en 2x3 voies, une Voie Médiane s'ajoute. En 2x4 voies, VR/VL se nomment en V1/V2/V3... humour PS : en dehors d'une usure de clavier augmentée pour écrire "variation du bloc de gauche" (14) à la place de "variation de VR+BDG" (6), je ne vois pas l'utilité de ces expressions. Merci. -
J'ai trouvé une solution qui marche mais je n'arrive pas à la faire fonctionner. Cela serait de redéfinir les coordonnées des 4 points du rectangle du viewport, pour ainsi placer le viewport au bon endroit, au fait merci de prendre le temps de me répondre gile. J'ai testé cela mais en vain : (defun c:etirer-vp2 () (command "_PSPACE") ; Passer en espace papier (princ "\nPassage en espace papier...") ;; Sélectionner tous les viewports du layout actif (setq ss (ssget "X" (list (cons 0 "VIEWPORT") (cons 410 (getvar "CTAB"))))) (if ss (princ (strcat "\nNombre de viewports trouvés : " (itoa (sslength ss)))) (princ "\nAucun viewport trouvé.") ) (if (and ss (> (sslength ss) 1)) ; Vérifier qu'il y a au moins deux viewports (progn (princ "\nSélection du viewport 2...") (setq vp2 (ssname ss 1)) ; Récupérer le viewport 2 (if vp2 (progn (princ "\nViewport 2 trouvé ! Redéfinition des coordonnées...") ;; Obtenir les données du viewport 2 (setq vp2data (entget vp2)) ;; Extraire les points actuels du viewport (c'est le cadre du viewport) (setq vp2pts (cdr (assoc 10 vp2data))) ; Extraction des points du viewport ;; Si les points sont disponibles, on peut redéfinir les coordonnées (if vp2pts (progn ;; Définir les nouvelles coordonnées pour chaque coin du rectangle ;; Par exemple, supposons que vous voulez les définir manuellement : (setq new-pt1 (list 0 0)) ; Nouveau coin inférieur gauche (setq new-pt2 (list 250 0)) ; Nouveau coin inférieur droit (setq new-pt3 (list 250 200)) ; Nouveau coin supérieur droit (setq new-pt4 (list 0 200)) ; Nouveau coin supérieur gauche ;; Appliquer les nouvelles coordonnées avec la commande _CVPORT (command "_CVPORT" (car new-pt1) (cadr new-pt1) (car new-pt3) (cadr new-pt3)) (princ "\nLes coordonnées du viewport ont été redéfinies avec succès !") ) (princ "\nLes points du viewport ne sont pas disponibles.") ) ) (princ "\nImpossible d'obtenir le viewport 2.") ) ) (princ "\nImpossible de trouver le viewport 2 (moins de deux viewports présents).") ) (princ) ) Il me renvoie cela : Commande: ETIRER-VP2 Passage en espace papier... Nombre de viewports trouvés : 2 Sélection du viewport 2... Viewport 2 trouvé ! Redéfinition des coordonnées... Impossible de mettre CVPORT à cette valeur. *Incorrect* -
Même avec une fenêtre copiée les deux routines que j'ai données fonctionnent chez moi. La seule raison que je vois pour que ce soit toujours la dernière fenêtre active qui soit sélectionnées serait que l'appel à (command "_MSPACE") intervienne après le (setvar "CVPORT" ...). Comme dit plus haut, il faut d'abord passer en espace objet (si on est en espace papier, autrement dit, si CVPORT est égal à 1) et seulement ensuite spécifier la fenêtre active avec la variable système CVPORT.
-
Hello OUI je suis comme Christian (REBCAO) ! Juste pour Info voir ci-apres une routine VLisp "TCOT" qui fait la somme de la valeur de N cotations ... Bye, lecrabe ;;; Totalisation de COTEs (ou Somme de COTEs) - Routine : TCOT ;;; Rappel : Utilisation surtout sur les Cotes Lineaires et Alignees ;;; Attention : sur les Cotes Angulaires, le resultat est en RADIANS ! (defun c:TCot(/ sel tot) (vl-load-com) (setq tot 0) (princ "\nVeuillez selectionner des Cotes : " ) (and (ssget (list (cons 0 "DIMENSION"))) (progn (vlax-map-collection (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) '(lambda (x) (setq tot (+ tot (vla-get-measurement x)))) ) (vla-delete sel) (princ (strcat "\nCumul des Cotes : " (rtos tot))) ) ) (princ) )
-
-
Sujets
-
