vincentp010

Salut, essais la commande PERSONNALISER

Salut, essayes en passant la variable VISRETAIN à 1

Salut, dand Covadis 2D -> echelle du dessin

Salut, en supposant que ton bloc s'appelle TCPOINT et que ton attribut est le 2em (defun c:z2att (/ blocs nb1 nb ent pt ptz attAlt) (setvar "cmdecho" 0) (setq blocs (ssget "x" (list (cons 2 "TCPOINT")))) (if (= blocs nil) (exit)) (setq nb (sslength blocs)) (setq nb1 0) (while (< nb1 nb) (setq ent (ssname blocs nb1)) (setq pt (cdr (assoc 10 (entget ent)))) (setq ptz (rtos (caddr pt) 2 2)) (setq attAlt (entget (entnext (entnext ent)))) (entmod (subst (cons 1 ptz) (assoc 1 attAlt) attAlt)) (setq nb1 (+ nb1 1)) ) )

En fait tu veux faire un mnt avec tes polylignes 3D. C'est simple, tu vas dans Covadis 3D -> Calcul de MNT -> calcul et dessin de MNT Ensuite dans la fenêtre, dans le cadre points a prendre en compte, tu décoche tout. Coche "Lignes de rupture de pente", dans les calques : "calque de tes polylignes3D" Et après tu as un mnt d'après tes courbes.

Salut, je ne comprend pas bien ta question; les courbes de niveau covadis ne sont que des polylignes 2D.

Salut, c'est possible, mais seulement à partir de la version 2009.

Tu change les cui en mnu avec le lien que j'ai donné plus haut cuitomnu (si ça marche avec ceux provenan du cuix) Sinon voici un petit tuto qui explique les fichiers mnu http://www.caddigest.com/subjects/autocad/tutorials/select/parsai_building_menu1.htm http://www.caddigest.com/subjects/autocad/tutorials/select/parsai_building_menu2.htm http://www.caddigest.com/subjects/autocad/tutorials/select/parsai_building_menu3.htm

Je fais tout mon menu dans un éditeur de texte en MNU et comme ça je suis tranquille, je trouve cela tellement plus rapide que de passer par la fenêtre de personnalisation qui est horriblement lente à charger :mad: EDIT: Je viens de me souvenir que les cuix sont en fait des archives zip qui contiennent en partie des cui. Tu peux peut être prendre ces cui individuellement et les changer en mnu que tu n'auras plus qu'a recoller ensuite. [Edité le 1/3/2011 par vincentp010]

Salut, Pour mieux cerner ta demande il faudrait que tu soit un peut plus précis. Tu parle du centre de quoi? Ta spline ne vas pas que sur ce centre, elle part aussi d'autres points, lesquels. Une explication ou un fichier d'exemple seraient les bienvenue.

Salut, il y a quelqu'un qui a fait un lisp pour convertir les cui en mnu http://rkmcswain.blogspot.com/2007/09/convert-cui-to-mnu.html mais pas pour les cuix

