BIM G CO

euh la maintenant je n'arrive plus a remettre la main sur quel architect nous donne autant de misère.....

et Alt Entrée permet de valider le Textmult!

en général à part les chiffres et les lettres sont authorisés "_";"-";" ". attention une limite en nombre existe en 8.3 puis en 127 puis 256 finalement. ce n'est pas parce que les caractères comme "{" sont authorisé avec Windows XP qu'il le sont en Windows 95 (par exemple) il suffit que dans la chaine des etransmits qu'il existe un PC non Xp pour enrailler la machine.

tous dépend le logiciel qui traite et expolite le fichiers

Patrick_35 d'une je te félicite et de deux mais où vas-tu chercher des truc pareil? même dans l'aide "Toute la documentation" on ne trouve pas..... :(

c'est peut-être du hors sujet (enfin j'espère) lorsque l'on dessine sur un plan dont l'unité est le pouce MEASUREMENT=0, en mètre, bonjour la catastrophe. Surtout si MEASUREINIT=1 car lorsque l'on cote nous avons des cotes que nous croyons en mètres. Car faire une échelle équivaut à multiplier par 2.54 les distance (donc les côtes) à modifer quand on peut car certaines passerelle efface la configuration de styles de cotes. c'est ce que nous vivons lorsqu'un de nos architectes nous envoie ses plans : une porte de 90 cm fait en réalité 2.286 m sur le plan! voyez la galère. ( je signale qu'en faisant echelle ca ne fonctionne pas non plus ce sont les cotes qui sont *2.54 et comme je l'ai dit je ne peux pas modifier le style de côtes sans risquer de me retrouver avec des cotes qui n'ont plus l'air de ce qu'elles avaient : extémités, couleur, lignes d'attache etc....)

Voici un exemple de petit lisp que tu peux copier dans le bloc-notes et le nommer "ImpressionMultiple [surligneur] .LSP[/surligneur]" le .LSP est nécessaire pour pouvoir l'ouvrir avec AutoCAD avec Outils- AutoLISP-Charger ou par bouton (load " chemin/ImpressionMultiple.LSP") note que je n'ai pas noté "\" mais "/". ;;; Impression Multiples de toutes les présentations ;;; Utilisation de la boucle Tant Que suivant un compteur : (While (condition)....) ;;; Utilisation de la liste : (layoutlist) ;;; Utilisation de la fonction retournant un élément de list : (nth rang liste) ;;; (setq i 0) ; boucle i = 0 ;; Tant que i est inférieur à aux nombre de présentation effectue ;; la commanda "-plot" blablabla ;; et incrémente ensuite la boucle i (while (< i (length (layoulist))) (progn (command "-plot" "y" ; certainement Oui (nth i (layoutlist)) ; Nom de la présentation "Acrobat PDFWriter" ; Option 1 "" ; Option 2 "" ; Option 3 "" ; Option 4 "" ; Option 5 "" ; Option 6 "" ; Option 7 "" ; Option 8 "" ; Option 9 "" ; Option 10 "" ; Option 11 "" ; Option 12 "" ; Option 13 "" ; Option 14 "" ; Option 15 "" ; Option 16 "" ; Option 17 "C:\\test.pdf" ; certainement le nom de fichier ) (setq i (1+ i)) ; incremente la boucle i ) ) (setq i nil) ; libère la variable i et la mémoire

si tu ne connais pas la longueur de boucle d'avance pour faire un script (command "-plot" "y" "Chapelles de sol" "Acrobat PDFWriter" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "C:\\test.pdf"), (command "-plot" "y" "Layout1" "Acrobat PDFWriter" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "C:\\test.pdf"), (command "-plot" "y" "Layout2" "Acrobat PDFWriter" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "C:\\test.pdf"), ..... en plus tu devra utiliser la fonction lisp: ; liste les présentations (layoutlist) ensuite ; nombre de présentations: (length (layoutlist)) et enfin ; Nom de la première présentation (nth 0 (layoutlist)) ; Nom de la dernière présentation (nth (- (length (layoutlist)) 1) (layoutlist)) teste ces lignes sur la ligne de commande tu viens de débuter dans le Lisp! bon courage ;)

