dr.loveless

...... OK, j'explique, la fonction TRIM permet de suprrimer les espaces placés à la fin et au début d'une chaine de caractère. Par exemple, le code trim(" Le Doc ") retournera "Le Doc", et trim(" ") retournera "". Hors je suis en train de réaliser un prog permettant d'effectuer une gestion des plans directement par Autocad avec une relation Access. Donc pour en revenir à mon probleme, en lançant le programme, une boite de dialogue s'affiche demandant le nom et le code affaire du chantier, etc. Quand on a remplit ces cases, on valide et aussitot les données saisies sont enregistrées dans Access. Par conséquent, si une des variables n'a pas été saisie (tous les champs ne sont pas obligatoires), au moment de balancé les variables dans la base de données, çà me faisait une erreur car la variables non saisies n'étant affecté de rien, un champ de la base de donnée ne peut pas être enregistrée,-> message d'erreur. Pour toutes les cases à remplir, j'ai donc affecté " " par défaut aux cases à remplir, comme çà quand on valide si rien n'a été saisi, le champ de la base de donnée est affecté de " " et là il n'y à plus d'erreur. Mais quand on choisi la case et qu'on saisie le texte, il arrive souvent que l'espace mis par défault s'ajoute soit devant, soit derrière le texte, hors çà je ne veux pas. Par conséquent, il faut que j'utilise la fonction TRIM sur une variable uniquement si celle ci n'est pas composée que d'espace. OUF....J'espère que tout le monde à compris.

Salut, Comment puis-je faire pour eviter la fonction "trim" quand la chaine de caractère est composée uniquement d'espace ?? x = Trim(x) Merci

C'est d'un simplicité pour certaine personne quand c'est si compliqué pour d'autre !! :casstet: En fait pour tout t'avouer je pensais bien faire une boucle de ce style car je fais souvent ce type de prog, mais en liason avec Excel, et ne connaissant que tres peu Access, je pensais que comme c'est un tableur, il existait déjà une fonction tout faite pour ce type de manip. Merci beaucoup, vraiment sympas!

Salut je cherche à faire un code me permettant de tester une valeur que je saisi dans une table Access. En fait, je fais apparaitre une boite de dialogue dans laquelle je demande un numéro d'affaire. Tous les numéros d'affaire déjà traité sont stocké dans une base Access, je veux donc savoir si le numéro entrez précedemment fais partie de cette table. S'il en fais partie, çà me retourne une boite de dialogue me le stipulant, si çà n'en fais pas partie çà me l'ajoute. Voici le code à l'heure actuelle : Public dbaffaire As Object Private Sub cmdValiderNumAff_Click() Dim affaire As Recordset Set dbaffaire = OpenDatabase("R:\0-DAO-Gestion\Gestion\gestion.mdb") Set affaire = dbaffaire.OpenRecordset("Affaire", dbOpenDynaset) If affaire![NumAff] = txtAffaire Then ---> c'est à ce niveau là que je bloque MsgBox "ok" Else affaire.AddNew affaire![NumAff] = txtAffaire affaire.Update End If dbaffaire.Close Set dbaffaire = Nothing Unload Me End Sub Merci encore!!

Salut, pour répondre à ton probleme concernant la création d'un bloc : set objBloc = thisdrawing.blocks.Add(point d'insertion, nom du bloc) Pour créer des entités dans un bloc : objBloc.addline Pt1, Pt2 .... par exemple Par ex si dessous un prog que j'ai choper d'un un boucain : Public Sub BlocParking() dim objBloc as acadBlock dim objcarre as acadLWPolyline Dim objTexte as acadText dim PtInsert(0 to 2) as double dim PtCarre(0 to 9) as double PtInsert(0) = 5: PtInsert(1) = 5: Ptinsert(2) = 0 PtCarre(0) = 0: ptCarre(1) = 0 PtCarre(2) = 0: ptCarre(3) = 10 PtCarre(4) = 10: ptCarre(5) = 10 PtCarre(6) = 10: ptCarre(7) = 0 PtCarre(8) = 0: ptCarre(9) = 0 Set objBloc = thisdrawing.blocks.Add(PtInsert, "Parking") Set objcarre = oblBloc.AddLightWeightPolyline(PtCarre) objCarre.Closed = True objCarre.ConstantWidth = 0.5 set objTexte.Alignment = acAlignmentMiddle objTexte.textAlignmentPoint = PtInsert objTexte.Color = acBlue End sub Voilà pour te servir.... En revanche comme je te l'expliquai, c'est sur un coucain, j'ai donc tout retaper, il se peut qu'il y est une erreur de frappe, j'ai regardé mias on n'est jamais à l'avri :D

