Déplacement Z à "0"

[jalna]

Bonjour

 

J'ai un fichier de géomètre récalcitrant!!!

On a l'habitude mais la c'est très particulier

c'est un relevé de bâtiment qui est en 2D en visu mais comporte des altitudes différentes!

J'ai beau essayé de mettre les propriétés à 0 en Z ainsi qu'un déplacement en Z à 1e99, enfin toutes les possibilités je n'arrive pas à bien le caler en Z à 0.

 

Au fait j'ai rien contre les géomètres, d'ailleurs ils doivent bien avoir une idée la dessus............

 

Merci de vos réponses

[litelsousa]

Hello

As-tu essayé la commande flatten?

[philsogood]

hello,

j'ai déjà eu des soucis avec flatten

dorénavant j'utilise superfatten un petit lisp que tu peux trouver ici :

http://www.softpedia.com/get/Science-CAD/SuperFlatten.shtml

++

Phil

[jalna]

Hello

As-tu essayé la commande flatten?

 

Salut

Je l'avais oublié!!

Cela fonctionne merci beaucoup

[jalna]

hello,

j'ai déjà eu des soucis avec flatten

dorénavant j'utilise superfatten un petit lisp que tu peux trouver ici :

http://www.softpedia...erFlatten.shtml

++

Phil

 

Salut merci du renseignement

[Fundream]

Moi je déplace tout de 1e99 et ramène de -1e99, ça n'a jamais failli.

[jalna]

Moi je déplace tout de 1e99 et ramène de -1e99, ça n'a jamais failli.

 

Salut

Et ben désolé mais avec ce que j'avais cela ne fonctionnait pas!

Alors le jour ou cela t'arrive essaye flatten et tu verras

[Fundream]

Le mieux serai surtout que les gens travaillent proprement...

 

J'ai reçu pas plus tard que hier des .dwg d'un ACMH, le mec dessine à des échelles différente dans l'objet, sans tenir compte des unités du dessin au lieu d'utiliser les échelles dans les vues de présentation...

Au final j'ai un dessin configuré en mm avec une coupe d'Abbaye en centimètres et un vue en plan en dessous en mètres (un timbre poste, si il n'y avait pas de présentation la montrant je l'aurai loupée) c'est très désagréable...

 

Je me rappellerai de flatten au cas ou, merci.

[ACAD666]

Le mieux serai surtout que les gens travaillent proprement...

 

Houlà! Un idéaliste!

 

Je rigole, on est bien d'accord mais y a du boulot...

[plongo]

petite Q stupide :blink: peux-êtres mais quand vous dites déplacé 1e99.. concrétement ça veux dire quoi ? :unsure:

[(gile)]

j'utilise superfatten un petit lisp que tu peux trouver ici

.

 

Un "petit LISP" qui fait quand même plus de 3600 lignes dans sa dernière version (2.0c) et qui a demandé plusieurs années de mise au point par Joe Burke, LISPeur émérite...

 

petite Q stupide :blink: peux-êtres mais quand vous dites déplacé 1e99.. concrétement ça veux dire quoi ? :unsure:

 

1e99 veut dire 10^99 (dix puissance quatre-vingt dix neuf) soit 1 suivi de 99 zéros.

En déplaçant les objets à une telle distance et en les re-déplaçant en sens inverse AutoCAD ne peut conserver la précision pour la valeur Z des coordonnées et la met à 0 (en théorie, parce que ça ne marche pas toujours).

[Fundream]

1*10^99. Autocad ne gère pas aussi loin et du coup tout se retrouve en principe sur un même plan après le déplacement.

[Syl2007]

Bonjour,

 

Merci bcp pour le lien Gile. J'attaque un nouveau projet et ça risque de bcp me servir.

Je récupère des fichiers dwg venant de Mensura ou Microstation qui n'ont pas tjrs été bien exportés ...

 

Je bataille aussi avec un gros MNT (250 000 faces) que je n'arrive tout simplement pas à supprimer (sablier, sablier, tjrs sablier ou plutot anneau je devrais dire, puisque sous 7 64 bits depuis peu) mais c'est un autre sujet que je posterai plus tard si besoin.

 

Très bonne continuation à tous, encore merci.

[gtrghtr]

est ce que quel qu'un a le lisp en version 2.0c ?

j' arrive pas a m' inscrire sur le forum.

:mellow:

[Carboleum]

