t_pam

Bonjour à tous, Je recherche un moyen via lisp de créer des repères multiples incrémentés avec des choix possibles: Choix du nombre des repères "numérique ou alphabéthique MAJ" Choix du style de texte "Arial, Cambria ou Latin" Choix de la hauteur du texte avec une couleur definie "5, 3.5, 2.5, 1.75" Associé la couleur cyan avec ht de 5 Associé la couleur blanche avec ht de 3.5 Associé la couleur jaune avec ht de 2.5 Associé la couleur verte avec ht de 1.75 Et des paramètres constants: Pointe de la flèche "Fermée pleine" Taille de la flèche "2" Type de repère "droite" Distance de la ligne de guidage "2" Espace de la ligne de guidage "1.5" Segment horizontal "oui" Association droite et gauche "milieu du TextMult" Une fois les constantes et les valeurs des choix remplies. On détermine la position des repères sur le dessin, et avoir la possibilité de re-sélectionner certains de ces repères et les modifier avec d'autres constantes afin de repérer des pièces intérieures soit: Pointe de la flèche "Petit Point" Taille de la flèche "4.2" Merci d'avance pour votre aide. Cordialement. Thierry

Bonjour à tous, Je reviens vers vous car j'ai besoin de compléter ou modifier ce lisp, merci à Zebulon pour sa partie concernant les changements de couleur. ;; Modifie la couleur selon les hauteurs de texte du nouveau gabarit. (defun ChPropTx (HT COL / ss) (setq ss (ssget "_X" (list '(8 . "00.4-TEXT") ;; le calque '(0 . "*TEXT") ;; les text et mtext (cons 40 HT) ;; la hauteur ) ) ) (if ss (command "_chprop" ss "" "_c" COL "") ) ) (defun c:ISOGRAPH () (command "-renommer" "style" "ISO3098-1-3-5-V" "Latin-3-5") (command "-renommer" "style" "ISO3098-1-2-5-V" "Latin-2-5") (command "-renommer" "style" "ISO3098-1-1-8-V" "Latin-1-75") (command "-style" "Latin-2-5" "isocp.shx" "2.5" "1" "0" "n" "n") (command "-style" "Latin-3-5" "isocp.shx" "3.5" "1" "0" "n" "n") (command "-style" "Latin-1-75" "isocp.shx" "1.75" "1" "0" "n" "n") (arxload "LAYTRANS.ARX")(acet-laytrans "C:/ISO GRAPH.dws" 7) (command "-inserer" "*isograph" "0,0" "" "") (command "_COT" "restaurer" "ISO129 TC10" "ajour" "tout" "" "quitter") (command "-purger" "S" "ISO3098-1-1-8-V" "N") (command "-purger" "S" "ISO3098-1-1-8-I" "N") (command "-purger" "S" "ISO3098-1-2-5-I" "N") (command "-purger" "S" "ISO3098-1-2-5-V" "N") (command "-purger" "S" "ISO3098-1-2-5-V-B" "N") (command "-purger" "S" "ISO3098-1-2-5-I-B" "N") (command "-purger" "S" "ISO3098-1-3-5-V" "N") (command "-purger" "S" "ISO3098-1-3-5-I" "N") (command "-purger" "S" "ISO3098-2-1-8-V" "N") (command "-purger" "S" "ISO3098-2-1-8-I" "N") (command "-purger" "S" "ISO3098-2-2-5-V" "N") (command "-purger" "S" "ISO3098-2-2-5-I" "N") (command "-purger" "S" "UniversalMath-2-5" "N") (command "-purger" "CO" "ISO129" "N") ;; Change les couleurs des textes en fonction de leurs hauteurs (ChPropTx 1.5 1) ;; texte de hauteur 1.5 -> couleur 1 (ChPropTx 1.75 3) ;; texte de hauteur 1.75 -> couleur 3 (ChPropTx 2 3) ;; texte de hauteur 2 -> couleur 3 (ChPropTx 2.5 2) ;; texte de hauteur 2.5 -> couleur 2 (ChPropTx 3.5 7) ;; texte de hauteur 3.5 -> couleur 7 (ChPropTx 5 4) ;; texte de hauteur 5 -> couleur 4 (princ) ) Voici mes problèmes après contrôles et vérifications. Car suite à ce changement de nouveau gabarit de travail, je m'aperçois au fur et à mesure des choses à faire ou à modifier. Le premier serait de modifier une hauteur 1.8 en 1.75 (soit par le style de texte ou par sa hauteur) et ceci avant sa modification de couleur pour qu'elle soit reconnue après. Puis ma deuxième est que j'ai besoin que mes blocs dynamiques soient redéfinis avec les nouveaux paramétrages (calques, couleurs et formes). Ils portent le même nom et sont sauvegardés dans le même répertoire. Et ma troisième serait, si c'était possible de garder les petit points des flèches ou repères existants avec le nouveau style de cote et de leur attribuer une nouvelle taille de 4.2 Merci à nouveau pour votre aide. Bonne journée à tous. Thierry.

