LUDWIG

Salut sechanbask ! J'avais oublié ce projet de nettoyeur de plan (qui n'est plus au stade projet !). Evidemment celui-ci m'interesse fortement, mais le dernier lien "ci-joint" est invalide, et le zip donné la section téléchargement de cadxp est annoncé comme corrompu... Pourrais-tu remettre ton code en ligne ? Merci d'avance !

Plusieurs sujets sont passés sur des blocs qui perdaient leur "dynamisme" après des rotations et des échelles (surtout non uniformes). Mais ton problème doit être différent vu qu'ils sont tous bloqués. Essayes à tout hasard de mettre une échelle x,y et z à 1,1,1 et une rotation à 0 sur un de tes blocs pour voir. Essayes aussi de "réinitialiser" (clic droit sur un bloc) pour voir ce que ça fait. Par contre, les blocs dynamiques d'un fichier restent dynamiques quand : - enregistré en version ne les prenant pas en charge (2000 par exemple) -puis réouvert avec un autocad les prenant en charge voir http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=12666#pid49793

Moi, je me suis fait un lisp qui lance une série de lisps. Entre autres : effacer les côtes (defun c:supct () (vl-load-com) (setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))) (vlax-for bl a (vlax-for ent bl (if (and (vl-string-search "AcDb" (vla-get-objectname ent))(vl-string-search "Dimension" (vla-get-objectname ent))) (vla-delete ent) ) ) ) (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport) ) ;_ Fin de defun Décomposer tous les blocs (les infos d'attributs sont transformées en texte) ;Décompose tous les blocs dans toutes les présentations (il n'en reste plus aucun après !) (defun c:XB (/ layouts jeu n j i cmd) (setq cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_.undo" "_group") (setq expl (getvar "explmode")) (setvar "explmode" 1) (setq ESP (getvar "CTAB")) (if (vl-position "Model" layouts) () (setq layouts (cons "Model" (layoutlist))) ) ;_ Fin de if (setq i 0) (foreach n layouts (while (setq jeu (ssget "x" (list (cons 0 "INSERT") (cons 410 n)))) (setq j 0) (command "_.layout" "_set" n) (while (ssname jeu j) (setq NB (sslength JEU)) (sssetfirst nil JEU) (c:burst) (setq j (+ NB j)) ) ;_ Fin de while (setq i (+ i j)) ) ;_ Fin de while ) ;_ Fin de foreach (setvar "CTAB" ESP) (setvar "explmode" expl) (command "_.undo" "_end") (setvar "cmdecho" cmd) (prompt "\n ") (print i) (if (<= i 1) (prompt " bloc décomposé") (prompt " blocs décomposés") ) ;_ Fin de if (prin1) ) ;fin du defun (prompt "\nXB : Exploser tous les blocs (mêmes imbriqués)") ;Supprimer les présentations ;permet de se placer en espace objet et de supprimer toutes les autres présentations (defun c:LK (/ cmd n layouts) (graphscr) (setq cmd (getvar "CMDECHO")) (setvar "CMDECHO" 1) (setvar "ctab" "Model") (setq layouts (layoutlist)) (foreach p layouts (command "_layout" "EF" p) ) ;_ Fin de foreach (setvar "CMDECHO" cmd) (prin1) ) ;_ Fin de defun (prompt "\nLK : Supprimer les présentations") Tout en ducalque (defun c:cce () (command "changer" "_all" "" "p" "co" "ducalque" "ep" "DUCALQUE" "") ) (je crois que j'avais mieux, qui mettais les calques en couleur 8, mais pas trouver) J'en utilise plein d'autres pour mon "xférisation" : -aplanir le dessin, -superpurger, -optimiser les polylignes, -épaisseur de toutes les polylignes à 0, -normaliser les blocs (calque 0, couleur, épaisseur, type de ligne Dubloc), -supprimer les textes et blocs vides, -supprimer les formes, -supprimer le formatage forcé des mtext, -supprimer les groupes, -supprimer les hachures, -supprimer les entités de longueur nulle, -supprimer les points, -supprimer les superposition de textes et blocs. Si tu en veux, je les mettrais là aussi. [Edité le 27/5/2009 par LUDWIG]

un virus dans autocad... désolé c'est pas très constructif, mais je vois pas de solution

En vue d'imprimer, pour dessiner à la main ? En fait, ZEUM, Je ne vois pas trop l'intérêt d'un "programme". Tu dois pouvoir créer un gabarit "iso" en mode isométrique par exemple qui servira de base à tous les dessins isométriques que tu voudras faire.

peut-être que tu t'accroches au point d'insertion du bloc qui lui est à l'autre bout du dessin ?

pas besoin de lisp : édition>remplacer ; tu peux rechercher dans tous le dessin ou une sélection, et rechercher dans les blocs, textes et mtextes (options de recherche). Après, si tu veux le faire automatiquement dans plusieurs dessins, je pense à du script mais je n'ai pas trouver la commande "find" en ligne de commande.

Que veux tu dire par "programmer" ? Sur autocad, tu peux avoir une grille "isométrique" sur laquelle tu peux t'accrocher. Indépendamment, tu peux aussi régler des angles de repérage polaire à tous les 60°.

J'ai fait le même style de bloc. On peut faire la même chose sans sélectionner du tout les côtes dans les actions d'étirement. Pourvu que les lignes d'attaches des côtes soient associées à l'objet qui, lui seul ,subit l'étirement.

J'ai eu la même erreur en ouvrant un export dwg depuis photoshop ou illustrator. J'ai fait "continuer" et mon dessin s'est ouvert sans problème.

Pour les écritures sur le traceur dwg2pdf http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=23716#pid101929

http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=23716#pid101929

J'ai supprimé les hachures, puis je les ai recréés, et là, plus de problème. Je marque le sujet comme résolus, même si le mystère persiste...

Bonjour, J'ai un dessin (importé d'un logiciel de dessin type photoshop) avec des hachures "solides" dont les contours ont été définies selon des splines. Après un copier coller, mes hachures ont des contours rectilignes qui ne suivent plus les splines (malgré moult tentatives de "régénération"). Même problème à l'impression (ce n'est donc pas un problème graphique). http://img51.imageshack.us/img51/1066/sanstitrewqs.jpg Les poignées des hachures et des splines sont pourtant toujours les mêmes. J'imagine que le degré de précisions des hachures est enregistrée dans une variable du dessin. Quelqu'un saurait-il laquelle ? Merci d'avance. PS : idem avec un "copier" autocad dans le même dessin !![Edité le 18/5/2009 par LUDWIG] [Edité le 18/5/2009 par LUDWIG]