Moi je déplace tout de 1e99 et ramène de -1e99, ça n'a jamais failli.

 

hmmm. Parfois cette technique m'envoie certains textes (Il s'agit de textes qui ont été rotationnés en 3d) à Outsiplou-Les-Bains, à tel point qu'un zoom étendu perd complètement mon dessin, à moins de faire un undo.

[gtrghtr]

pour moi le seul avec le quel j'ai le moins de problèmes est

Z0.LSP

http://my.sterling.net/~bdeshawn/AutoLISP.htm

tout les autres tester ne fonctionne pas,

j' ai aussi le problèmes des textes qui se retrouvent a perpette

 

j'ai toujours pas reussis a trouver SuperFlatten dans sa derniere version. (gile) ...

la 1.2c ne corrige pas tous les traits (les arcs par exemple mais aussi certaines droites)

ni avec tous les fichiers, certains plantent , je ne sait pas encore pourquoi.

[gtrghtr]

oups! :unsure:

en fait je crois que je m'en servait mal ( de SuperFlatten)

comment on le lance ??

 

j' ai essayer

(load "flatten")

rien ne s'affiche , pas de message d'erreur, rien ...

apres j' ai fais

sf
(sf)
flatten
SuperFlatten
(SuperFlatten)

et a chaque foix un message du type

; erreur: no function definition: SUPERFLATTEN

 

j' arrive plus a le lancer !! comment on fait ? :wacko:

[philsogood]

easy

tu tapes superflatten sur ta commande clavier (après t'être assuré que le lisp est bien chargé)

Phil

[Patrick_35]

1*10^99. Autocad ne gère pas aussi loin et du coup tout se retrouve en principe sur un même plan après le déplacement.

Salut

 

Et comme 1e99 dépasse la limite d'Autocad, cela veut dire que tu écrases tes objets au plafond, et qu'ensuite, tu les ramènes au sol.

 

@+

[gtrghtr]

ah oui merci

c'est bien SF ou superflatten

mais justement il y avait un conflit entre un autre de mes lisp qui utilisait deja SF

désoler je débute dans le lisp .

a force de rajouter des lisp et des racourcis , j' ai plus de commande de libre !!

il ne me reste plus qu' a comprendre les diferentes option de superflatten ...

:)

[VDH-Bruno]

Bonjour,

 

c'est bien SF ou superflatten

mais justement il y avait un conflit entre un autre de mes lisp qui utilisait deja SF

désoler je débute dans le lisp .

 

Une fonction qu’il m’arrive d’utiliser quand j’ai un doute sur la disponibilité ou pas d’un nom de fonction avant utilisation..

