capde06

ca remarche j'ai lancé un point de restauration système windows et vlam ca remarche cool [Edité le 7/12/2009 par capde06]

/p test ne fait rien de nouveau par contre jai un collègue qui 2010 sur xp 32 moi je suis sous win7 64b je pense pas pouvoir récupérer dans la base registre

j'étais tranquillement entrain de bidouiller un prog lisp ""getexcel" j'ai eu un plantage je redémarre autocad tout va bien mais lorsque j'ouvre l'editeur lisp l'editeur apparait une petite seconde et disparait l'éditeur est toujours actif il est visible dans la barre des taches mais impossible de le voir j'ai fait réparer autocad ....rien j'ai désinstallé autocad réinstallé .....rien n'y fait les programmes lisp marchent. bizarre si vous avez une idée...je prend avant de tout formater...

regarde la http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=25838#pid

le ptit lisp de patrick un peu modifiée a mes besoins pratique quand il y a beaucoup de presentation ;;renommer les presentations Auteur Patrick 35 (defun c:ren-onglet(/ doc express lay lst n i txt) (setq doc (vla-get-activedocument (vlax-get-acad-object)) n -1 i 1 long (-(length (layoutlist)) 1) ) (vla-startundomark doc) (if (eval 'acet-ui-progress-done) (progn (acet-ui-progress-init "" (1- (vla-get-count (vla-get-layouts doc)))) (setq express T) ) (progn (princ "\nTravail en cours...") (princ) ) ) (vlax-for lay (vla-get-layouts doc) (setq lst (cons (list (vla-get-taborder lay) lay) lst)) ) (while (setq lay (assoc i lst)) (if (eq n -1) (setq txt "Cartouche") ;;(setq txt (itoa n)) (setq txt (strcat "Page " (itoa (+ n 1)) " sur " (rtos long 2 0))) ) (while (< (strlen txt) 2) (setq txt (strcat "0" txt)) ) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list (cadr lay) txt))) (progn (vla-put-name (vla-item (vla-get-layouts doc) txt) (strcat "captopo" txt)) (vla-put-name (cadr lay) txt) ) ) (and express (acet-ui-progress-safe i)) (setq n (1+ n) i (1+ i) ) ) (and express (acet-ui-progress-done)) (princ (strcat "\nRenumérotation de " (itoa (1+ n)) " présentation(s).")) (vla-endundomark doc) (princ) )

moi je me suis fait ca ^C^Cscu ob \scu sa (strcat (rtos (getvar "cdate") 2 0) (substr (rtos (getvar "cdate") 2 8) 10 8)) repere ;zoom t zoom .9x a mettre dans un bouton

pouvez vous m'expliquer pourquoi sur certaine hachure on peut avoir la surface et d'autre non merci

merci ca marche nickel

Bravo didier vive les open source

moi ca marche 1er clic le menu apparait 2eme clic fermeture

regarde bien, dans la boite de dialogue il y a option insérer en 3d

moi je me suis fait ca ^C^Cscu ob \scu sa (strcat (rtos (getvar "cdate") 2 0) (substr (rtos (getvar "cdate") 2 8) 10 8)) repere ;zoom t zoom .9x le scu est nommé avec la date

cherche CAPTOPO sur google

super pratique et rapide surtout le afficher tout et on peut voir la source ? par curiosité

y faudrait qu on puisse télécharger ton plan met sur free

pour connaitre la commande en anglais, pas de problème mais je ne sais plus comment fair pour connaitre les options de la commande en anglais merci

la je dit bravo patrick t'es au top ca marche nickel je te remercie

Salut Patrick en bricolant ta fonction je me suis aperçu d'un cas particulier si tu testes sur l'étiquette avec beaucoup d'attributs le prog remplit tous les attribut avec la même valeur j'ai essayé de debogué, je n'y suis pas arrivé essai de regardé merci d'avance

bravo Patrick j'ai beaucoup cherché a la faire je n'y suis jamais arrivé je vais modifier pour en faire une fonction et je vais pouvoir l'intégrer a mon programme de topo encore merci

cool ca marche mais peut on lire et modifier en choisissant le non de l'étiquette code dxf 2 dans le meme principe que mes fonctions lisp [Edité le 12/10/2009 par capde06]

essai en anglais _wipeout

salut patrick dabord merci cette fonction marche très bien sur un bloc avec attribut simple mais pas dans mon cas le bloc dépend d'une étiquette multiple command LIGNEDEREPMULT regarde le lien du 1er message tu as un exemple

regarde la command nettoyer

j'utilise ces fonctions pour lire et modifier un attribut ;; ; met a jour l'attribut d'un bloc : entité avant entget + etiquette + code + valeur (defun upd_blk(obj eti code txt) (setq ent_att (entnext obj)) (while (/= (cdr (assoc 0(entget ent_att))) "SEQEND") (if (= (cdr(assoc 2(entget ent_att))) eti) (progn (setq e (entget ent_att)) (entmod (subst (cons code txt) (assoc code e)e)) (entupd obj) ) ) (setq ent_att (entnext ent_att)) ) ) ;; ; renvoie la valeur d'un attribut : entité avant entget + etiquette (defun val_eti(enti eti / alt) (setq ent_att (entnext enti)) (while (/= (cdr (assoc 0(entget ent_att))) "SEQEND") (if (= (cdr(assoc 2(entget ent_att))) eti) (setq alt (cdr(assoc 1(entget ent_att)))) ) (setq ent_att (entnext ent_att)) ) alt ) jusqu'a la tout va bien maintenant quand je met le bloc avec attribut dans une étiquette multiple je n'arrive pas a lire ou modifier les attributs pouvez vous m'aider jai bien essayé mais la on tombe sur une entité complexe trop complexe pour moi le but est de créer 2 fonctions une pour lire une pour modifier les attribut de l'étiquette multiple depuis des programmes lisp on ne sais jamais voici les étiquettes que j'utilise http://dl.free.fr/vCzbwdX2o

je ne pense pas que cela soit possible desolé