Serais-tu suisse, Laurent, ou bien? :p ;) moi cette photo a été prise 1795 ........

:( Je n'ai pas trouvé avec _.sysvdlg ni modifvar

ok bonuscad je vais l'essayer de cette manière alors.

http:// http://www.users.qwest.net/~sdoman/ Réponse de la ligne de commande en sélectionnant un Txt multiligne Commande: _appload STRIPMTEXT.LSP correctement chargé(s) Commande: StripMtext v3.07 Choix des objets: 1 trouvé(s) Choix des objets: ; erreur: no function definition: MAINDIALOG Commande: Le DCL il le trouve pourtant!

StripMtext NE MARCHE PAS : Commande: StripMtext v3.07 Choix des objets: 1 trouvé(s) Choix des objets: 1 trouvé(s), 2 au total Choix des objets: no function definition: MAINDIALOG apparemment il ne trouve pas le ( defun MAINDIALOG () ....) or il y est. Je me suis donc résigné à l'ouvrir avec Visual Autolisp : "commande _VLIDE et j'ai cette erreur : [VERIFICATION du TEXTE Chargement de STRIPMTEXT[3].LSP...] . ; avertissement: variable locale utilisée comme fonction: [surligneur] SETUP[/surligneur] ; avertissement: variable locale utilisée comme fonction: [surligneur] MAINDIALOG[/surligneur] ; avertissement: variable locale utilisée comme fonction: [surligneur] STRIPMTEXT[/surligneur].. ; Vérification terminée. En essayant de comprendre j'ai cru comprendre que le (defun c: StripMText (....).....) contient des defun dans sa fonction. Perso je trouve pas çà logique..... comment appeler quelquechose que l'on définit soit-même.... je vais demander demain au facteur de trouver où je vais habiter dans deux ans.....

meme pire il ne fonctionne pas test avec Visual AutoLISP : [VERIFICATION du TEXTE Chargement de STRIPMTEXT[3].LSP...] . ; avertissement: variable locale utilisée comme fonction: [surligneur] SETUP[/surligneur] ; avertissement: variable locale utilisée comme fonction: [surligneur] MAINDIALOG[/surligneur] ; avertissement: variable locale utilisée comme fonction: [surligneur] STRIPMTEXT[/surligneur].. ; Vérification terminée. Donc je ne peux l'utiliser.....

Pour StripMtext je ne peux pas le tester car je ferait de la "non qualité" selon notre système de Manuel Qualité ISO 9001. (gestion documentaire) Je suis en attente de modification auprès du chargé de la qualité.... :cool:

:( bah justement je vois pas ca moua!

c'est pour enlever le surlignage des texte mutlilinges qui sont pas correct! alors lu substr correcpond exactement à ce que je cherche. Effacer entre le [surligneur] "\\f"[/surligneur] et [surligneur] ";"[/surligneur] et le [surligneur] "{"[/surligneur] si ontrouve les éléments précédent. (normalisation de MTEXT selon notre BE le cons (3 . ".....") existe uniquement dans le cas où le nombre de caractère est supérieur à 250 ((-1 . ) (0 . "MTEXT") (330 . ) (1 . "dfjkggsdkjkgfjklfjkgjf...dfjkgg [surligneur] }[/surligneur]") (10 121.134 176.901 0.0) (100 . "AcDbEntity") (100 . "AcDbMText") (11 1.0 0.0 0.0) (210 0.0 0.0 1.0) (3 . [surligneur] "{\\fArial|b0|i0|c0|p34;[/surligneur]sdkjkg...") (3 . "fjkgjdfjkggsddffjkdjffjdfjkjk...") (3 . "fjklfjkgjdfjkdfjklfdfjdkljggs...") (3 . "ggsdkjkgfjklsdfjkhfjhfjksdfjk...") (3 . "jkhhjkdfdhfjkjfjkdhh...\\Pklf...") (3 . "kjkgfjklfjdfhdfjhdhdjkjfkgjdf...") (40 . 0.12) (41 . 10.3303) (410 . "Model") (42 . 16.5573) (43 . 1.57165) (44 . 1.0)) (5 . "D52") (50 . 0.0) (62 . 7) (67 . 0) (7 . "Ecriture") (71 . 1) (72 . 5) (73 . 1) (8 . "0")

mieux encore il existe en LISP : TXT2MTXT.LSP

:casstet: Merci Tramber je vois que j'ai du mal à trouver quelque chose avec l'aide d'autoCAD et c'est parce que tu m'as dit d'aller chercher cette fonction (substr string start [length]) que le l'ai trouvé parce que tu tape string dans l'aide et t'as une tripoté de référence et au bout de la centième tu te lasse..... surtout quand tu vois qu'il y en a plus de 5000! ;)

(command "_-LAYER" "_state" "_save" "ParDéfaut" "" "" "") ; Sauve l'état de tes calques (command "_-LAYER" "L" "*"" "") ; déverrouille tout tes calques ..... ton lisp (command "_-LAYER" "_state" "_restore" "ParDéfaut" "" ""); restaure l'état de tes calques ;)