Bonjour à tous, Je reviens vers vous car j'ai besoin de compléter ou modifier ce lisp, merci à Zebulon pour sa partie concernant les changements de couleur. ;; Modifie la couleur selon les hauteurs de texte du nouveau gabarit. (defun ChPropTx (HT COL / ss) (setq ss (ssget "_X" (list '(8 . "00.4-TEXT") ;; le calque '(0 . "*TEXT") ;; les text et mtext (cons 40 HT) ;; la hauteur ) ) ) (if ss (command "_chprop" ss "" "_c" COL "") ) ) (defun c:ISOGRAPH () (command "-renommer" "style" "ISO3098-1-3-5-V" "Latin-3-5") (command "-renommer" "style" "ISO3098-1-2-5-V" "Latin-2-5") (command "-renommer" "style" "ISO3098-1-1-8-V" "Latin-1-75") (command "-style" "Latin-2-5" "isocp.shx" "2.5" "1" "0" "n" "n") (command "-style" "Latin-3-5" "isocp.shx" "3.5" "1" "0" "n" "n") (command "-style" "Latin-1-75" "isocp.shx" "1.75" "1" "0" "n" "n") (arxload "LAYTRANS.ARX")(acet-laytrans "C:/ISO GRAPH.dws" 7) (command "-inserer" "*isograph" "0,0" "" "") (command "_COT" "restaurer" "ISO129 TC10" "ajour" "tout" "" "quitter") (command "-purger" "S" "ISO3098-1-1-8-V" "N") (command "-purger" "S" "ISO3098-1-1-8-I" "N") (command "-purger" "S" "ISO3098-1-2-5-I" "N") (command "-purger" "S" "ISO3098-1-2-5-V" "N") (command "-purger" "S" "ISO3098-1-2-5-V-B" "N") (command "-purger" "S" "ISO3098-1-2-5-I-B" "N") (command "-purger" "S" "ISO3098-1-3-5-V" "N") (command "-purger" "S" "ISO3098-1-3-5-I" "N") (command "-purger" "S" "ISO3098-2-1-8-V" "N") (command "-purger" "S" "ISO3098-2-1-8-I" "N") (command "-purger" "S" "ISO3098-2-2-5-V" "N") (command "-purger" "S" "ISO3098-2-2-5-I" "N") (command "-purger" "S" "UniversalMath-2-5" "N") (command "-purger" "CO" "ISO129" "N") ;; Change les couleurs des textes en fonction de leurs hauteurs (ChPropTx 1.5 1) ;; texte de hauteur 1.5 -> couleur 1 (ChPropTx 1.75 3) ;; texte de hauteur 1.75 -> couleur 3 (ChPropTx 2 3) ;; texte de hauteur 2 -> couleur 3 (ChPropTx 2.5 2) ;; texte de hauteur 2.5 -> couleur 2 (ChPropTx 3.5 7) ;; texte de hauteur 3.5 -> couleur 7 (ChPropTx 5 4) ;; texte de hauteur 5 -> couleur 4 (princ) ) Voici mes problèmes après contrôles et vérifications. Car suite à ce changement de nouveau gabarit de travail, je m'aperçois au fur et à mesure des choses à faire ou à modifier. Le premier serait de modifier une hauteur 1.8 en 1.75 (soit par le style de texte ou par sa hauteur) et ceci avant sa modification de couleur pour qu'elle soit reconnue après. Puis ma deuxième est que j'ai besoin que mes blocs dynamiques soient redéfinis avec les nouveaux paramétrages (calques, couleurs et formes). Ils portent le même nom et sont sauvegardés dans le même répertoire. Et ma troisième serait, si c'était possible de garder les petit points des flèches ou repères existants avec le nouveau style de cote et de leur attribuer une nouvelle taille de 4.2 Merci à nouveau pour votre aide. Bonne journée à tous. Thierry.

Bonjour zebulon, bonjour à tous Je reviens vers vous car j'ai besoin de compléter ce lisp. Après vérification, j'ai deux nouveaux problèmes. Car suite à ce changement de gabarit de travail, je m'aperçois au fur et à mesure des problèmes. Le premier serait de modifier une hauteur (soit par le style de texte ou par sa hauteur) et cei avant sa modification de couleur. Puis ma deuxième est que j'ai besoin que mes blocs dynamiques soient redéfinis avec les nouveaux paramétrages (calques, couleurs et formes). Ils portent le même nom et sont sauvegardés dans le même répertoire. Merci à nouveau pour votre aide. Bonne journée à tous. Thierry.

Bonjour, Merci Vincent (Zebulon_), c'est tout à fait ce qu'il me fallait. J'ai changé les hauteurs et les couleurs dont j'avais besoin pour mon gabarit, c'est nikel. Par contre aurais-tu un moyen de m'aider, pour lancer un lisp pour un ensemble de fichier DWG d'un même dossier et d'un même répertoire ? Merci d'avance. Bonne journée. Thierry

Bonjour, Merci pour ton aide, mais je connais très bien cette fonction mais ce n'est pas ce que je recherchais. Bonne journée. Thierry

Bonjour à tous, Je cherche un moyen de sélectionner automatiquement le texte de mon dessin. Faire une recherche et sélection du texte en ligne ou multiligne d'une hauteur définie appartenant au même calque "TEXTES". Car j'ai plusieurs hauteurs de texte dans mon dessin et je voudrais redéfinir une couleur pour chaques hauteurs. Puis je recherche aussi un moyen de lancer ce lisp pour un ensemble des dessins se trouvant dans le même dossier, et même répertoire. Merci à vous pour votre aide. Bonne journée. Thierry

Bonjour à tous, Je cherche un moyen de sélectionner automatiquement du texte via un lisp. Faire une recherche et sélection du texte en ligne ou multiligne d'une hauteur définie appartenant au même calque "TEXTES". Car j'ai plusieurs hauteurs de texte et je voudrais redéfinir une couleur pour chaques hauteurs. Puis je recherche aussi un moyen de lancer ce lisp pour un ensemble des dessins se trouvant dans le même dossier, et même répertoire. Merci à vous pour votre aide. Bonne journée. Thierry

Bonjour à tous (tes), Je suis à la recherche d'un dessin ou d'un bloc 2D voir 3D représentant un chariot élévateur de type MANITOU ou FENWICK sous le format DWG (DXF). Merci par avance pour votre aide. Thierry