bonuscad

Denis, ce n'est que mon avis (et celui de gilles) ;) Mais il est certain que dans la base de donnée d' AutoCad TOUS les angles sont en radians et dans le sens trigonométrique. Donc pour faire des comparaisons, autant les faire dans ce système sans faire de conversion. En effet faire des conversion a l'aide (angtos) ne peux amener qu'a une imprécision même en mettant AUPREC au maxi. Additionner des erreurs minimes feront au bout du compte une grosse erreur, mais là je ne t'apprend rien. Donc garde le plus possible les valeurs que tu as obtenues de la base d'autocad pour avoir les calculs les plus précis possible. L'emploi d'un fuzz avec (equal) sera cependant nécessaire pour les comparaisons surtout si tu utilises des (trans).

Un truc que j'avais fait à une époque (je croyais l'avoir posté, mais pas retrouvé) (defun extract_folder (lst_fold / l_dir l) (setq l_dir '()) (foreach n lst_fold (setq l (vl-directory-files n nil -1)) (if (eq (car l) ".") (setq l (cddr l)) ) (cond (l (setq l_dir (append (mapcar '(lambda (x) (strcat n x "/") ) l ) l_dir ) ) ) ) ) l_dir ) (defun c:where_file ( / disk_unit folder_name file2find folder_list) (setq disk_unit (getstring T "\nUnité de disque? : ") folder_name (strcat disk_unit (vl-string-translate "\\" "/" (getstring T "\nDémarrer du dossier? : "))) file2find (getstring "\nFichier à trouver? : ") folder_list (list folder_name) ) (textscr) (if (vl-directory-files folder_name file2find 1) (princ (strcat "\nFichier " file2find " trouvé dans le dossier " (strcase (vl-string-translate "/" "\\" folder_name)))) ) (while (setq folder_list (extract_folder folder_list)) (foreach n folder_list (if (vl-directory-files n file2find 1) (princ (strcat "\nFichier " file2find " trouvé dans le dossier " (strcase (vl-string-translate "/" "\\" n)))) ) ) ) (prin1) )