Comme fonction lisp nous avons vl-string-left-trim mais je n'arrive pas à trouver une fonction qui efface un morceau de texte soit à gauche soit à droite alors .... ;;; Removes the specified characters from the beginning of a string ;;; (vl-string-left-erase position string) ;;; ;;; Arguments ;;; - position ;;; A displacement in the string; the first character is displacement 0. ;;; - string ;;; The string to be stripped of character-set. ;;; ;;; Return Values ;;; A string containing a substring of string with all leading characters in character-set removed ;;; ;;; Examples ;;; _$ (vl-string-left-erase 1 "abcdefjk") ;;; "bcdefjk" ;;; _$ (vl-string-left-erase 5 "abcdefjk") ;;; "fjk" ;;; _$ (vl-string-left-erase 8 "abcdefjk") ;;; "" ;;; _$ (vl-string-left-erase 12 "abcdefjk") ;;; "" (defun vl-string-left-erase (NbCar Val_String / stringlist n stringfinal) (setq stringlist (vl-string->list Val_String)) (if (> NbCar (length stringlist)) (setq NbCar (length stringlist))) (if (or (< (length stringlist) 0) (< NbCar 0)) (setq n 0) (setq n NbCar)) (if (/= stringlist nil) (while (< n (length stringlist)) (progn (if (= stringfinal nil) (setq stringfinal (list (nth n stringlist))) (setq stringfinal (append stringfinal (list (nth n stringlist))))) (setq n (+ n 1)) ) ) ) (if (listp stringfinal) (vl-list->string stringfinal) Val_String ) ) et pour la droite : ;;; Removes the specified characters from the ending of a string ;;; (vl-string-right-erase position string) ;;; ;;; Arguments ;;; - position ;;; A displacement in the string; the first character is displacement 0. ;;; - string ;;; The string to be stripped of character-set. ;;; ;;; Return Values ;;; A string containing a substring of string with all leading characters in character-set removed ;;; ;;; Examples ;;; _$ (vl-string-right-erase 0 "abcdefjk") ;;; "" ;;; _$ (vl-string-right-erase 1 "abcdefjk") ;;; "a" ;;; _$ (vl-string-right-erase 5 "abcdefjk") ;;; "abcde" ;;; _$ (vl-string-right-erase 12 "abcdefjk") ;;; "abcdefjk" (defun vl-string-right-erase (NbCar Val_String / stringlist n stringfinal) (setq stringlist (vl-string->list Val_String)) (setq n 0) (if (> NbCar (length stringlist)) (setq NbCar (length stringlist))) (if (< NbCar 0) (setq NbCar 0)) (if (/= stringlist nil) (while (< n NbCar) (progn (if (= stringfinal nil) (setq stringfinal (list (nth n stringlist))) (setq stringfinal (append stringfinal (list (nth n stringlist))))) (setq n (+ n 1)) ) ) ) (if (listp stringfinal) (vl-list->string stringfinal) Val_String ) ) puisque je ne les ai pas trouvé dans l'aide d'AutoCAD je les ai créées... ;)

