mdsv31

Attention, si tu deplace des programmes tiers (qui ne sont pas de toi) il y a de forte chance qu'a l'installation, il a marqué son emplacment dans la base de registres. Donc si tu deplace le programme il ne marche plus. @+ MDSV31 Youpy je suis cinture bleu [Edité le 30/4/2005 par mdsv31]

Voici une methode gratuite pour creer et restaurer des images disque http://www.framasoft.org/article3552.html Pour faire une sauvegarde de fichier, j'utilise AXLSAUVE, un programme gratuit qui sauvegarde les repertoire selectionner sur CDR (si INCD installer) ou sur disque externe ou reseau losque que j'eteint l'ordinateur http://www.axlinfo.com/ Il existe aussi ULTRABACKUP qui permet de programmer des heures de sauvegarde @+ MDSV31 [Edité le 29/4/2005 par mdsv31]

Un autre avantage des Xref c'est que lorsque tu travail sur un plan avec une Xref, et qu'un collegue fait une modif sur ce fichier (ton Xref) autocad te le signal aussitot qu'il a sauvegarder le fichier. Donc tu travail toujours avec une Xref a jour @+ MDSV31

JFTxJ pour ta culture général, il y a d'autre logiciel de DAO a part AUTOCAD. Microstation de Bentley est un concurant direct d'Autocad. :cool: TiTi94 Des que je rentre de déplacement je regarde dans mon fatra, j'ai lu un truc sur les menus. Parcontre, je voudrais savoir sur quelle version de microstation du travail ? @+ MDSV31

Vous etes dure avec notre ami d'outre manche le site: http://www.yagoohoogle.com Pako fait pas attention a eux. ;) @+ MDSV31

Comme quoi cela est tres subjectif Je dis qu'il y a encore du travail pour la voyance ;) @+ MDSV31 [Edité le 24/4/2005 par mdsv31]

Les seuls soucis que j'ai eu la semaine derniere c'etait du a mon navigateur qui bloquer les pop-up et mon parfeu a qui j'ai regler son compte. Apres ses quelque soucis (10mn environs) tout c'est bien passe, a part des ralentissements du au traffic engendre ( je pense) Par contre je ne serai pas la ce vendredi bien dommage @+ MDSV31

Tu peut aller voir le poste suivant: [surligneur] http://www.cadxp.com/sujetXForum-4152.htm [/surligneur] J'ai deja possé une question du meme type @+ MDSV31 Ps: il y a un exemple en VBA et en LISP

MERCI DIDIER Et puis ENCORE MERCI Je t'ai remercier DIDIER Dans le doute encore MERCI DIDIER ;) @+ MDSV31

Voila j'ai un probleme de USERFORM. Dans une USERFORM j'ai des boutons et des textboxs, un de ses boutons me permet de prendre une distance dans le dessin courant. J'utilise le programme suivant, le probleme c'est qu'il ne marche pas dans USERFORM, ni dans un module, mais si je l'utilise dans un programme sans USERFORM, cela fonctionne, je ne comprend pas. Voici le code en question Private Sub CommandButton5_Click() Set pt01 = ThisDrawing.Utility.GetPoint(, "Enter a point: ") Set pt02 = ThisDrawing.Utility.GetPoint(pt01, "Enter a point: ") dist1 = Sqr(((pt02(0) - pt01(0)) * (pt02(0) - pt01(0))) + ((pt02(1) - pt01(1)) * (pt02(1) - pt01(1)))) TextBox2 = dist1 End Sub Help qui peut me dire ou est le probleme PLEASE Un CadXPien perdu dans les meandres du VBA @+ MDSV31

Merci Rebcao Desole pour le retard de reponse @+ MDSv31

Je me suis crée des menus cliches @+ MDSV31 [Edité le 8/4/2005 par mdsv31]