Merci pour cette astuce ! Moi qui m'embettait à enregistrer au moindre changement !

Vieux lisps de Didier Lourdelle ********************************************************************************************************************************************************** ;échelle / point de base ;********************************************************************************************************************************************************** ;Modification de l'echelle sur plusieur entités par rapport a leur point de base (defun c:ch_ech (/ n js ent pt1 ech) (SETQ CMDE (GETVAR "cmdecho")) (SETVAR "CMDECHO" 0) (setq n 0) (command "_undo" "_m") (prompt "\nSelection des objets :") (setq js (ssget)) (initget 1) (setq ech (getstring "/Reference :")) (if (or (= ech "R") (= ech "r")) (progn (setq long_ref (getreal "Longueur de reference <1>:")) (if (= nil long_ref) (setq long_ref 1.0000000) ) ;_ Fin de if (initget (+ 1 2 4)) (setq long_new (getreal "Nouvelle Longueur:")) ) ;_ Fin de progn ) ;_ Fin de if (repeat (sslength js) (setq ent (ssname js n)) (SETQ PT1 (cdr (assoc 10 (entget ent)))) (if (or (= ech "R") (= ech "r")) (command "_SCALE" ent "" pt1 "r" long_ref long_new) (command "_SCALE" ent "" pt1 ech) ) ;_ Fin de if (setq n (1+ n)) (IF (= (/ n 5.00) (/ n 5)) (prompt ".") ) ;_ Fin de IF ) ;repeat (SETVAR "CMDECHO" CMDE) (terpri) ) ; (prompt "\nch_ech : Echelle sur plusieurs entités par rapport à leur point de base respectif" ) ;_ Fin de prompt ;********************************************************************************************************************************************************** ;----- rotation / point de base --------- ;********************************************************************************************************************************************************** ; Rotation sur plusieurs entités par rapport à leur point de base (defun c:ch_rotat (/ n js ent pt1 ang) (SETQ CMDE (GETVAR "cmdecho")) (SETVAR "CMDECHO" 0) (setq n 0) (command "_undo" "_m") (prompt "\nSelection des objets :") (setq js (ssget)) (setq ang (getreal "Angle de rotation:")) (repeat (sslength js) (setq ent (ssname js n)) (SETQ PT1 (cdr (assoc 10 (entget ent)))) (command "_rotate" ent "" pt1 ang) (setq n (1+ n)) (IF (= (/ n 50.00) (/ n 50)) (prompt ".") ) ;_ Fin de IF ) ;repeat (SETVAR "CMDECHO" CMDE) (terpri) ) ; (prompt "\nch_rotat : Rotation de plusieurs entités par rapport à leur point de base respectif" ) ;_ Fin de prompt [Edité le 15/5/2009 par LUDWIG]

Il y a l'info sur les "versions familiales" en cas de souscription. http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14414#pid Mais l'info date de 2 ans, je n'ai pas vérifier si ça a évolué...

Mon autocad 2010 était configuré pour enregistrer en 2007 par défaut. C'est peut-être le cas pour vous sur votre ADT2010 (y compris le gabarit qui sert à l'ouverture des dessins vierges).

Ta ligne de repère risque d'être "statique" dans le bloc si tu ne lui associes pas des actions d'étirement.

Si tu utilises des étirement ou déplacement (pour élargir la fenêtre), il faut peut-être que ton "flip" subisse également cette action, mais avec un variateur de distance (0.5 si il est au centre de l'étirement).

essayes donc le patch dont je t'ai donné le lien...

http://usa.autodesk.com/adsk/servlet/ps/dl/index?siteID=123112&id=2334435&linkID=9240618#section7

Essayes ça EDIT : oups, le lien est mort. Je me souviens d'un problème récurrent de sélection sur 2004, avec un patch à installer. Reste à trouver le patch. [Edité le 11/5/2009 par LUDWIG]

Je n'ai bien sûr qu'un paramètre de visibilité (il ne peut y en voir qu'un, c'est dommage, mais c'est un autre débat). J'ai 33 "lignes de choix". Je n'ai aucun soucis jusque là. Le soucis vient du fait que ces 33 lignes de choix comportent chacune des paramètres et actions de déplacement. Ce sont les "grips" de ces paramètres, qui, bien qu'invisibles, semblent "accrocher" le curseur. [Edité le 11/5/2009 par LUDWIG]

LT pour LapTop d'après le document Autodesk présenté par Eric (lien de RebCao). J'ai par contre été contacté par Autodesk même pour une mise a jour de mon "Autocad Light".