Ce n'est pas sur la ligne de commande que j'ai besoin de plus de 80 caractères, mais sur les lignes du dessus!! En effet j'execute une macro qui me retourne un détail comprenant beaucoup de caratères que je voudrais voir apparaitre sur la même ligne!!

Bonjour, Je voulais savoir si on pouvait augmenter le nombre de caractères de la fenêtre de commande ( au dessus de la ligne de commande )?? Des que je dépasse les 80 caractères, je passe à la ligne suivante. Merci

En réponse en Didier : Le problème ce n'est pas de ne pas partager, car si je fais des programmes c'est à la demande de mon employeur, donc je suis bien obliger de les partager, mais le probleme c'est qu'il y en a qui se servent sur mon PC, et il prennent des programmes en cours de réalisation et apres ils viennet se plaindre. Qui plus est c'est mon employeur qui m'a demandé de trouver une protection fiable, un p'tit malin c'est amusé à se servir, et à REVENDRE quelques programmes à la concurrence.... à ses risuqes et périls ( il va se faire virer pour çà), je pense qu'il est donc préférable de proteger les fichichiers afin qu'ils ne soient utilisable que pour les PC connecté au réseau de mon entreprise. Voilà, pour les explications. Sinon je suis tout à fait d'accrod sur le fait de partager, d'autant plus que si personne ne partageait ses connaiisances ou ses programmes, je n'en serait pas là à l'heure actuelle. Bonne journée à tous, amicalement

Bonjour, Comme beaucoup de monde je pense, je cherche à protéger mes fichiers de tels manières qu'ils soit utilisable uniquement sur mon PC, de tel manière que si quelqu'un vient à "m'enprunter" mon CD de programme (comme çà a été le cas aujourd'hui), l'execution des lisp entraine systématiquement une erreur. Pour celà, je pense intégrer à chacun de mes lisp, au début, un chargement d'un fichier type bloc, ainsi la personne qui n'a pas se fichier enregistrer au bon emplacement verra alors un message d'erreur apparaitre. Le probleme que je rencontre, c'est que quand autocad rencontre une erreur, celui-ci indique le type d'erreur, et dans mon cas, il précise le fichier manquant, permettant alors à l'utilisateur de remedier à l'erreur en crénat le fichier manquant. Ce que je voudrais, c'est que au lieu d'indiquer l'erreur, il m'affiche une boite alert stipulant que ce fichier est protéger, et donc que le type d'erreur ne soit pas connu de l'utilisateur, rendant donc ainsi son utilisation totalement impossible. J'ai essayéer avec les fonction alert,vl-catch-all-apply,vlexitwitherror,... mais l'aide étant en anglais et I don't speek english, je galère pour en faire une utilisation appropriée, si quelqu'un à une idée je suis à votre écoute. Merci encore

OK, merci à vous!

J'ai beau chercher je trouve pas de fonction me permettant de retourner un angle en radian par rapport à son sinus ( l'inverse de la fonction sinus) ?? Merci d'avance

Je le savais je suis désolé, GETVAR c'est la clé sauf que c'est tout mélangé dans ma petite tete, alors je mélange VISUAL BASIC & VISUAL LISP, çà m'ennuie vraiment de vous déranger pour des trucs que je sais. Mille excuses

Salut, j'ai beau avoir fouiller dans l'aide je trouve pas comment faire pour attribuer le nom du dessin à une variable. (setq Nomdudessin dwgname) ?? fonctionne pas, comment dois-je m'y prendre?? Merci

Merci à tous mais finalement j'ai opter pour la création d'un petit Lisp (defun c:saveplus () (command "_qsave") (command "_jpgout" "R:/0-DAO-Gestion/Croquis de sablage/nomdufichier" "") ) sauf que je voudrais bien pouvoir enregistré l'image sous le même nom que celui du dessin hors je ne sais pas attribuer le nom du fichier à une variable en language Lisp, je vais aller fouiller un peu voir ce que je trouve. Merci encore

Petite observation, quand je créer l'image depuis l'espace papier, l'image crée ne comporte que le cadre de la FMULT et pas ce qui est dans l'espace objet, c'est domage.

OK merci tramber je vais essayez çà, je suis vraiment trop nulle moi

Merci, je connaissais pas, il me reste plus qu'a me créer un p'tit programme permettant d'enregistrer el fichier et de créer cette image en même temps. mille merci