Salut, j'ai fais ça, ça définit l'altitude des points au centimètre près (au millimètre ça prend trop de temps parce que c'est codé avec les pieds :D ) ; Retourne les sommets d'une polyline3D sous forme de liste ((x y z) (x y z)) (defun listSomP3d (pl / lst nb pts ptsl) (setq lst (vlax-safearray->list (vlax-variant-value (vla-get-coordinates pl)))) (setq nb 0) (while (<= nb (length lst)) (if (< (length pts) 3) (progn (setq pts (append pts (list (nth nb lst)))) (setq nb (+ nb 1)) ) (progn (setq ptsl (append ptsl (list pts))) (setq pts nil) ) ) ) (print ptsl) ) (defun c:proj () (setvar "cmdecho" 0) (command "annuler" "m") (setq acc (getvar "osmode")) (command "accrobj" "aucun") (print "Selectionner les blocs a projeter") (setq ss (ssget)) (setq pl (car (entsel "Pointez la polyligne 3D"))) (setq pl (vlax-ename->vla-object pl)) (if (/= (vla-get-objectname pl) "AcDb3dPolyline") (exit 1)) (setq coords (listSomP3d pl)) ; Trouve l'altitude min et max de la poly3d (setq zmin (nth 2 (nth 0 (vl-sort coords (function (lambda (e1 e2) (< (nth 2 e1) (nth 2 e2)))))))) (setq zmax (nth 2 (nth 0 (vl-sort coords (function (lambda (e1 e2) (> (nth 2 e1) (nth 2 e2)))))))) (setq count 0) (while (< count (sslength ss)) (setq blk (ssname ss count)) (setq ptins (cdr (assoc 10 (entget blk)))) ; Calcul la distance la plus courte jusqu'a la polyligne en fonction de l'altitude du point entre zmin et zmax (setq nb zmin lst nil) (while (< nb zmax) (setq pt (list (car ptins) (cadr ptins) nb)) (setq ptint (vlax-curve-getClosestPointTo pl pt)) (setq dis (distance pt ptint)) (setq lst (append lst (list (list dis nb)))) ; On teste tous les cm (setq nb (+ nb 0.01)) ) (setq zproj (nth 1 (nth 0 (vl-sort lst (function (lambda (e1 e2) (< (car e1) (car e2)))))))) ; Creation du nouveau bloc (command "_copy" blk "" ptins (list (car ptins) (cadr ptins) zproj)) (entmod (subst (cons 8 "points-proj") (assoc 8 (entget (entlast))) (entget (entlast)))) ; Modification de l'atribut altitude (setq blkproj (vlax-ename->vla-object (entlast))) (setq attr (vlax-invoke blkproj 'getattributes)) (foreach a attr (setq AttName (vla-get-TagString a)) (if (= AttName "ALT") (vla-put-TextString a (rtos zproj 2 2))) ) (setq count (+ count 1)) ) (setvar "osmode" acc) )

Salut, en mettant la variable VISRETAIN à 1

Pour le raccouci d'un lisp, il suffit juste de mettre une commande avec dans la case MACRO : soit pour le charger et l'executer: ^C^C(load"MONLISP");MONLISP; soit pour l'executer seulement: ^C^CMONLISP; Clavier+ est pas mal, mais je ne l'utilise que pour faire des Ø ³ É À.

Salut, tu peux tout combiner ensemble : (setq a (getpoint)) (setq b (getpoint)) (ssget "_W" a b (list (cons 0 "INSERT") (cons 2 NBLOC))) ou en dur (ssget "_W" '(100 500) '(2000 3000) (list (cons 0 "INSERT") (cons 2 NBLOC)))

Salut, je suppose que tu voulais dire plus long que mon texte. Ton texte est-il un textmult, si c'est le cas, le cadre de ton textmult est plus grand que ton texte, il faut que tu le raccourcisse.

Oui mais attention, ton script n'est pas très modulable: tu es obligé d'avoir deux sous dossier à chaque fois (cd .. X2), il suffit que tu ais un dossier où ce n'est pas le cas et tu ne remonte pas dans le dossier de départ.

Ajout du parametre "-o" avec le nom du dossier @echo off rem "Pour tous les bz2 dans le dossier courant" for /f %%a in ('DIR *.bz2 /S/B') do ( rem "Extrait le bz2 sur la sortie courante et extrait le tar a la suite, dans le dossier du bz2" 7z x %%a -so | 7z x -si -ttar -o"%%~dpa" ) Je ne voit pas comment les feuilles peuvent s'écraser, vu que la commune 002 à un nom différent de la 005 (à moins qu'il y ait 2 départements différents)

Salut, j'ai fais un petit batch pour toi, qui extrait les bz2 puis le tar dans la foulée: @echo off rem "Pour tous les bz2 dans le dossier courant" for /f %%a in ('DIR *.bz2 /S/B') do ( rem "Extrait le bz2 sur la sortie courante et extrait le tar a la suite" 7z x %%a -so | 7z x -si -ttar )

Bienvenue à toi.

Salut, soit tu as Covadis et tu fais un MNT ou soit tu utilise un lisp pour le faire. Je crois qu'il y en a un sur le forum mais je n'arrive pas à le trouver. EDIT : Retrouvé http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=17460#pid71078 [Edité le 31/1/2011 par vincentp010]

Salut, tes attributs sont annotatifs, ils n'apparaissent que quand tu choisis l'échelle d'annotation 1:1_4 dans la fenêtre.

Salut, depuis autocad, la commande renommer

Salut, la commande publier

Pas plus que de changer le chemin de T: vers Z:, et en plus si tu les redéplaces après tu n'auras plus rien à faire. Pour les Express tools, c'est sur le cd d'autocad; il y a quelques scripts qui peuvent êtres utiles.