stephane69100

bonjour monsieur zebulon j'ai juste multiplier le lips de facon a avoir toute les largeurs que je desirais ;;; ;;; lancer une commande autocad (defun mycmd (LCMD / CMD ETL LELEM RES OLDCMDECHO) (setq ETL (entlast)) (setq OLDCMDECHO (getvar "CMDECHO")) (setvar "CMDECHO" 1) (foreach CMD LCMD (command CMD) ) (while (not (zerop (getvar "cmdactive"))) (command pause) ) (setvar "CMDECHO" OLDCMDECHO) (setq LELEM nil) (if (not ETL) (setq ETL (entnext)) (setq ETL (entnext ETL)) ) (while ETL (setq LELEM (cons ETL LELEM)) (setq ETL (entnext ETL)) ) (setq RES LELEM) ) (defun c:99 (/ D PLENAM PLOBJ OFFSETD OFFSETG PTOD PTFD PTOG PTFG AcDoc Space LO LF) (vl-load-com) ;; largeur de la polyligne (à changer si nécessaire) (setq D 0.099) ;; tracer une polyligne (setq PLENAM (car (mycmd '("_pline")))) ;; transformer en vla-object (setq PLOBJ (vlax-ename->vla-object PLENAM)) ;; faire les décallages (vla-offset PLOBJ (/ D 2.0)) ; à droite (setq OFFSETD (vlax-ename->vla-object (entlast))) (vla-offset PLOBJ (/ D -2.0)) ; à gauche (setq OFFSETG (vlax-ename->vla-object (entlast))) ; effacer la polyligne d'origine (vla-erase PLOBJ) ; fermer les extrémités avec des lignes (setq PTOD (vlax-curve-getStartPoint OFFSETD)) (setq PTFD (vlax-curve-getEndPoint OFFSETD)) (setq PTOG (vlax-curve-getStartPoint OFFSETG)) (setq PTFG (vlax-curve-getEndPoint OFFSETG)) (setq AcDoc (vla-get-activeDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (vla-addLine Space (vlax-3d-point PTOD) (vlax-3d-point PTOG) ) (setq LO (entlast)) (vla-addLine Space (vlax-3d-point PTFD) (vlax-3d-point PTFG) ) (setq LF (entlast)) ;; on fait un PEDIT "Joindre" avec tout ça (setvar "peditaccept" 1) (command "_pedit" "_m" LO (vlax-vla-object->ename OFFSETD) LF (vlax-vla-object->ename OFFSETG) "" "_j" 0.1 "_w" "0.0" "") ;; et enfin on y met une hachure (qu'on peut changer ici) (command "-fhach" "_p" "_u" "45" D "_n" "_s" (entlast) "" "") (princ) ) (defun c:123 (/ D PLENAM PLOBJ OFFSETD OFFSETG PTOD PTFD PTOG PTFG AcDoc Space LO LF) (vl-load-com) ;; largeur de la polyligne (à changer si nécessaire) (setq D 0.123) ;; tracer une polyligne (setq PLENAM (car (mycmd '("_pline")))) ;; transformer en vla-object (setq PLOBJ (vlax-ename->vla-object PLENAM)) ;; faire les décallages (vla-offset PLOBJ (/ D 2.0)) ; à droite (setq OFFSETD (vlax-ename->vla-object (entlast))) (vla-offset PLOBJ (/ D -2.0)) ; à gauche (setq OFFSETG (vlax-ename->vla-object (entlast))) ; effacer la polyligne d'origine (vla-erase PLOBJ) ; fermer les extrémités avec des lignes (setq PTOD (vlax-curve-getStartPoint OFFSETD)) (setq PTFD (vlax-curve-getEndPoint OFFSETD)) (setq PTOG (vlax-curve-getStartPoint OFFSETG)) (setq PTFG (vlax-curve-getEndPoint OFFSETG)) (setq AcDoc (vla-get-activeDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (vla-addLine Space (vlax-3d-point PTOD) (vlax-3d-point PTOG) ) (setq LO (entlast)) (vla-addLine Space (vlax-3d-point PTFD) (vlax-3d-point PTFG) ) (setq LF (entlast)) ;; on fait un PEDIT "Joindre" avec tout ça (setvar "peditaccept" 1) (command "_pedit" "_m" LO (vlax-vla-object->ename OFFSETD) LF (vlax-vla-object->ename OFFSETG) "" "_j" 0.1 "_w" "0.0" "") ;; et enfin on y met une hachure (qu'on peut changer ici) (command "-fhach" "_p" "_u" "45" D "_n" "_s" (entlast) "" "") (princ) ) (defun c:220 (/ D PLENAM PLOBJ OFFSETD OFFSETG PTOD PTFD PTOG PTFG AcDoc Space LO LF) (vl-load-com) ;; largeur de la polyligne (à changer si nécessaire) (setq D 0.22) ;; tracer une polyligne (setq PLENAM (car (mycmd '("_pline")))) ;; transformer en vla-object (setq PLOBJ (vlax-ename->vla-object PLENAM)) ;; faire les décallages (vla-offset PLOBJ (/ D 2.0)) ; à droite (setq OFFSETD (vlax-ename->vla-object (entlast))) (vla-offset PLOBJ (/ D -2.0)) ; à gauche (setq OFFSETG (vlax-ename->vla-object (entlast))) ; effacer la polyligne d'origine (vla-erase PLOBJ) ; fermer les extrémités avec des lignes (setq PTOD (vlax-curve-getStartPoint OFFSETD)) (setq PTFD (vlax-curve-getEndPoint OFFSETD)) (setq PTOG (vlax-curve-getStartPoint OFFSETG)) (setq PTFG (vlax-curve-getEndPoint OFFSETG)) (setq AcDoc (vla-get-activeDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (vla-addLine Space (vlax-3d-point PTOD) (vlax-3d-point PTOG) ) (setq LO (entlast)) (vla-addLine Space (vlax-3d-point PTFD) (vlax-3d-point PTFG) ) (setq LF (entlast)) ;; on fait un PEDIT "Joindre" avec tout ça (setvar "peditaccept" 1) (command "_pedit" "_m" LO (vlax-vla-object->ename OFFSETD) LF (vlax-vla-object->ename OFFSETG) "" "_j" 0.1 "_w" "0.0" "") ;; et enfin on y met une hachure (qu'on peut changer ici) (command "-fhach" "_p" "_u" "45" D "_n" "_s" (entlast) "" "") (princ) ) (defun c:316 (/ D PLENAM PLOBJ OFFSETD OFFSETG PTOD PTFD PTOG PTFG AcDoc Space LO LF) (vl-load-com) ;; largeur de la polyligne (à changer si nécessaire) (setq D 0.316) ;; tracer une polyligne (setq PLENAM (car (mycmd '("_pline")))) ;; transformer en vla-object (setq PLOBJ (vlax-ename->vla-object PLENAM)) ;; faire les décallages (vla-offset PLOBJ (/ D 2.0)) ; à droite (setq OFFSETD (vlax-ename->vla-object (entlast))) (vla-offset PLOBJ (/ D -2.0)) ; à gauche (setq OFFSETG (vlax-ename->vla-object (entlast))) ; effacer la polyligne d'origine (vla-erase PLOBJ) ; fermer les extrémités avec des lignes (setq PTOD (vlax-curve-getStartPoint OFFSETD)) (setq PTFD (vlax-curve-getEndPoint OFFSETD)) (setq PTOG (vlax-curve-getStartPoint OFFSETG)) (setq PTFG (vlax-curve-getEndPoint OFFSETG)) (setq AcDoc (vla-get-activeDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (vla-addLine Space (vlax-3d-point PTOD) (vlax-3d-point PTOG) ) (setq LO (entlast)) (vla-addLine Space (vlax-3d-point PTFD) (vlax-3d-point PTFG) ) (setq LF (entlast)) ;; on fait un PEDIT "Joindre" avec tout ça (setvar "peditaccept" 1) (command "_pedit" "_m" LO (vlax-vla-object->ename OFFSETD) LF (vlax-vla-object->ename OFFSETG) "" "_j" 0.1 "_w" "0.0" "") ;; et enfin on y met une hachure (qu'on peut changer ici) (command "-fhach" "_p" "_u" "45" D "_n" "_s" (entlast) "" "") (princ) ) (defun c:412 (/ D PLENAM PLOBJ OFFSETD OFFSETG PTOD PTFD PTOG PTFG AcDoc Space LO LF) (vl-load-com) ;; largeur de la polyligne (à changer si nécessaire) (setq D 0.412) ;; tracer une polyligne (setq PLENAM (car (mycmd '("_pline")))) ;; transformer en vla-object (setq PLOBJ (vlax-ename->vla-object PLENAM)) ;; faire les décallages (vla-offset PLOBJ (/ D 2.0)) ; à droite (setq OFFSETD (vlax-ename->vla-object (entlast))) (vla-offset PLOBJ (/ D -2.0)) ; à gauche (setq OFFSETG (vlax-ename->vla-object (entlast))) ; effacer la polyligne d'origine (vla-erase PLOBJ) ; fermer les extrémités avec des lignes (setq PTOD (vlax-curve-getStartPoint OFFSETD)) (setq PTFD (vlax-curve-getEndPoint OFFSETD)) (setq PTOG (vlax-curve-getStartPoint OFFSETG)) (setq PTFG (vlax-curve-getEndPoint OFFSETG)) (setq AcDoc (vla-get-activeDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (vla-addLine Space (vlax-3d-point PTOD) (vlax-3d-point PTOG) ) (setq LO (entlast)) (vla-addLine Space (vlax-3d-point PTFD) (vlax-3d-point PTFG) ) (setq LF (entlast)) ;; on fait un PEDIT "Joindre" avec tout ça (setvar "peditaccept" 1) (command "_pedit" "_m" LO (vlax-vla-object->ename OFFSETD) LF (vlax-vla-object->ename OFFSETG) "" "_j" 0.1 "_w" "0.0" "") ;; et enfin on y met une hachure (qu'on peut changer ici) (command "-fhach" "_p" "_u" "45" D "_n" "_s" (entlast) "" "") (princ) ) (defun c:508 (/ D PLENAM PLOBJ OFFSETD OFFSETG PTOD PTFD PTOG PTFG AcDoc Space LO LF) (vl-load-com) ;; largeur de la polyligne (à changer si nécessaire) (setq D 0.508) ;; tracer une polyligne (setq PLENAM (car (mycmd '("_pline")))) ;; transformer en vla-object (setq PLOBJ (vlax-ename->vla-object PLENAM)) ;; faire les décallages (vla-offset PLOBJ (/ D 2.0)) ; à droite (setq OFFSETD (vlax-ename->vla-object (entlast))) (vla-offset PLOBJ (/ D -2.0)) ; à gauche (setq OFFSETG (vlax-ename->vla-object (entlast))) ; effacer la polyligne d'origine (vla-erase PLOBJ) ; fermer les extrémités avec des lignes (setq PTOD (vlax-curve-getStartPoint OFFSETD)) (setq PTFD (vlax-curve-getEndPoint OFFSETD)) (setq PTOG (vlax-curve-getStartPoint OFFSETG)) (setq PTFG (vlax-curve-getEndPoint OFFSETG)) (setq AcDoc (vla-get-activeDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (vla-addLine Space (vlax-3d-point PTOD) (vlax-3d-point PTOG) ) (setq LO (entlast)) (vla-addLine Space (vlax-3d-point PTFD) (vlax-3d-point PTFG) ) (setq LF (entlast)) ;; on fait un PEDIT "Joindre" avec tout ça (setvar "peditaccept" 1) (command "_pedit" "_m" LO (vlax-vla-object->ename OFFSETD) LF (vlax-vla-object->ename OFFSETG) "" "_j" 0.1 "_w" "0.0" "") ;; et enfin on y met une hachure (qu'on peut changer ici) (command "-fhach" "_p" "_u" "45" D "_n" "_s" (entlast) "" "") (princ) ) comme tu peux le voir je suis partis de ton lips et j'ai crée une version pour chaque Chemin de cable que j'utilise donc 99, 123,220,316,412 et 508 avec un appel par taille comme cela pas de soucis voila j'ai pas fait de révolution sur le script car je n'y connais rien malheureusement

perso je viens de modfie le lisp avec toutes mes largeurs donc pour cela plus de soucis sa marche super bien question quand meme peut on integrer dans le lîsp un rayon de courbure au niveau des changement de direction (courbe differente à l'interrieur qu'a l'exterieur en veriter ces la valeur du raccords decaler par la largeur du Chemin de cable) disons que pour une largeur de temps j'ai un rayon de courbure de temps donc a chaque changement de direction j'ai un rayon de courbure de temps merci encore et merci d'avance [Edité le 7/8/2008 par stephane69100]

je vous remercie Mr ZEBULON_ je viens de découvrire se lisp qui va me faciliter grandement mon travail (chemin de cable a dessiner souvent) encore merci j'ai quand meme une petite question je viens de creer plusieur fois le lsp pour les differentes largueur de chemin de cable mais peut on rajouter cette option a la commande d'origine style longeur du Chc et largueur [Edité le 7/8/2008 par stephane69100]

question en rapport avec mon pb du dessus que j'ai toujours quand j'utilise le menu express tools et que je fait supprimer les doublons j'ai le meme soucis j'ai une annulation de toute les commandes que j'ai fait precedement donc j'enregistre juste avant de faire la commande je ferme et je reouvre comme cela plus rien a annuler si une personne a deja eu se probleme je pense que les deux problemes sont lié car quand je ferme et que je reouvre mes plans je peux effacer la fenetre sans annulation automatique

Bonjour, je voudrais si ces possible d'imprimer une serie de presentation en PDF sachant que chaque presentation represente un PDF et surtout qu'il prenne automatiquement le nom de la presentation pour l'instant j'utilise le tres bon ONG de Mr PATRICK_35 avec PDFreDIRECT V2 et je renome les fichiers un par un mais je voudrais savoir si nous pouvions le faire en automatique merci d'avance 21 MARS je viens de reussir avec pdfcreator et le super lisp de patrick_35 (encore merci Monsieur) mais j'ai un soucis car il m'indique tous le chemin d'accès fichier + le nom de la presensatation donc certaine fois le nom devient trop long si quelqu'un a deja eu le soucis et reussis a le regler se serais sympa sachant que l'ideal serais le nom du fichier + le nom de la presentation sinon pour l'instant j'utilise un programme pour renommer tous les fichier d'un coup [Edité le 21/3/2008 par stephane69100]

je vous remercie

Bonjour, je voudrais savoir comment dessiner une fléche style celle d'un repere qleader il me semble que j'avais vue la commande mais je la retrouve plus merci d'avance

désolé mais apres lecture de la notice j'ai lu qu'il ne fonctionnait que sur xp pro ou 2000 et moi je tourne en xp home edition donc je pense que cela viens de la

non non ces bien une version officel avec les cd d'origine encore sous plastique avec les numeros ecrit dessus

bonjour, simplement ces la version que je viens de m'acheter ces pour cela apres je sais pas si les mises a jours sont payant et surtout ces pour apprendre a m'en servir car pour l'instant je suis plus sur autocad mais je suis curieux de découvrir catia depuis le temps que l'on m'en parle

Bonjour, je viens d'essayer d'installer catia en version P2 R12 et j'ai un refus avec comme raison cela: c:\Windows\system32\autoexec.nt. Le fichier ne convient pas à exécution des applications MS-DOS ou Microsoft Windows sachant que je suis sous XP je n'ai pas compris si quelqu'un a deja eu se soucis et a trouver comment faire je suis preneur

moi aussi je suis interresé par les tutos de CATIA kevin.daniel@laposte.net merci d'avance

le pb ces bien se que dit gile ces l'annulation automatique de ma commande je56 j'ai tester mais cela ne fait rien de plus j'ai toujours l'anulation automatique

Bonjour, j'ai un soucis sur mon autocad car je n'arrive pas a effacer les fenetres voici se qu'il me fait: Commande: PURGER Commande: '_zoom Spécifiez le coin d'une fenêtre, entrez un facteur d'échelle (nX ou nXP) ou [Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre/Objet] : _e Commande: Spécifiez le coin opposé: Commande: _.erase 1 trouvé(s) Commande: u EFFACER Régénération de la présentation. Régénération du modèle. Commande: Spécifiez le coin opposé: quand j'utilise ma commande effacer pour une fenetre elle s"efface bien mais j'ai une commande automatique qui m'annule ma commande j'ai le meme soucis avec expres tools (effacer les doublons) si quelqu'un a la solution merci

bonjour, pour faire de toute tes planches un seul pdf facilement tu a l'utilitaire pdf redirect qui te le fait tres bien au plaisir

Je vous remercie j'ai regler le pb avec la solution de rebcao en dxf 12 et sa a marcher merci pour tous

cela ne marche pas Commande: _audit Corriger les erreurs détectées ? [Oui/Non] : O 65 blocs contrôlés Etape 1 4239 objets contrôlés Etape 2 4239 objets contrôlés Etape 3 14800 objets contrôlés Nombre total d'erreurs trouvées 0, corrigées 0 j'ai toujours mon soucis

Bonjour, j'ai un soucis avec un plan quand je l'ouvre il me met deux erreur ENULLOBJECTLD et je n'arrive plus a inserer de bloc si quelqu'un a une solution je suis preneur merci d'avance

Le probleme ces que se n'est pas des presentations mais des view differentes ces pour cela que je n'arrive pas à le faire

Bonjour, je me permets de venir ici car j'ai un lisp qui ne fonctionne pas donc ces sa: (defun C:PlotAll (/ doc adoc vws cnt inc item nam cmdeko) (vl-load-com) (setq cmdeko (getvar "cmdecho")) (setvar "cmdecho" 0) (setq doc (vlax-get-object "AutoCad.Application") adoc (vla-get-ActiveDocument doc) vws (vla-get-Views adoc) ) (setq cnt (vla-get-count vws)) (setq inc 0) (repeat cnt (setq item (vla-item vws inc) nam (vla-get-Name item) ) (command "_plot" "" "" nam "" "" "" "" "") (princ (strcat nam " ")) (setq inc (+ inc 1)) ) (setvar "cmdecho" cmdeko) (princ) ) dans le principe tous fonctionne bien mais je n'ai pas l'incrementation je m'explique ces un lisp pour imprimer la totaliter des vues sur une presentation sachant que pour l'instant il ne me trouve qu'une planche mais il me l'imprime autant de fois que j'ai de planche sur la presentation je pense (attention je n'y connais rien) que ces au niveau de l'incrementation et de la definition des vues sachant que dans _view j'ai toute mes planches de definis merci d'avance stephane69100

je vais essayer de m'expliquer un peu mieux pour moi j'ai un espace objet et une presentation tous mon dessin est sur l'espace objet et je fait la mise en page sur ma presentation donc je me retrouve avec une presentation avec 15 vues (vue en plan, elevation, principe et autres) donc chaque vue est déclarer avec un cartouche et mon dessin a l'interrieur le fait d'avoir tous les plans sur la meme presentation n'est pas de moi mais ces le client qui demande comme cela pour pouvoir voir tous les plans d'un coup d'oeil sinon j'aurais utiliser le lisp ong de patrick_35 qui me vas tres bien dans le cas de multipresentation j'espere avoir ete un peut plus clair

oui disons que j'ai une presentation avec 15 vue donc 15 plan avec cartouche donc je voulais imprimé chaque plan déclarer en vue pour l'instant j'utilise une routine qui fait comme cela -traceur;o;;;A4 (210 x 297 mm);m;p;n;vue;01;1:1;c;o;.;o;n;n;n;n;n;o; mais cela m'oblige a renomer toute mes vues en 01,02, ect [Edité le 30/1/2007 par stephane69100]

je voulais simplement imprimer toute mes vues de ma presentation d'un coup* mais la il me garde les coordonnées de la premier vue pour imprimer toute les vues exemple 14 Zone effective du tracé: 182.19 de large par 281.00 de haut Zone effective du tracé: 181.95 de large par 250.78 de haut Fenêtre de tracé 2. Fenêtre de tracé 1. 40 Zone effective du tracé: 182.19 de large par 281.00 de haut Zone effective du tracé: 181.95 de large par 250.78 de haut Fenêtre de tracé 2. Fenêtre de tracé 1. 41 [Edité le 30/1/2007 par stephane69100]

Bonjour, j'ai un soucis avec un lisp deja voici le lisp (defun C:PlotAll (/ doc adoc vws cnt inc item nam cmdeko) (vl-load-com) (setq cmdeko (getvar "cmdecho")) (setvar "cmdecho" 0) (setq doc (vlax-get-object "AutoCad.Application") adoc (vla-get-ActiveDocument doc) vws (vla-get-Views adoc) ) (setq cnt (vla-get-count vws)) (setq inc 0) (repeat cnt (setq item (vla-item vws inc) nam (vla-get-Name item) ) (command "-traceur" "" "" "nam" "" "" "" "" "") (princ (strcat nam " ")) (setq inc (+ inc 1)) ) (setvar "cmdecho" cmdeko) (princ) ) il fonctionne tres bien sauf qu'il m'imprime toujours la meme vue mais en autant de fois que j'ai de vue (si j'ai 15 vues il m'imprime 15 fois la vue 1) merci d'avance [Edité le 30/1/2007 par stephane69100]

bonjour, voila j'avance tous doucement sur mon probleme d'impression des vues sur une presentation j'ai trouvé la commande pour m'afficher toute les vues ces (ai_table "view" 0) ou (GetNames "view") cela me liste les vues presente sur ma presentation mais malheureusement je ne sais pas comment modifié (enfin si j'ai le droit) le lisp ong tres bien fait de MR Patrick_35 pour au lieu de faire afficher la liste des presentations j'ai la liste des vues qui s'affichent alors si quelqu'un peu m'aider a remplacer cette fonction je suis preneur Ps: j'ai trouvé cette fonction ici : http://discussion.autodesk.com/thread.jspa?messageID=1156122 merci d'avance [Edité le 30/1/2007 par stephane69100]