Salut, je voulais savoir s'il était possible de faire automatiquement un double enregistrement d'un fichier dwg. Je voudrais par exemple pouvoir enregistrer le dessin et en faire une copie en format image sans avoir de manipulations supplémentaires à faire. Toutes les idées sont les bienvenues, merci.

Je pensais que çà marchais QUE pour les programmes en lisp Merci à toi O grand Gourou

Salut Je voulais juste savoir s'il était possible de lancer automatiquement un programme Visual Lisp à l'ouverture de chaque dwg. J'envisage de fiabiliser le systéme de mon entreprise en créant un programme qui détecte s'il s'agit d'un fichier interne grace à son nom, permettant de demander directement si on soughaite changer l'indice, archivant ensuite le plan ouvert et enregistrant automatiquement le fichier sous le nouvel indice. Les erreurs d'enregistrement sont trop fréquent pour ne pas faire quelques choses. Merci d'avance !!

Désolé c'est une erreur de ma part, le code est le suivant : (setq xJ0 (+ (car O0) (* (/ largcloi 2) (cos alfa1)))) (setq yJ0 (+ (cadr O0) (* (/ largcloi 2) (sin alfa1)))) (setq xJ1 (+ (car O1) (* (/ largcloi 2) (cos alfa1)))) (setq yJ1 (+ (cadr O1) (* (/ largcloi 2) (sin alfa1)))) (setq xJ2 (+ (car O2) (* (/ largcloi 2) (cos alfa1)))) (setq yJ2 (+ (cadr O2) (* (/ largcloi 2) (sin alfa1)))) (setq xJ3 (+ (car O3) (* (/ largcloi 2) (cos alfa1)))) (setq yJ3 (+ (cadr O3) (* (/ largcloi 2) (sin alfa1)))) (setq J0 (list xJ0 yJ0)) (setq J1 (list xJ1 yJ1)) (setq J2 (list xJ2 yJ2)) (setq J3 (list xJ3 yJ3)) (setq PtInter (inters J0 J1 J2 J3 nil))

Ben le code je l'ai plus, vu que finalement j'ai fait appel à mes souvenirs de mathématique pour calculé ce foutu point, mais tout de même le code fait au moins 25 ligne de plus qu'avec la fonction INTERS. De souvenir c'était : (setq xJ0 (+ (car O0) (* (/ largcloi 2) (cos alfa1)))) (setq yJ0 (+ (cadr O0) (* (/ largcloi 2) (sin alfa1)))) (setq xJ1 (+ (car O1) (* (/ largcloi 2) (cos alfa1)))) (setq yJ1 (+ (cadr O1) (* (/ largcloi 2) (sin alfa1)))) (setq xJ2 (+ (car O2) (* (/ largcloi 2) (cos alfa1)))) (setq yJ2 (+ (cadr O2) (* (/ largcloi 2) (sin alfa1)))) (setq xJ3 (+ (car O3) (* (/ largcloi 2) (cos alfa1)))) (setq yJ3 (+ (cadr O3) (* (/ largcloi 2) (sin alfa1)))) (setq J0 (list xJ1 yJ1)) (setq J1 (list xJ1 yJ1)) (setq J2 (list xJ2 yJ2)) (setq J3 (list xJ3 yJ3)) (setq PtInter (inters J0 J1 J2 J3 nil)) Sachant que quand j'inspecte mes variables J0 J1 J2 &J3, celles -ci sont composées d'une liste de deux données correspondant aux coordonnées de point. En revanche quand j'execute celui-ci, çà me met une erreur "erreur point 2D/3D", ou sinon çà marche mais la valeur de PtInetr est "nil" donc aucun interêt!! J'ai donc essayé en faisant une liste de 3 données correspondant au coordonnée en X,Y et Z (avec 0.0 pour Z) et çà ne marche pas non plus. J'espère que vous m'avez compris. Merci.

Salut, Je cherche à utiliser la fonction INTERS expliquée dans l'aide AutoCAD, mais je dois mal taper le code, quelqu'un pourrait me filer un petit coups de pouce ?? Je voudrais que la variable J100 enregistre les coordonées du point d'intersection de la ligne J0 J0a et J1 J2, j'ai beau avoir essayé un paquet de manière différentes aucune ne fonctionne..... A L'AIDE (setq j100 (inters J0 J0a J1 J2 )) merci

Salut, je trouve pas la commande Visual Lisp qui me permet de réaliser des hachures mais en choisissant un poin et non pas les objets!! merci

Merci à tous, comme d'habitude, pour votre rapidité et vos compétences. En ce qui concerne ma photo, vous allez avoir peur, alors mieux veut ne pas la diffusée. :D Comment on fais pour en mettre une ?? Merci