x13

Comment charger un type de ligne complexe utilisant des formes, fichiers avec l'extension .SHP et .SHX , Le répertoire est bien dans le chemin de recherche d'AutoCad. Merçi :o

http://www.jtbworld.com/cad.htm http://www.afralisp.com/ http://www.caddigest.com/subjects/autocad/tutorials/select/parsai_slides.htm http://www.newz.net/acadplus/ http://www.contractcaddgroup.com/download/index.htm#AutoCAD - VBA Example Programs http://dominique.vaquand.free.fr/routinesvba.htm

Je travaile sur la version 2000, et toutes mes cotes et tout mon texte est dans l'espace papier. Cela fonctionne très bien lorsque les fenêtres sont verrouillées, afin de prévenir les problèmes reliés au zoom.

Le programme Plotall.lsp pourrait être modifié pour intégré le format de papier. À voir http://www.cadalyst.com/cadalyst/article/articleDetail.jsp?id=80471 Salutations, x13

Certains programmes ne comportent pas de sauvegarde de variables et controles d'erreur. Kenny Ramage a écrit le programme suivant et je voudrais savoir s'il est possible de L'intégré à un menu.mnl afin qu'il s'applique à tous les programmes lisp. (autoload "error.lsp" '("error")) Est-ce la bonne façon de charger le programme. Également je me demande s'il ne manqueraitpas ceci au début du programme; Defun C:Error Voiçi le programme: Error.lsp ;Global Error Trap (defun error();load function (prompt "\nGlobal Error Trap Loaded");inform user (princ) );defun ;;;*========================================================== (defun initerr ();init error (setq oldlayer (getvar "clayer"));save settings (setq oldsnap (getvar "osmode")) (setq oldpick (getvar "pickbox")) (setq temperr *error*);save *error* (setq *error* trap);reassign *error* (princ) );defun ;;;*=========================================================== (defun trap (errmsg);define trap (command nil nil nil) (if (not (member errmsg '("console break" "Function Cancelled")) ) (princ (strcat "\nError: " errmsg));print message ) (command "undo" "b");undo back (setvar "clayer" oldlayer);reset settings (setvar "blipmode" 1) (setvar "menuecho" 0) (setvar "highlight" 1) (setvar "osmode" oldsnap) (setvar "pickbox" oldpick) (princ "\nError Resetting Enviroment ");inform user (terpri) (setq *error* temperr);restore *error* (princ) );defun ;;;*=========================================================== (defun reset ();define reset (setq *error* temperr);restore *error* (setvar "clayer" oldlayer);reset settings (setvar "blipmode" 1) (setvar "menuecho" 0) (setvar "highlight" 1) (setvar "osmode" oldsnap) (setvar "pickbox" oldpick) (princ) );defun ;;;*====================================================== (princ) (autoload "error.lsp" '("error")) Est-ce la bonne façon de charger le programme.

Bravo, le problème est résolu. Avec un autre logiciel j'ai déjà eu un problème similaire et je l'avais résolu de la façon suivante: En supposant que tu connais les répertoires temporaires; Va dans chacun de ces répertoires ou fichiers, en faisant "édition" "sélectionné tout" puis avec le bouton droit de la souris "propriété" tu change la propriété (lecture seul) pour (archive). Salutations.

Une adresse pour un petit tutoriel sur la création de hachure. http://www.ccadinc.com/tips/creatingcustomhatchpatterns.html Espérant que celà pourra t'aider. salutations. :)

Voiçi deux sites. Tu en trouveras d'autres en faisant une recherche sous AutoCad lt Tutorial. http://www.geocities.com/cadgurucool/tutorial.htm http://www.caddigest.com/subjects/acad_lt/tutorials.htm X13

Surement, mais il y en a de d'autres région de la province. Salut, X13

Salut Tramber, Voiçi une adresse pour la traduction des commandes http://www.univers.qc.ca/ sous la rubrique "trucs, support,routines etc" puis "traduction de noms". Pour les raccourcis "alias" voiçi deux sites: http://www.4d-technologies.com/geotools/manual/macros.htm http://www.caddigest.com/subjects/autocad/tutorials/select/parsai_commands_2004.htm X13

Les outils Express FR ( version démo inclus avec AutoCad 2000) comporte 55 routines, 3 liens et 1 aide . Les EXPRESS Tools (version complète anglaise) comportent104 routines, 4 liens et 1 aide . Une recherche sur internet sous ETV1-9.EXE vous donnera un résultat. Pour ce qui est de la francisation des EXPRESS TOOLS, il faut traduire le fichier ACETMAIN.MNU afin d'avoir un menu déroulant et la barre d'outils en français. De plus, il faut traduire à l'intérieur de chaque routine, tous les appels à la ligne de commande. Pour ce qui est de acetmain.mnu la traduction est faites, il ne reste plus que quelques routines. Si certains sont intéressé, faites le moi savoir. X13

Voici une partie de mon menu personnalisé [->Fenêtre] ID_Vport_lockon [Affichage verrouillé]^C^C_-vports _lock _on _p;; ID_Vport_lockoff [<-Affichage libéré]^C^C_-vports _lock _off _p;; [Verrouille fenêtres]^C^C-LA;T;VPORT;;-vport;l;on;all;; Tu peut également créer un bouton pour activer la macro de ton choix. Bon usage et salutations, x13

Merci beaucoup à Éric et Labletech pour leurs solutions. Je vais les essayer dès aujourd'hui, maintenant je sais que c'est la variable DIMSD et non DIMBLK qu'il faut utilisé. Salutations, x13

Je voudrais modifier un programme permettant d'activer ou désactiver la deuxième ligne d'attache et sa pointe de flèche associée. Voici la manière de procédé que j'utilise: - Dessin d'une cote linéaire et sélection de celle-ci. -Dans propriété je sélectionne ARROW2 et je lui donne la valeur NONE puis je sélectionne EXT LINE 2 et lui attribut la valeur OFF et je ferme la boîte de dialogue propriété. Le résultat est une cote linéaire avec une seule ligne d'attache et une seule pointe de flèche ou barre oblique, très utile pour les dessins d'atelier de charpente d'acier. Ci-joint deux programmes que j'ai essayé de modifier sans résultat. Pouvez-vous m'indiquer où est l'erreur et la marche à suivre. Merci à l'avance de votre aide. Voici le premier programme. ;Tip1576: DIMSEA2.LSP Toggle Extension Line ©1999, Billy Wooten Toggle pointe de flèche (janv. 2004) François Huot (defun C:DIMSEA2 (/ QT FLÈCHE) ;;;ligne modifiée (setq QT (getvar "dimse2" )) (setq FLÈCHE (getvar "dimblk" )) ;;;ligne ajoutée (if (= QT 0) (if (= FLÈCHE OBLIQUE) ;;;ligne ajoutée (progn (setvar "dimse2" 1) (setvar "dimblk" none) ;;;ligne ajoutée (princ "\nSupprimer deuxième ligne d'attache et pointe de flèche") ) ;_ end of progn ) ;_ end of if (if (= QT 1) (if (= FLÈCHE OFF) ;;;ligne ajoutée (progn (setvar "dimse2" 0) (setvar "dimblk" oblique) ;;;ligne ajoutée (princ "\nInclure Deuxième ligne d'attache et pointe de flèche") ) ;_ end of progn ) ;_ end of if (princ) ) ; end dimsea2 (princ "\n Taper DIMSEA2 pour démarrer ") Voici le deuxième programme. ;***************************** XTSWITCH2.LSP *********************************** ; Purpose: Switches Extension Lines and arrow On or Off ; Created: 7/24/97 ; Modified: 11/25/97 added error handler ; Modified: 01/20/2004 added arrow on or off (François Huot, Montmagny, Québec) ; Author: Herman Mayfarth ; Tekton Construction Services ; h_mayfarth@compuserve.com ; Copyright © 1997 Herman Mayfarth. Permission granted to freely use ; and redistribute without fee so long as copyright notice remains intact. ; Provided "as is" and with all faults. No warranty express or implied. ; ;****************************************************************************** ;; error handler (defun tcserr(msg) (exitsw) (if (or (= msg "Function cancelled") (= msg "quit / exit abort") ) (princ) (princ (strcat "\nError: msg")) );end if (princ) );end tcserr ;;---------------------------------------------------------------------------- ;; startup function (defun strtsw() (command "_.UNDO" "BEGIN") (setq olderr *error* *error* tcserr) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 0) (princ) );end strtsw ;;--------------------------------------------------------------------------- ;; exit function (defun exitsw() (setvar "cmdecho" oldecho) (setq *error olderr olderr nil) (command "_.UNDO" "END") (princ) );end exitsw ;;--------------------------------------------------------------------------- ;; basic switch function (defun tcs_xtln_switch (val / s a e1 pt d1 d2 which switchval) ;; initialize variables (setq s T) (setq which nil) (setq switchval val) ;; get dimension to change (while s (setq a (entsel "\nSelectionner la ligne d'attache et pointe de flèche à changer:\n")) (setq pt (trans(cadr a) 1 0)) (setq e1 (entget (car a))) (if (= "DIMENSION" (cdr(assoc 0 e1))) (setq s nil) );end if );end while ;; evaluate distances to definition points (setq d1 (distance pt (cdr(assoc 13 e1)))) (setq d2 (distance pt (cdr(assoc 14 e1)))) ;; decide which extension line and arrow to toggle (cond ((> d1 d2) (setq which "DIMSE2"));toggle DIMSE2 ;((> d1 d2) (setq which "DIMBLK"));toggle DIMBLK ;;;; ligne ajoutée ((> d2 d1) (setq which "DIMSE1"));toggle DIMSE1 ;((> d2 d1) (setq which "DIMBLK"));toggle DIMBLK ;;;; ligne ajoutée (T nil) );end cond ;; do it! (command "_.dimoverride" which switchval "" (car a) "") (princ) );end tcs_xtln_switch ;;---------------------------------------------------------------------------- ;; turn on line and arrow (defun C:XTL2ON( / oldecho olderr) (strtsw) (tcs_xtln_switch 0) (tcs_dimblk_switch "none") ;;; ligne ajoutée (exitsw) (princ) );end XTL2ON ;;-------------------------------------------------------------------------- ;; turn off line and arrow (defun C:XTL2OFF( / oldecho olderr) (strtsw) (tcs_xtln_switch 1) (tcs_dimblk_switch "oblique") ;;;ligne ajoutée (command "_.REDRAW") (exitsw) (princ) );end XTL2OFF ;;------------------------------------------------------------------------- ;; load prompts (princ "\nXTSWITCH2 loaded....") (princ "\nXTL2ON turns on extension line and arrow,XTL2OFF turns it off") ;;;ligne modifiée (princ)

Un petit programme servant à dessiner une ligne avec pointe de flèche à chaque extrémité; après insertion du deuxième point le programme me répond : ERROR: no function defenition : DTR Qu'est-ce que cela signifie. x13

Feu Autodesk Point A, avait publié un article sur la sauvegarde et la restauration des réglages favoris pour "Accrochage aux objets" Il me manque quelques bouts de code, autodesk Point A Saving and Restoring Favorite Osnaps The code below can be added to the menu source file (Acad.mns, for exa restore your favorite OSNAP settings. The routine creates an •enviroment favorite OSNAP setting (say END,MID,INT,PER,NEA). Then, when you P mode), It will check to see If It has any settings (osfliode > 0). if Osnep se Osnap on o roff. If no settings are present (osmode 0), It will restore you (ENDMID,INT,PERNEA= 675) that are stored In your menu. If you temp you can restore your favorite settings by keying SHIFT+F3. The otherltine your favorite setting and (ID_OS_SAVE) WIll make the current OSNAP se Shlft+F3 will return the OSNAP setting to that saved value). Follow the ste paste the following code into the ~POP6 ~TOOLS portion of the AutoCAD.m ID_Osnap [Osnap SettIng]'osnap”: ID_OS_RESTORE[($(eval,”Reset &l “$(getenv,”os_settin"))J’setvar osmode $M=$(if,$(eq,$(getenv,os_setting ID_OS_SAVE [$(eval,”Make Current Osnap DefauIt:\t”$(getvar,osmode))J (getvar “osmode”))) 2 Paste the following Into the***ACCELERATORS p //Improved OSNAP toggle ["F3"]'setvar osmode $M=$(If,$(eq,$(getvar,os, os_setting),"”),675,$(getenv, os_settlng)),+ $(if$(eq,$(and,16384,$(getvar,osmode)),16384),$(-,$(getvar,osmode),16 // Resets default Osnap setting[sHIFT+”F3"]setvar osmode $(if,$(eq,$(ge os_setting)) 3. Save the changes to the .mns menu file, and then reload th votre aide serait apprécié. Merçi, X13 [Edité le 12/9/2003 par x13]

En raccourcissant le nom du fichier cela règle le problème. X13

Problème d'extension de fichier corrigé. Tout fonctionne parfaitement. Merçi, X13

J'ai chargé ton programme, une fois décompressé il se présente comme ceci Bibles.exe.php et lorsque je l'ouvre il se présente comme un fichier compilé et non en bibles.lsp, alors que faire. merçi, X13 :(

Tu trouveras un programme intérssant sur Cadalyst.com //Tip1779: STL.DCL STEEL SHAPES OF ALL TYPES AND SIZES ©2002, Al Rogers $50 Bonus Winner, Cadalyst.com, Get the code feb. 2002. J'ai traduit le fichier STEEL.DCL si cela t'intéressse. tu n'aura quà refaire les bases de données pour les profilés européen. Salutations, :)

Comment ouvrir un fichier ex. J:ESTB menu Autocad/routines_aide.doc avec wordpad. Voiçi ce que j'ai essayé defun ro () (if (not (setq ROU (findfile "Routines_aide.doc") ) ;_ end of setq ) ;_ end of not (alert "Désolé - Fichier d'aide introuvable") (progn (startapp "C:/Program Files/Accessoires/Wordpad.exe" ROU) (c:estbaide) ) ) ;_ end of if (princ) ) ;_ end of defun Wordpad ouvre mais pas avec le bon fichier. Où est le problème? Routines_aide.doc est dans J:\ESTB menu AutoCad :(