Et encore tu as de la chance Patrick tu as 14 chaines pour trouver quelque chose a voir, moi dans l'indre avec mes 5 chaines j'en est deja 3 de prise par le pape une par un opera, me voila bien. Sur ce bonne nuit @+ MDSV31

Tu peut utiliser la docbar Tu ouvre tout les fichiers du repertoire et ensuite tu fait un clic droit sur un onglet de la docbar et tu selectionne save and close all Docbar sauvegarde les fichiers en fesant un zoom etendue juste avant @+ MDSV31

Je suis dans la region centre, a cote de CHATEAUROUX. @+ MDSV31

Quand tu veut ou tu veut pour une bouffe ensemble. :) @+ MDSV31

Bonsoir, Voila mon probleme, j'ai des blocs avec attributs de reprere d'aciers, (Attribut visible: Rep Attribut invisible: Nombre, Diametre, Espace,.....) et je voudrais (si c'est possible) lire les attibuts de ces blocs pour creer de nouvaux blocs que place en tableaux pour creer ma nomenclature. Si quelqu'un peut me mettre sur la voie? @+ MDSV31

Il faudrais, d'urgence, deux infirmiéres pour une lupossution des chevilles de DIDIER :thumbup: :) ;) @+ MDSV31

Ca y est j'ai retrouver le lien du site: http://perso.wanadoo.fr/didier.duhem/ @+ MDSV31 :thumbup:

Voici un petit lisp de [surligneur] DIDIER DUHEM [/surligneur] ;;---Début---------------------------------------------------dd_ext-------------- ;; << extrait une information DXF d'une entité >> ;; << >> ;; ;; créée le : mardi 16 février 1999 à 21:12 ;; ;; Admet : ;; ======= ;; cle : Entier = code DXF ;; e : Nom d'entité = entité ou liste tirée de entget ;; ;; Retourne : varie = résultat ;; ========== ;------------------------------------------------------------------------------- (Defun dd_ext ( cle e / ) (if (= 'ENAME (type e)) (setq e (entget e))) (cdr (assoc cle e)) ) ;;---fin-----------------------------------------------------dd_ext-------------- ;;---Début---------------------------------------------------dd_snoc------------- ;; << ajoute un élément à la fin d'une liste >> ;; << >> ;; ;; créée le : mardi 16 février 1999 à 21:05 ;; ;; Admet : ;; ======= ;; elem : element = élément ;; li : Liste = liste ;; ;; Retourne : Sans intéret = liste complétée ;; ========== ;------------------------------------------------------------------------------- (Defun dd_snoc ( elem li / ) (append li (list elem)) ) ;;---fin-----------------------------------------------------dd_snoc------------- ;;---Début---------------------------------------------------dd_analpol---------- ;; << analyse une polyligne >> ;; << >> ;; ;; créée le : mardi 16 février 1999 à 21:06 ;; ;; Admet : ;; ======= ;; pol : Nom d'entité = nom de la polyligne ;; ;; Retourne : Liste points courbure = ((point courbure) (point courbure)....) ;; ========== ;------------------------------------------------------------------------------- (Defun dd_analpol ( pol / e ent ll alti) (setq ll '() e pol) (cond ((= "POLYLINE" (dd_ext 0 pol)) (while (/= "SEQEND" (dd_ext 0 (setq ent (entget (setq e (entnext e)))))) (setq ll (cons (list (trans (dd_ext 10 ent) pol 1) (dd_ext 42 ent)) ll)) ) ) ((= "LWPOLYLINE" (dd_ext 0 pol)) (setq ent (entget pol) ptcrb nil alti 0.0) (while ent (if (= 38 (caar ent)) (setq alti (cdar ent)) ) (if (= 10 (caar ent)) (setq ptcrb (trans (snoc alti (dd_xy (cdar ent))) pol 1))) (if (= 42 (caar ent)) (setq ll (cons (list ptcrb (cdar ent)) ll))) (setq ent (cdr ent)) ) ) ) (if (= 1 (logand (dd_ext 70 pol) 1)) (dd_snoc (last ll) (reverse ll)) (setq ll (reverse ll) ll (dd_snoc (list (car (last ll)) 0.0) (reverse (cdr (reverse ll)))) ) ) ) ;;---fin-----------------------------------------------------dd_analpol---------- ;;---Début---------------------------------------------------dd_reversepol------- ;; << inverse une liste de points courbure >> ;; << >> ;; ;; créée le : mardi 16 février 1999 à 21:15 ;; ;; Admet : ;; ======= ;; lpc : Liste points courbure = ou polyligne ;; ;; Retourne : Liste points courbure = inversée ;; ========== ;------------------------------------------------------------------------------- (Defun dd_reversepol ( lpc / ) (if (= 'ENAME (type lpc)) (setq lpc (dd_analpol lpc))) (mapcar '(lambda (x1 x2) (list (car x1) (* (cadr x2) -1)) ) (reverse lpc) (dd_snoc (last lpc) (cdr (reverse lpc))) ) ) ;;---fin-----------------------------------------------------dd_reversepol------- ;;---Début---------------------------------------------------dd_tracepol--------- ;; << trace une polyligne à partir d'une liste points courbure >> ;; << >> ;; ;; créée le : mardi 16 février 1999 à 21:26 ;; ;; Admet : ;; ======= ;; lpc : Liste points courbure = ;; ;; Retourne : Sans intérêt = ;; ========== ;------------------------------------------------------------------------------- (Defun dd_tracepol ( lpc / lp) (setq lp (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline") (cons 90 (length lpc)) (cons 70 0) (cons 43 0) (cons 38 0.0) (cons 39 0.0) ) ) (foreach vert lpc (setq lp (append lp (list (cons 10 (car vert)) (cons 42 (cadr vert)) ) ) ) ) (setq lp (append lp (list (cons 210 (list 0.0 0.0 1.0))))) (entmake lp) ) ;;---fin-----------------------------------------------------dd_tracepol--------- ;;---Début---------------------------------------------------C:Retournepol------- ;; << inverse une polyligne >> ;; << >> ;; ;; créée le : mardi 16 février 1999 à 21:22 ;; ;; Admet : ;; ======= ;; ;; Retourne : Liste points courbure = ;; ========== ;------------------------------------------------------------------------------- (Defun C:Retournepol ( / e lp) (setq e (car (entsel "\npointer une polyligne"))) (if (and e (member (dd_ext 0 e) '("POLYLINE" "LWPOLYLINE"))) (progn (setq lp (dd_reversepol e)) (entdel e) (dd_tracepol lp) ) ) ) ;;---fin-----------------------------------------------------C:Retournepol------- (alert "Commande RETOURNEPOL Chargée") Pour une fois que j'ai un lisp qui peut arranger quelqu'un ;) @+ MDSV31

Merci encore Bonuscad et Didier De votre temps precieux temps @+ MDSV31

Bravo cela marche nickel Mais c'est bien ce que je penser, il faut que je trouve de la documentation lisp car je ne comprend pas le code. Je vais me pencher un peu plus dans le lisp quand j'aurai finis avec les api OpenOffice.org Merci @+ MDSV

Je comprend mieux le VBA, mais je suis aussi prenneur en LISP @+ MDSV31

Bonjour, Je voudrais creer un programme VBA qui me permettrai de pouvoir diviser une polyligne en X morceau exemple : je selectionne une polyligne ensuite je dit a autocad que je veut la couper en 5 Ensuite autocad me remplace la polyligne existant par 5 petites polyligne En esperant avoir ete claire @+ MDSv31

Et oui Autocad sous Linux est une réalitée, pour le moment c'est autocad 14 qui fonctionne sous Linux http://images.mandrakesoft.com/img/screenshots/mdk100-scr2.jpg Mais c'est un bon debut. @+ MDSV31