Utilisateur depuis la version 9 Mes version préférée ont été la version 12 sous DOS (que j'ai beaucoup regretté lors du passage à la 14 sous windows ou je trouvais qu'on avait perdu au niveau rapidité) La 2002 est une version que j'aime beaucoup (je l'utilise encore principalement) car elle tourne aussi bien sur des vieux OS (98 jusqu'a XP) et plus de dongle sur le port. Les versions suivantes, pour moi ne m'apportent pas grand chose, la majorité de ma production étant du 2D parfois du 3Dfilaire et rarement du solide 3D. Pour l'instant j'apprécie aussi la 2005 sur les machines actuelles, mais sans plus. Donc je trouve la 2002 encore d'actualité, mais il va bien falloir l'abandonner un jours; qui risque d'être bientôt.

Pour récupérer les nom des images attachés au dessin, essayes ceci: Copie-colles directement ce qui suit en ligne de commande ((lambda ( / js n) (setq js (ssget "_X" '((0 . "IMAGE")))) (cond (js (setq n -1) (repeat (sslength js) (print (cdr (assoc 1 (entget (cdr (assoc 340 (entget (ssname js (setq n (1+ n)))))))))) ) ) (T (princ "\nAucune image attachée au dessin!")) ) (prin1) ))

C'est bien ce qui me semblait, cela devient n'importe quoi! Donc si mon voisin fait son barbecue ou brule les végétaux de son jardin, j'lui fout un coup boule à Zizou et on discute après. ;)

Pas facile le diesel hein, il faut dire que c'est pas très souple, Bon pour éviter que la date et le login se cumule, il vaut mieux mettre ceci dans un bouton: Tout d'une traite sans retour chariot, ou d'espaces (alors attention lors du copier-coller depuis le forum) ^C^C_FILEDIA;0;_.SAVEAS;2000;$M=$(if,$(eq,$(getvar,SAVENAME),),$(substr,$(getvar,DWGNAME),1,$(-,$(strlen,$(getvar,DWGNAME)),4))-$(edtime,$(getvar,DATE),DD"-"MO)-$(getvar,LOGINNAME).dwg);FILEDIA;1;^Z Dommage, mais je ne peux faire mieux avec le IF (la seconde expression du if ne peut être qu'une commande et non une expression diesel, car celle ci n'est pas évalué) :( Limité le diesel ! :mad: NB: J'oubliais, tu peux concatener la variable "DWGPREFIX" pour avoir le nom du dossier du dessin, voir (strcat ) dans l'aide diesel. [Edité le 26/1/2007 par bonuscad]

Je pense que le problème de cumulation, pourrait être résolu en diesel par le un test de la variable SAVENAME. Mais si la solution ne t'interresse pas (pas réponse à mon post), je ne vais pas chercher. :casstet:

Identique à Tramber, c'est une routine que j'ai proposée récemment, qui permet de lancer la commande MTEXT en reprenant le 1er style forcé (si celui-ci en contient) d'un MTEXT sélectionné. (defun c:match_mtext ( / e_text ins_pt v_text) (while (not (setq e_text (nentsel "\nSélectionner un Texte-Multiligne: ")))) (setq e_text (entget (car e_text))) (cond ((eq (cdr (assoc 0 e_text)) "MTEXT") (initget 9) (setq ins_pt (getpoint "\nPoint d'insertion du Texte-Multiligne?: ")) (setq e_text (subst (cons 10 ins_pt) (assoc 10 e_text) e_text) v_text (cdr (assoc 1 e_text)) ) (if (setq pos (vl-string-search ";" v_text)) (setq v_text (strcat (substr v_text 1 pos) "; }")) (setq v_text "") ) (setq e_text (subst (cons 1 v_text) (assoc 1 e_text) e_text)) (foreach n e_text (if (eq (car n) 3) (setq e_text (vl-remove n e_text)) ) ) (entmake e_text) (command "_.mtedit" (entlast)) ) (T (princ "\nCe n'est pas un Texte-Multiligne!") ) ) (prin1) )

En DIESEL voici un bouton que tu pourrais faire: ^C^C_FILEDIA;0;_.SAVEAS;2000;$M=$(substr,$(getvar,DWGNAME),1,$(-,$(strlen,$(getvar,DWGNAME)),4))-$(edtime,$(getvar,DATE),DD"-"MO)-$(getvar,LOGINNAME).dwg;FILEDIA;1;^Z Inconvénient, si tu l'utilises plusieurs fois, il va cumuler la date et le LoginName (le nom de l'utilisateur de la machine), ou alors il faut sophistiquer le code, mais en diesel cela devient complexe...

J'affecte pt1 à pt2 pour rentrer dans la boucle while En effet il faut que le point pt2 soit différent de pt1 pour sortir de la boucle, cela évite un rappel de distance nulle. Ici je me suis contenter de dessiner la boundingbox en virtuel pour visualiser l'emplacement futur. Mais tu peux très bien faire un entmod de ton ton entité texte mise à jour en dynamique à la place des (grdraw) NB: ne pas oublier que les points de la boundingbox sont dans le SCO de l'entité texte. Y a plus qu'a ....

Est ce que ceci pourra t'aider? Si j'ai bien compris c'est de déterminer ta justification par rapport au départ de ta ligne de rappel. C'est une ébauche (pour voir) je te laisse affiner si c'est ça qui t'interresse ((lambda ( / ) (setq str_txt (getstring T "\nEntrez un texte: ")) (setq pt1 (getpoint "\nPoint de départ du rappel: ") pt2 pt1) (command "_.text" pt1 pause "0.0" str_txt) (setq lst_pt (textbox (entget (entlast)))) (setq dx (- (caadr lst_pt) (caar lst_pt))) (setq dy (- (cadadr lst_pt) (cadar lst_pt))) (while (equal pt2 pt1) (setq pt2 ((lambda ( / key pt p1 p2 p3 p4 alpha) (princ "\nPosition de l'annotation: ") (while (and (setq key (grread T 4 0)) (/= (car key) 3)) (cond ((eq (car key) 5) (redraw) (setq pt (cadr key)) (setq alpha (angle pt1 pt)) (cond ((and (>= alpha 0.0) (< alpha (/ pi 2))) (setq p1 pt p2 (list (+ (car pt) dx) (cadr pt)) p3 (list (+ (car pt) dx) (+ (cadr pt) dy)) p4 (list (car pt) (+ (cadr pt) dy)) pt_w p1 ) ) ((and (>= alpha (/ pi 2)) (< alpha pi)) (setq p1 pt p2 (list (car pt) (+ (cadr pt) dy)) p3 (list (- (car pt) dx) (+ (cadr pt) dy)) p4 (list (- (car pt) dx) (cadr pt)) pt_w p4 ) ) ((and (>= alpha pi) (< alpha (/ (* 3 pi) 2))) (setq p1 pt p2 (list (- (car pt) dx) (cadr pt)) p3 (list (- (car pt) dx) (- (cadr pt) dy)) p4 (list (car pt) (- (cadr pt) dy)) pt_w p3 ) ) (T (setq p1 pt p2 (list (car pt) (- (cadr pt) dy)) p3 (list (+ (car pt) dx) (- (cadr pt) dy)) p4 (list (+ (car pt) dx) (cadr pt)) pt_w p2 ) ) ) (grdraw pt1 p1 1) (grdraw p1 p2 7) (grdraw p2 p3 7) (grdraw p3 p4 7) (grdraw p4 p1 7) ) ) ) (redraw) (cadr key) )) ) (if (equal pt2 pt1) (princ "\nLa position est confondue avec l'extrèmité!") ) ) (princ) ))

Je m'étais essayé a cet exercice Mais en vlax ça condense, bravo Une erreur cependant dans ton code (setq vla-fenetre (vlax-ename->vla-object fenetre)) devrait être (setq vla-fenetre (vlax-ename->vla-object sel)) Autocad n'accepte pas la rotation des fenêtres, sauf avec les grips ou le comportement ressemble plus à un déplacé circulaire qu'une rotation. Essayé de supprimer déja (vlax-put-property vla-fenetre 'TwistAngle (+ Twist-Angle (/ pi -2))) et voir ce que tu peux faire par la suite.

Il est déjà courageux de ta part de raconter ça en public, beaucoup n'oserais pas. Que dire.... Personne n'a eu le temps de faire un cliché? vu que l'évènement à durer un bon moment. En 78 j'étais aussi dans la Drôme pas très loin d'Allan (Dieulefit), mais je n'ai jamais eu de faits relatés. Vous avez fait une déclaration en gendarmerie ou gardé cela pour vous? Allan est quand même en plaine du Rhône, cela a pu être observé aussi aux alentours proches! C'est sur que c'est un moment qu'on est pas près d'oublier quand on le vit! Ca a dut causer dans les chaumières ;)

Si tu as travaillé avec des solides pourquoi ne pas faire une intersection boléene de tes 2 solides pour obtenir ton cylindre courbé?

Regarde cette discussion (vers la fin)

Pour avoir pratiqué les deux solutions, j'ai obtenue une meilleure config par une installation manuelle. (plus ardue a mettre en oeuvre mais le résultat en vaut la peine) Pour ma part j'ai monté un reseau local, avec un HUB de récup, et connexion partagée. Bon c'est vrai qu'au niveau des fils ça fait un peu cretin.fr :P mais ça fonctionne nickel Pour d'éventuel mouchard, certain s'en sont plein auprès de certain FAI, pour ma part rien à signaler dans un cas comme dans l'autre....

Azerty, Je viens de prendre le temps d'essayer tes motifs, ben no problem J'ai fais un copier-coller de tes lignes, j'ai bien veillé à avoir un retour-chariot à la fin et j'ai enregister dans un chemin de recherche sous leur noms respectifs à savoir 110.pat et 303.pat En effet pour avoir des fichiers de motifs individuels (non rajouté à AutoCAD.pat ou acadiso.bat) il faut IMPERATIVEMENT que le nom du fichier soit le même que celui du motif. Je conseille plutôt cette manière de faire que de gonfler le ACADISO.PAT. NB: le model 303 à l'air d'être un model imperial (pouce: échelle 25)

C'est vrai que les définitions des PAT sont capricieux, même les originaux d'Autodesk sous certaines versions. Par expérience, je pense pouvoir dire qu'il traine des caractères qui ne sont pas reconnu par l'interpréteur d'AutoCAd et qui ne sont pas forcément visible dans le bloc-note. Alors soit utiliser un éditeur capable d'afficher ces caractères spéciaux, soit retaper entièrement la définition dans le bloc-note sans faire de copier-coller. (he oui une tabulation par exemple peut passer pour espace dans le bloc-note, mais entainera une erreur de motif; même dans la remarque de définition de la hachure) Veillez aussi à bien vous assurer que la dernière ligne de votre définition se termine par un retour-chariot.

Dans les grands formats, j'ai parfois ce problème lorsque je change l'orientation de portrait à paysage ou vice-versa sur un HP. Ton canon n'aurait une configuration par défaut en ajustement sur la page, ou une fonction zoom automatique. Comme toi je pense que c'est juste un problème de config, d'options par défaut....

Voici depuis aujourd'hui, le message qui s'affiche lors d'une connexion à Cadxp Comme il parait qu'il faut en parler à l'administrateur du site, c'est ce que je fais! http://img147.imageshack.us/img147/9679/paypal8tp.gif

Intéressant Gilles, Je vais peut être développer la chose, il n'est pas impossible qu'elle me soit utile. C'était une chose que je n'avais pas réussi à faire en lisp. ActiveX simplifie la tâche. Je pense à un petit outil de clonage d"épaisseur de ligne par pointage, serait sympa car "MachtProp" ne récupère pas celle du calque.

Et tu as du te transformer en statue de sel, car sur des disques très fragmenté sur win98 cela peut durer de 3 à 4 heures. Il y a de quoi être hypnotisé :P Sur ces vieux OS j'utilise DisKeeper Lite, ça divise facilement le temps par 4. D'ailleurs Bill Gates à repompé (comme d'hab) ce moteur de défragmentation de diskeeper pour en équiper XP car la ressemblance est vraiment frappante, sur le visuel et le temps d' éxecution. Mais bon c'est bien dans les habitudes de Bill,.... pour bâtir son Soft... et son empire. Au sujet des écrans bleus, ceux XP m'ont foutu l'angoisse. J'en ai eu 2 que j'ai eu du mal à identifier, le permier dû à un jeux équipé de la protection StarForce. L'UC devait monter en température car le ventilo se mettait à vombrir en montant en régime en peu de temps, juste le temps de rester appuyé assez longtemps sur le bouton on-off avant qu'il décolle. La soluce: fallait mettre le driver de protection à jour. Ceci sans aucune info de l'éditeur que ce soit en HotLine ou courriel. (une boite très connue) Merci pour les consommateurs. Le deuxième est plus de ma faute, je me suis planté sur la mise à jour d'un pilote de webcam LogiTech en USB. Bien que XP m'ai avorté l'install en disant que le pilote n'était pas pour cette machine, les écrans bleus ont commencés avec les mêmes emballements de la machine. Pas moyen avec un point de restauration. J'ai du refaire une installation usine complète de XP pro (loufoque avec un montage en RAID) pour retrouver un XP Stable. Je crois (à travers diffèrentes lecture) que les ports USB gardent une mémoire des appareils branchés et des pilotes utilisés. (j'avais bien vu un probléme dans l'outil d'événement système de XP concernant un drivers Logitech, mais pas trouvé d'info pour le résoudre) Si c'est vrai bonjour les virus pour USB ou de Flash sur le port USB, ça nous promet de beaux écrans bleu. (remarque j'avais de beau écrans bleu aussi avec Win98 ou WinMe avec des accessoires USB) Je raconte peut être des c...s, je ne suis pas electronicien et j'ai lu que peu d'infos sur ce sujet. Ah Electronique t'as pas fini avec de nous prendre la tête.... Pour être positif, je dirais quand même que XP est stable la plupart du temps. Mais une réinstall d'usine reste encore d'actualité pour retrouver une 1ère jeunesse. [Edité le 20/1/2007 par bonuscad]

Ou sans avoir testé faire un champ en diesel, si tu veux avoir le chemin et le nom du fichier. tu devrais obtenir un champ comme ceci: %<\AcDiesel $(getvar, dwgprefix) $(getvar, dwgname)>%

Il peut y avoir plein de raisons, sans savoir ce que contiennent tes fichiers, les réponses peuvent êtres multiple. Si c'est un dessin essentiellement avec des objets Autocad, les hachures (Aplat y comprit) peuvent être pénalisant lorsqu'ils sont en très grands nombres. Autrement si ton fichier contient des objet OLE ou des images ceci peut influencer aussi le temps de traçage. Des Xrefs aussi peuvent ralentir bien qu'il ne fassent pas énormément grandir la taille du dessin. Et après faut avoir plus d'infos pour une réponse plus précise :casstet:

Un voilà un qui fait un bloc qui s'incrémente , en plaçant l'attribut dans un calque inactif et verrouillé. En mixant avec la proposition de Didier tu vas pouvoir avancer. ;) (defun c:borne (/ pto x y z) (cond ((eq (getvar "cvport") 1) (princ "\n** Commande autorisée uniquement dans l'espace objet." ) ) (T (if (not (tblsearch "LAYER" "borne_attributs")) (entmake '((0 . "LAYER") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "borne_attributs") (70 . 4) (62 . -3) (6 . "Continuous") (290 . 1) (370 . -3) ) ) ) (if (not (tblsearch "LAYER" "borne")) (entmake '((0 . "LAYER") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "borne") (70 . 4) (62 . 4) (6 . "Continuous") (290 . 1) (370 . -3) ) ) ) (if (not (tblsearch "STYLE" "$borne")) (entmake '((0 . "STYLE") (5 . "40") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "$borne") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "monotxt.shx") (4 . "") ) ) ) (setvar "textstyle" "$borne") (if (not (tblsearch "BLOCK" "$borne")) (progn (entmake '((0 . "BLOCK") (2 . "$borne") (70 . 2) (10 0.0 0.0 0.0)) ) (entmake '((0 . "ATTDEF") (67 . 0) (8 . "borne_attributs") (62 . 1) (10 1.0 0.0 0.0) (40 . 1.0) (1 . "0") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (210 0.0 0.0 1.0) (3 . "Numéro de la borne: ") (2 . "NO") (70 . 0) ) ) (entmake '((0 . "ATTDEF") (67 . 0) (8 . "borne_attributs") (10 1.0 -1.66667 0.0) (40 . 1.0) (1 . "X=0.0") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (210 0.0 0.0 1.0) (3 . "Entrer le X du point: ") (2 . "ID-X") (70 . 0) ) ) (entmake '((0 . "ATTDEF") (67 . 0) (8 . "borne_attributs") (10 1.0 -3.33333 0.0) (40 . 1.0) (1 . "Y=0.0") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (210 0.0 0.0 1.0) (3 . "Entrer le Y du point: ") (2 . "ID-Y") (70 . 0) ) ) (entmake '((0 . "ATTDEF") (67 . 0) (8 . "borne_attributs") (10 1.0 -5.0 0.0) (40 . 1.0) (1 . "Z=0.0") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (210 0.0 0.0 1.0) (3 . "Entrer le Z du point: ") (2 . "ID-Z") (70 . 0) ) ) (entmake '((0 . "CIRCLE") (67 . 0) (8 . "borne") (10 0.0 0.0 0.0) (40 . 0.25) (210 0.0 0.0 1.0) ) ) (entmake '((0 . "CIRCLE") (67 . 0) (8 . "borne") (10 0.0 0.0 0.0) (40 . 0.40) (210 0.0 0.0 1.0) ) ) (entmake '((0 . "ENDBLK"))) ) ) (if (not nob) (setq nob 1) ) (initget 8) (while (setq pto (getpoint "\nPoint de la borne: ")) (initget 6) (setq nb (getint (strcat "\nNo de la borne<" (itoa nob) ">: "))) (if (not nb) (setq nb nob) ) (setq pto (trans pto 1 0) x (car pto) y (cadr pto) z (caddr pto) ) (entmake (append '((0 . "INSERT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "borne") (100 . "AcDbBlockReference") (66 . 1) (2 . "$borne") (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0) ) (list (cons 10 pto)) ) ) (entmake (append '((0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "borne_attributs") (62 . 1) (100 . "AcDbText") (40 . 1.0) (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "NO") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 1 (strcat "Borne N°:" (itoa nb)))) (list (cons 10 (list (+ (car pto) 1.0) (cadr pto)))) ) ) (entmake (append '((0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "borne_attributs") (100 . "AcDbText") (40 . 1.0) (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "ID-X") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 1 (strcat "X=" (rtos x 2 4)))) (list (cons 10 (list (+ (car pto) 1.0) (+ (cadr pto) -1.66667))) ) ) ) (entmake (append '((0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "borne_attributs") (100 . "AcDbText") (40 . 1.0) (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "ID-Y") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 1 (strcat "Y=" (rtos y 2 4)))) (list (cons 10 (list (+ (car pto) 1.0) (+ (cadr pto) -3.33333))) ) ) ) (entmake (append '((0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "borne_attributs") (100 . "AcDbText") (40 . 1.0) (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$borne") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "ID-Z") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 1 (strcat "Z=" (rtos z 2 4)))) (list (cons 10 (list (+ (car pto) 1.0) (+ (cadr pto) -5.0))) ) ) ) (entmake '((0 . "SEQEND"))) (setq nob (1+ nob)) (initget 8) ) ) ) (princ) )