-
Qui est en ligne 0 membre, 0 anonyme, 50 invités (Afficher la liste complète)
- Il n’y a aucun utilisateur enregistré actuellement en ligne
Routines VBA
Postez ici vos routines VB ou VBA. Une routine est du code court destiné à être réutilisé. Par exemple, un programme trouvant la distance entre deux points est une routine. Ne postez pas d'applications ici!
127 sujets dans ce forum
-
- 0 réponse
- 7,4 k vues
-
- Invité
-
- 0 réponse
- 6,9 k vues
-
- Invité
-
- 0 réponse
- 7,5 k vues
-
- Invité
-
- 0 réponse
- 6,4 k vues
-
- Invité
-
- 0 réponse
- 6,5 k vues
-
- Invité
-
- 6 réponses
- 9,7 k vues
-
- Invité
-
- 0 réponse
- 7,9 k vues
-
- Invité
-
- 0 réponse
- 6,4 k vues
-
- Invité
-
- 0 réponse
- 6,4 k vues
-
- 0 réponse
- 6,8 k vues
-
- Invité
-
- 0 réponse
- 8,2 k vues
-
- Invité
-
- 2 réponses
- 9,6 k vues
-
- Invité
-
- 1 réponse
- 10,8 k vues
-
- Invité
-
- 0 réponse
- 6,9 k vues
-
- Invité
-
- 0 réponse
- 7 k vues
-
- Invité
-
- 7 réponses
- 5,6 k vues
-
- 2 réponses
- 6 k vues
-
- 0 réponse
- 3,2 k vues
-
- 4 réponses
- 5,2 k vues
-
- 0 réponse
- 4,1 k vues
-
- 0 réponse
- 2,8 k vues
-
- 5 réponses
- 3,1 k vues
-
- 2 réponses
- 2,6 k vues
-
- 1 réponse
- 6 k vues
-
- 8 réponses
- 6,1 k vues
-
Statistiques des forums
-
Total des sujets49,2 k
-
Total des messages298,4 k
-
-
Sujets
-
-
Messages
-
Par yusukens82 · Posté(e)
C'est merveilleux tout ça, merci beaucoup @Olivier Eckmann Passez une très bonne fin d'année 😘 -
Par Olivier Eckmann · Posté(e)
Avec quelque chose comme cela (defun c:T2 ( / pt1 pt2) (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) (if (and pt1 pt2) (progn ; Placer la cote horizontale (command "COTLIN" pt1 pt2 "h" pause ) ; Placer la cote verticale (command "COTLIN" pt1 pt2 "v" pause ) ) (princ "\nOpération annulée.") ) (princ) ) -
Par yusukens82 · Posté(e)
Le but de l'amélioration n'est pas de positionner la cotation automatiquement mais de la visualiser avant de les positionner. Une petite vidéo pour bien l'expliquer: http://www.trinh-dota.com/CADXP/Video-Cotation-Ameliorer.mp4 Merci pour votre réponse en tout cas -
Bonjour @yusukens82 Il est tout à fait possible de ne pas sélectionner les points d'insertion des cotations. Mais il faut "expliquer" à la machine où les déposer, elle n'est pas intelligente, elle n'a pas de cerveau. Le cerveau, c'est l'humain qui en dispose et qui sait où déposer les dimensions. À moins que vous nous disiez où vous les attendez par défaut. Par exemple pour le X à deux fois la hauteur du texte en dessous du point 1 et pour le Y à deux fois la hauteur du texte sur la gauche du point 2. C'est un exemple. C'est à VOUS de nous dire où déposer les textes et lignes de cotes, il n'y a que vous qui sachiez. Amicalement -
Par yusukens82 · Posté(e)
Bonjour, J'utilise régulièrement une routine qui fonctionne très bien permettant de mettre 2 cotations (horizontal et vertical) selon 2 points Voilà la routine : (defun c:T2 () (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) (if pt1 (progn ; Demander à l'utilisateur où placer la cote horizontale (setq pt3 (getpoint "\nSelectionnez le point de position de la cote horizontale : ")) ; Placer la cote horizontale (command "COTLIN" pt1 pt2 "h" pt3) ; Demander à l'utilisateur où placer la cote verticale (setq pt4 (getpoint "\nSelectionnez le point de position de la cote verticale: ")) ; Placer la cote verticale (command "COTLIN" pt1 pt2 "v" pt4) ) (princ "\nOpération annulée.") ) (princ) ) Je souhaite y apporter une amélioration permettant de visualiser sur l'écran la position de la cotation L'idée est contourner le problème en évitant de présélectionner les pts 3 et 4 (defun c:T2 () (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) ; Demande le premier point (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) ; Demande le second point (command "COTLIN" pt1 pt2 "H") ; Cliquer sur l'écran pour positionner le cote horizontal ; Relancer la commande pour la cotation veticale ;(command "COTLIN" pt1 pt2 "V" ) ; Cliquer sur l'écran pour positionner le cote veticale ) je joins un fichier dwg pour faire les test test.dwg
-
-
Sujets
-