pour Laytrans en charchant sur google : attention : site anglophone mais au moins je crois qu'il est décortiqué! http://discussion.autodesk.com/thread.jspa?threadID=365127

Bah non justement ! a moins de passer par les codes DXF de chaque entités constituant tout ou partie du dessin! Patrick_35 ConvCalque est présent sur la AutoCAD 2002 (j'ai testé ...... sur une version *bip*) :P

il y a aussi l'accrochage perpendiculaire à déasctiver !

Plus tu multiplies l'accès à AutoCAD au serveur plus tu ralentit AutoCAD. La solution serai de travail qu'en local. Le seul accès au serveur qu'AutoCAD utilise c'est ceux pour l'ouverture des plans. Voilà ce que nous avons fait : - à chaque ouverture de session Windows (NT) le script de login recharge tous les CTB, PC3, DWT, LIN dans un dossier Local (nous utilisons aussi ce système pour Word et Excel). Cette petite manipulation permet : 1 d'accèder plus vite aux informations(modèles de documents etc....) 2 qu'il n'y ai pas de modification PIRATE par untel ou untel (à chaque démarrage les fichiers sont écrasés) 3 l'utilisation simultanée provoquait des pertes de données. (Que ce passait-il quand quelqu'un modifiait un CTB et un autre imprime avec ce même CTB au même moment ?) - Nous avons créer une charte graphique qui nous permet d'utiliser que quelques fichiers CTB, DWT, PC3. Le choix du PC3 sert surtout à éviter toutes les petites manip pirates qu'effectuaient les stagiaires. - à chaque démarrage de session tu as les fichiers au normes du BE et tu ne t'embête plus. Depuis j'ai créé un menu spécial pour notre BE inter-agissant avec un lisp (à chaque ouverture de session Windows j'efface les MNR et MNC du BE sur le disque local et remplace le MNS MNL et LSP) Bien sûr ne pas oublier de modifier les chemins d'accès dans le menu Option. Création d'un fichier BATch : (variable S_OFFICE, S_ACAD sont données par le serveur) **** EXTRAIT ****** REM **** REM CREATION DE L'ARBORESCENCE LE CAS ECHEANT REM **** IF NOT EXIST "%UNITE%:\MODELES ISO" MD "%UNITE%:\MODELES ISO" IF NOT EXIST "%UNITE%:\MODELES ISO\OFFICE" MD "%UNITE%:\MODELES ISO\OFFICE" IF NOT EXIST "%UNITE%:\MODELES ISO\AutoCAD" MD "%UNITE%:\MODELES ISO\AutoCAD" REM **** REM IMPORTATIONS DES DOSSIERS REM **** IF NOT EXIST %S_OFFICE% GOTO ERREUR IF NOT EXIST %S_ACAD% GOTO ERREUR REM **** REM MODELE OFFICE REM **** echo Copie des fichiers ModŠles de Office echo Veuillez patienter.... copy %S_OFFICE% "%UNITE%:\MODELES ISO\OFFICE" >NUL REM **** REM MODELE AutoCAD REM **** echo Copie des fichiers AutoCAD 2005 echo Veuillez patienter.... IF EXIST "%UNITE%:\MODELES ISO\AutoCAD\BE.MNU\MNU.AutoCAD\BE.MNC" DEL "%UNITE%:\MODELES ISO\AutoCAD\BE.MNU\MNU.AutoCAD\BE.MNC" IF EXIST "%UNITE%:\MODELES ISO\AutoCAD\BE.MNU\MNU.AutoCAD\BE.MNR" DEL "%UNITE%:\MODELES ISO\AutoCAD\BE.MNU\MNU.AutoCAD\BE.MNR" xcopy %S_ACAD% "%UNITE%:\MODELES ISO\AutoCAD" /s /e /Y /C >NUL