;; VDH-Bruno                               le: 09/10/2011
;; Fonction Prédicat - Test l'existance d'un nom symbol -
;; Exemple:
;; (namesymbolp 'ef) --> T (symbol définie) 
;; (namesymbolp 'attin) --> T (symbol définie)
;; (namesymbolp 'azerty) --> nil (symbol non définie)
(defun namesymbolp  (name / fich lst line)
 (or (type (eval name))
     (member (strcat "C:" (vl-princ-to-string name)) (atoms-family 1))
     (getcname (vl-princ-to-string name))           
     (member (vl-princ-to-string name)
             (cond ((setq fich (findfile "acad.pgp"))
                    (setq fich (open fich "r"))
                    (while (setq line (read-line fich))
                      (if (not (or (= (substr line 1 1) ";") (= (substr line 1 1) "")))
                        (setq lst (cons (substr line 1 (vl-string-search "," line)) lst))))
                    (close fich)
                    lst)))))

[VDH-Bruno]

Re,

 

a force de rajouter des lisp et des racourcis , j' ai plus de commande de libre !!

Très surprenant !!!!

 

Pour le fun en réutilisant une fonction déjà publié sur le forum et celle donné précédemment

 

http://cadxp.com/index.php?/topic/31620-quelques-fonctions-de-liste/

;; ---------------------------------------------------------------
   ;; ar-1:n => Arrangement à Répétition de 1 à n (Version itérative)
   ;; ---------------------------------------------------------------
   ;; Argument: Une liste de symboles (d'éléments)
   ;; Retourne: Tous les arrangements de 1 à n
   ;; Exemple :
   ;;   (ar-1:n '(A B C) 2)
   ;;    => ((A) (B) (C) (A A) (A B) (A C) (B A) (B B) (B C) (C A) (C B) (C C))
   (defun ar-1:n  (l n / lst res)
     (setq lst '(nil))
     (repeat n
       (setq
         res (append res
                     (setq lst (apply 'append (mapcar '(lambda (x) (mapcar '(lambda (y) (cons x y)) lst)) l)))))))

 

 

Un code qui devrait te retourner une liste de tous les raccourcis clavier de 1 à 2 caractères encore disponible sur ton poste,

 

(vl-remove-if
 'namesymbolp
 (mapcar '(lambda (x) (read (apply 'strcat x)))
         (ar-1:n '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z") 2)))

 

 

A titre d’exemple voilà ce que cela donne sur mon ordinateur et encore c’est seulement avec les caractères alphabétiques…

_$ (D G K M N O S V X Y AA AB AD AE AF AG AH AK AL AM AQ AR AS AU AV AW AX AY AZ BA BB BC BD BE BF BG BH BJ BK BL BM BN BP BQ BR BS BT BU BV BW BX BY BZ CB CC CD CE CG CH CI CJ CK CQ CT CV CW CX CY CZ DA DB DD DF DG DH DJ DK DL DM DN DQ DS DT DU DV DW DX DY DZ EA EC EE EG EJ EK EM EN ER ET EU EV EW EY EZ FA FC FD FE FF FG FJ FK FL FM FN FO FP FQ FT FV FW FX FY FZ GA GB GE GF GH GI GJ GK GL GM GN GO GQ GS GT GU GV GW GX GY GZ HA HB HC HD HE HF HG HH HI HJ HK HL HM HN HO HP HQ HR HS HT HU HV HW HX HY HZ IA IB IC IE IG IH II IJ IK IL IN IQ IS IT IU IV IW IX IY IZ JA JB JC JD JE JF JG JH JI JJ JK JL JM JN JO JP JQ JR JS JT JU JV JW JX JY JZ KA KB KC KD KE KF KG KH KI KJ KK KL KM KN KO KP KQ KR KS KT KU KV KW KX KY KZ LA LB LC LD LF LG LH LJ LK LL LM LN LO LP LQ LR LT LU LV LW LX LY LZ MA MC MD MF MH MJ MK MM MN MP MQ MR MS MT MU MV MW MX MY MZ NA NB NC ND NE NF NG NH NI NJ NK NL NM NN NP NQ NR NS NT NU NV NW NX NY NZ OA OB OC OE OF OG OI OJ OK OL OM ON OO OQ OS OT OU OV OW OX OY OZ PB PC PD PF PH PJ PK PN PP PQ PS PU PV PX PY PZ QA QB QC QD QE QF QG QH QI QJ QK QL QM QN QO QP QQ QR QS QT QU QV QW QX QY QZ RA RB RC RF RH RJ RK RM RN RP RQ RS RT RU RV RW RX RY RZ SA SB SD SF SG SI SJSketch'Up SL SM SN SP SQ SS SW SX SY SZ TE TF TG TI TJ TK TN TQ TR TS TU TV TW TY TZ UA UB UC UD UE UF UG UH UJ UK UL UM UN UO UP UQ US UT UU UV UW UX UY UZ VA VC VE VF VG VH VI VJ VK VL VM VN VO VQ VR VS VT VV VW VX VY VZ WA WB WC WD WE WF WG WH WI WJ WK WL WM WN WO WP WQ WR WS WT WU WV WW WX WY WZ XB XD XE XF XG XH XI XK XL XM XN XO XP XQ XS XT XU XV XW XX XY XZ YA YB YC YD YE YF YG YH YI YJ YK YL YM YN YO YP YQ YR YS YT YU YV YW YX YY YZ ZA ZB ZC ZD ZE ZF ZG ZH ZI ZJ ZK ZL ZM ZN ZO ZP ZQ ZR ZS ZT ZU ZV ZW ZX ZY ZZ)

 

ps : Je te déconseille de tester la fonction avec des combinaisons de plus de 4 ou 5 caractères car bonjour l’explosion combinatoire ;-)

 

A+

[gtrghtr]

merci c'est bien pratique ( également pour faire chauffer son processeur )

j' ai trouver plein de combinaisons de touches qu'il pourrai être pratique d'utiliser, il ne me reste donc plus qu' a creer un lisp pour chacunes de ses combinaisons :D

après je ne pense pas toutes les reprendre , il y en a qui ne sont pas pratique ( amx par exemple )