bonuscad

Non, aucunement, tout ce qu'il y a de plus basique. Je me suis appuyer par endroit à des points que j'ai défini par Absc et Alt, mais ce n'est pas forcément ceux-ci qui me posent problème. Un truc que j'ai remarqué, mon profil en long est fait depuis un SCU, si la commande "Assemblage P. Long projet" fonctionne bien, par contre la commande "Construction ligne rouge" (sil elle n'est pas faite depuis le SCG) me fait disparaitre l'ensemble de mon PL. Faut-il éviter de faire un PL depuis un SCU particulier?

Bonjour, Il y a cette discussion si cela peut te rendre service.Ne traite que du filaire. Autrement la commande FLATTEN avec les ExpressTools d'installé.

Salut, Ce sujet , déjà un peu ancien...

Salut, On peut passer par une autre fonte Par exemple déclarer le style avant de charger le LIN En faisant le copier-coller de ce qui suit en ligne de commande, cela créera le style (if (not (tblsearch "STYLE" "FLECHE-PLEINE")) (entmake '( (0 . "STYLE") (5 . "40") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "FLECHE-PLEINE") (70 . 0) (40 . 0.0) (41 . 0.75) (50 . 0.0) (71 . 0) (42 . 150.0) (3 . "wingding3.ttf") (4 . "") ) ) ) Et le contenu du fichier fleche-pleine.LIN suivant ne devrait pas poser de problème. *fleche,fleche-pleine |> |> |> |> |> A,0,["u",fleche-pleine,S=1,R=0.0,X=0,Y=-0.5],-1 Après vous pouvez adapter les différent paramètres.

Bonjour, Sous Covadis, j'ai construit un profil en long constitué essentiellement d'une cubique. Lorsque j'édite cette cubique, j'arrive sur certains points à les supprimer avec "l'Accroche Objet" mis à "Centre" est ensuite à replacer mon point où je désire. Sur d'autres points, j'ai beau m'acharner la suppression ne fonctionne pas! :mad: Suis-je passé à coté de quelque chose...???

Salut, Bien que tu puisse faire un lisp, ton souhait serait aussi bien fait dans une macro de bouton. (compatible LT) Pour le lisp utilise la syntaxe pause dans la ligne (command) lorsque que tu as besoin d'une entrée utilisateur. Tu peux aussi forcer l'accroche objet en plaçant le mode souhaité "_end" "_near' "_cen" "_mid".... avant la pause. Ne sort pas tes arguments de la paranthèse (command) comme tu l'as fait dans ton code pour "114,3"

Salut, De ce que j'ai pus vaguement me rendre compte, ce fichier a subit des contrôles et généré pas mal d'enregistrement style *AUDIT-BAD......* qui se purge très mal (la commande CONTROLE me plante AutoCad lors de la 2ème passe) Y a bien une méthode pour une purge RADICALE Par exemple dans ton dessin tu copie-colle ce qui suit. (command "_.dxfout" (strcat "purge-" (getvar "DWGNAME") ".dxf") "_version" "_r12" "_preview" "_no" "_object" "_all" "" "16") Après il te suffit d'insérer dans un nouveau dessin avec "_DXFIN" le fichier généré et de le sauvegarder au format courant, NB:Si tu veux réduire encore la taille du fichier final, tu peux avant _DXFIN avec FILEDIA à 0 exécuter (command "_new" ".") Avec ceci difficile de faire plus léger, mais tu ne garde que l'essentiel de l'espace objet (fichier final de 68ko) PS: Si tu as un dossier entier à traiter je pense que ceci serait scriptable [Edité le 20/4/2010 par bonuscad]

Salut (gile), Cela reste excellent! J'ai bien essayé, mais tu es le plus rapide, je me doutais bien que l'usage de param était indispensable pour avoir une approche simple d'une solution. Testé sur des SCU non parallèles, c'est parfait Bravo

Bonjour, Je n'ai pas de version 2011 à disposition pour pouvoir corriger. Mais pourrais tu coller directement ce qui suit en ligne de commande (le faire dans un nouveau dessin vierge) (command "._style" "$spec-lsp" "simplex" "0.0" "1.0" "0.0" "_No" "_No" "_No") Tu postes le retour de ce qui apparait en fenêtre de texte. (F2) Peut être que la commande STYLE à des paramètres supplémentaires (ou en moins) par rapport aux versions précédentes. (gile) a aussi écrit une routine d'importation de fichier de points, tu peut essayer de l'utiliser en attendant (ou définitivement) ;)

Salut, Eric avait bien détaillé le prolème ICI

Re, Peut être une piste... Par curiosité, j'ai changé le style visuel après avoir ouvert ton dessin, et , effectivement dans ce mode le curseur devient beaucoup moins fluide (à tendance à se figer lors du passage sur les objets). Si je repasse en mode filaire 2D, tout redevient fluide. Ce ne serais pas ton problème?

Je te comprends :( Il est vrai que les FAI se livrent à de drôles de manœuvres. Pour mon cas personnel, depuis que le Neuf s'est fait bouffé par SFR et bien je n'arrive même plus a accéder à la page Ifrance pour consulter mon webmail gratuit, alors que du boulot (le FAI qui est Orange je crois !) tout passe très bien :mad: Mon navigateur me dit que l'adresse est rediriger et que la demande ne pourra aboutir.?!?! Je pense aussi qu'ils Blaklistent facilement d'autres fournisseurs en se réfugiant derrière le combat qu'ils mènent contre le Spam. Nous les consommateurs ont est juste bon à payer l'abonnement. En aparté ma page perso sera bientôt supprimé par SFR, ils ont quand même eu la délicatesse de m'avertir longtemps à l'avance pour que je procède au transfert à une autre adresse (je ne l'ai pas encore fait...)

Bonsoir, Pour rassurer, je vient de télécharger et ouvrir avec 7-Zip , donc ... Un problème de CRC sur ta machine ! (tu décompresse avec l'utilitaire intégré à l'explorateur ?), un Anti-Virus tatillon ! En tout cas le problème à l'air propre à ta machine.

Bonsoir, Pas de problème particulier avec ce dessin !... Par contre la commande CONTROLE décèle des erreurs d'échelle non uniforme sur des insertions de bloc (1 Stop et 3 Sens Interdit) qu'Autocad n'arrive pas à corriger. A part cela le dessin ne pose pas de problème. Si les Z te gênent, tu peux tout aplatir.

Bonjour, Je crois savoir (sans pouvoir vérifier) que sous une LT la commande RTEXT est valide. Tu prends l'option "Diesel" et tu rentre l'expression $(edtime, 0, MON DD"," YYYY) ou sous une autre forme qui te convient, voir l'aide.

Salut, Pas forcément... Il te suffit de définir la variable SNAPANG au préalable puis de la restorer ensuite. Tu auras alors avec la variable ORTHO les 4 quadrants possibles depuis l'angle de SnapAng.

Bonsoir, Le switch est aussi une solution que j'ai choisi à mon domicile. Je me suis équipé de cartes réseaux à 1Go et d'un switch DLink (5 prises RJ45), pour ne pas les citer. Le Swicth et auto négociateur (pas besoin ce câbles croisés) Sur ce réseaux local (complétement indépendant de la box internet) j'ai 2 postes en Xp (dont 1 basculant de temps à autre sur Ubuntu avec samba) plus 1 Dique dur Lacie de 1To (utilisant des frames) J'accède, je copie dans les 2 sens avec un débit tout à fait satisfaisant (je ne fais guère la différence entre les disques propre aux machine avec ceux partagés sur le réseau). Cette solution a été peu onéreuse et a répondu a mes attentes. J'ai fais ce choix lors de l'acquisition du disque externe, car certain se plaignaient du débit avec des LaCie avec des switchs plus anciens (100Mb) En plus les frames du disque externe et le Dlink sont très bien géré sous Linux, je n'ai aucun souci à communiquer sous mon réseau quelque soit l'OS connecté. NB: Avant j'avais un HUB (de récup), les débits étaient nettement moins bon.

Salut, A moitié hors sujet, mais ce dessin mérite une commande "CONTROLE" avec correction des erreurs, une bonne habitude à prendre... Une PURGE serait pas mal non plus! Autrement HPGAPTOL peut effectivement résoudre le problème. Pour moi, je trouve ce fichier mal foutu, mais cela n'engage que moi. Personnellement je redoute quand je dois travailler sur de tel fichier. Bon courage ;)

Bonsoir, Après adaptation de ton lisp à mes étiquettes de bloc, je l'ai testé et ma foi pour moi il fonctionne sans erreurs et plusieurs fois! Cependant une ligne m'intrigue car je vois pas à quoi elle sert... Il n'y a qu'elle en plus qui peut poser problème. En effet (par exemple dans mon cas de test ou mon bloc a d'autre attributs) l'étiquette de l'attribut est affecté comme nom de variable. Si j'avais eu une étiquette nommé "TYPE" à ce moment là j'aurais eu: (set TYPE att_val) vu que tu as un test dans ton code: (if (= (type jtoc) 'SUBR).... à la seconde exécution la fonction réservée TYPE se retrouve redéfinie. C'est une explication plausible, mais je me trompe peut être.

Salut, Tu as aussi ceci

Comment être plus explicite ? Tu tapes SCU au clavier puis, (bien que l'option n'apparaisse pas) ORIGINE , et tu pointe ton point dans ton contour. Tu fais alors ton contour comme tu voulais faire auparavant. Une fois celui-ci réalisé, tu tapes SCU suivi de l'option PRECEDENT pour revenir à ton scu initial Ça te semble compliqué ?!...

Salut, Ce qui suit ? Le code est tiré en grande partie de cette réponse et adapté rapidement... (defun draw_pt (pt col / rap) (setq rap (/ (getvar "viewsize") 50)) (foreach n (mapcar '(lambda (x) (list ((eval (car x)) (car pt) rap) ((eval (cadr x)) (cadr pt) rap) ) ) '((+ +) (+ -) (- +) (- -)) ) (grdraw (trans pt 0 1) (trans n 0 1) col) ) ) (defun make_blk_measure ( / ) (if (not (tblsearch "STYLE" "$BLK_MEAS")) (entmake '((0 . "STYLE") (5 . "40") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "$BLK_MEAS") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 0.1) (3 . "ARIAL.TTF") (4 . "") ) ) ) (if (not (tblsearch "BLOCK" "BLK_MEASURE_CURVE")) (progn (entmake '((0 . "BLOCK") (8 . "0") (2 . "BLK_MEASURE_CURVE") (70 . 2) (4 . "") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (10 0.0 0.0 0.0)) ) (entmake (append '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine")) (list (list 10 0.0 (/ (- (getvar "TEXTSIZE")) 10.0) 0.0)) (list (list 11 0.0 (/ (getvar "TEXTSIZE") 10.0) 0.0)) '((210 0.0 0.0 1.0)) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 0.5 0.05 0.0) (40 . 1.0) (1 . "0.0") (50 . 1.570796326794896) (41 . 1.0) (51 . 0.0) (7 . "$BLK_MEAS") (71 . 0) (72 . 0) (11 0.0 0.05 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "measure") (2 . "VALUE_MEASURE") (70 . 0) (73 . 2) (74 . 2) ) ) (entmake '((0 . "ENDBLK") (8 . "0") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2))) ) ) ) (defun z_dir (p1 p2 / ) (trans '(0.0 1.0 0.0) (mapcar '(lambda (k) (/ k (sqrt (apply '+ (mapcar '(lambda (x) (* x x)) (mapcar '- p2 p1) ) ) ) ) ) (mapcar '- p2 p1) ) 0 ) ) (defun c:multi-mesure ( / js nb dxf_obj obj_vlax pt_start pt_end total_dist ori_dist tmp_var sv_luprec sv_dzin ptx ang dxf_210) (princ "\nSélectionner les objets curvilignes à mesurer: ") (while (not (setq js (ssget (list (cons 0 "*POLYLINE,LINE,ARC,CIRCLE,ELLIPSE,SPLINE") (cons 67 (if (eq (getvar "CVPORT") 2) 0 1)) (cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB"))) (cons -4 " (cons -4 "&") (cons 70 112) (cons -4 "NOT>") ) ) ) ) (princ "\nPas d'objets valable ou sélection vide!") ) (setq nb -1) (vl-load-com) (repeat (sslength js) (setq dxf_obj (entget (ssname js (setq nb (1+ nb)))) obj_vlax (vlax-ename->vla-object (ssname js nb)) pt_start (vlax-curve-getStartPoint obj_vlax) pt_end (vlax-curve-getEndPoint obj_vlax) total_dist (vlax-curve-getDistAtParam obj_vlax (vlax-curve-getEndParam obj_vlax)) ) (redraw (cdar dxf_obj) 3) (draw_pt pt_start 3) (setq ori_dist (getreal "\nDémarrer l'origine à la valeur? <0.0>: ")) (if (not ori_dist) (setq ori_dist 0.0)) (initget 6) (setq tmp_var (getdist (strcat "Entrez une nouvelle valeur pour TEXTSIZE <" (rtos (getvar "TEXTSIZE")) ">: "))) (if (not tmp_var) (setq tmp_var (getvar "TEXTSIZE"))) (setvar "TEXTSIZE" tmp_var) (make_blk_measure) (setq sv_luprec (getvar "LUPREC") sv_dzin (getvar "DIMZIN") ) (setvar "CMDECHO" 1) (setvar "DIMZIN" 0) (command "_.luprec" 0) (while (setq ptx (getpoint "\nPoint à mesurer?: ")) (setq ptx (vlax-curve-getClosestPointTo obj_vlax (trans ptx 1 0)) ang (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv obj_vlax (vlax-curve-getParamAtPoint obj_vlax ptx))) dxf_210 (z_dir ptx (polar ptx ang (getvar "TEXTSIZE"))) ) (entmake (list (cons 0 "INSERT") (cons 100 "AcDbEntity") (assoc 67 dxf_obj) (assoc 410 dxf_obj) (cons 8 (getvar "CLAYER")) (cons 100 "AcDbBlockReference") (cons 66 1) (cons 2 "BLK_MEASURE_CURVE") (cons 10 (trans ptx 0 dxf_210)) (cons 41 1.0) (cons 42 1.0) (cons 43 1.0) (cons 50 ang) (cons 210 dxf_210) ) ) (entmake (list (cons 0 "ATTRIB") (cons 100 "AcDbEntity") (assoc 67 dxf_obj) (assoc 410 dxf_obj) (cons 8 (getvar "CLAYER")) (cons 100 "AcDbText") (cons 10 (polar (polar (trans ptx 0 dxf_210) (+ (/ pi 2) ang) (* 0.05 (getvar "TEXTSIZE"))) ang (* 0.5 (getvar "TEXTSIZE")) ) ) (cons 40 (getvar "TEXTSIZE")) (cons 1 (rtos (vlax-curve-getDistAtPoint obj_vlax ptx) 2 2)) (cons 50 (+ (/ pi 2) ang)) (cons 41 1.0) (cons 51 0.0) (cons 7 "$BLK_MEAS") (cons 71 0) (cons 72 0) (cons 11 (polar (trans ptx 0 dxf_210) (+ (/ pi 2) ang) (* 0.05 (getvar "TEXTSIZE")))) (cons 210 dxf_210) (cons 100 "AcDbAttribute") (cons 2 "VALUE_MEASURE") (cons 70 0) (cons 73 2) (cons 74 2) ) ) (entmake (list (cons 0 "SEQEND") (cons 8 (getvar "CLAYER")) (cons 62 0) (cons 6 "ByBlock") (cons 370 -2))) ) (setvar "LUPREC" sv_luprec) (setvar "DIMZIN" sv_dzin) (draw_pt pt_start -1) (redraw (cdar dxf_obj) 4) ) (redraw) (prin1) )

Salut, Du moment qu'il est concordant avec la variable XLOADPATH (stocké dans registre), cela ne devrait pas poser problème. Vérifier aussi la valeur de XLOADCTL. Il peut être bien de fixé INDEXCTL à 3 dans tes Xrefs

Salut, Ce que tu peux essayer c'est de changer l'origine du SCU. Tu crée un SCU, dont l'Origine sera située dans ton futur contour avant d'utiliser la commande CONTOUR ou HACHURE, puis tu revient dans ton SCU Précédent. En effet si ton système utilise une définition importante en mantisse (nombre avant la virgule), les calculs ne peuvent pas se faire précisément et empêche la commande d'aboutir... Si cela convient et que le cas se présente souvent, tu peux aussi te faire une macro dans un bouton pour faire systématiquement ces opérations.

Merci bien Fabcad :) Je crois que tes explications vont bien me servir. Je verrais ça après demain... Je suis un complet néophyte sur Map et en SIG, mais cela ne me fait pas peur, je risque seulement de vous embêter avec des notions de base tant que je n'aurais pas fais une formation (Cela ne saurait trop tarder) A+