-
Qui est en ligne 6 membres, 0 anonyme, 178 invités (Afficher la liste complète)
Pour aller plus loin en LISP
Vous avez déjà écrit des programmes LISP? Vous souhaitez vous perfectionner? Vous butez sur un problème de programmation? Les termes de DCL, ActiveX, réacteur, compilation ne vous sont pas inconnus? Ce forum est pour vous.
1 358 sujets dans ce forum
-
- 4 réponses
- 192 vues
-
- 6 réponses
- 404 vues
-
- 2 réponses
- 202 vues
-
- 0 réponse
- 172 vues
-
- 4 réponses
- 250 vues
-
- 4 réponses
- 334 vues
-
- 0 réponse
- 174 vues
-
- 2 réponses
- 233 vues
-
- 5 réponses
- 294 vues
-
- 11 réponses
- 582 vues
-
- 3 réponses
- 371 vues
-
- 9 réponses
- 403 vues
-
- 4 réponses
- 448 vues
-
- 7 réponses
- 513 vues
-
- 3 réponses
- 339 vues
-
- 6 réponses
- 343 vues
-
- 5 réponses
- 438 vues
-
- 5 réponses
- 446 vues
-
- 2 réponses
- 290 vues
-
- 3 réponses
- 365 vues
-
- 3 réponses
- 378 vues
-
- 6 réponses
- 444 vues
-
- 15 réponses
- 598 vues
-
- 5 réponses
- 414 vues
-
- 2 réponses
- 257 vues
-
Statistiques des forums
-
Total des sujets49,3 k
-
Total des messages298,8 k
-
-
Sujets
-
-
Messages
-
Par Dillack_bdx · Posté(e)
Bonjour, Tes bandes médianes c'est les lignes blanches de signalisation horizontale (marquage au sol), si tu fais de la conception routière cette dénomination revient très souvent. Y a pas vraiment d'historique sur ces termes hormis si tu veux lire ou relire les guides techniques de la signalisation horizontale. -
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.
-
-
Sujets
-
