richard-c

bonjour, si c'est pour imprimer une vue 3D, voici une méthode de vieux (il y a peut être mieux, mais çà marche) dans la présentation : 1- tapes FMULT au clavier 2- tapes C au clavier (Cachtrac) 3- répondre Actif et tu lances l'impression A+

merci, j'essaye A+

Voilà, dans un dessin j'ai des points 3D dans un programme, si je dis : (setvar "OSMODE" 8) puis : (setq p1 (getpoint "\n Premier point ")) puis : (setq p2 (getpoint "\n Premier point ")) je peux connaitre la distance, le X et le Y des points et les enregistrerdans un fichier, par contre si je clique à coter du point (n'importe ou dans le dessin) le programme prend les information du point (non 3D) cliqué. (surement à cause de getpoint) Comment forcer l'accrobj NODAL, et si je clique autre chose que NODAL, le programme attende un point nodal et pas autre chose A+

Merci, penses seulement à supprimer le 2 à [surligneur] "ssfilter2.dcl"[/surligneur] sinon on obtien ; erreur: quitter / sortir abandon si tu mets cette version à télécharger A+

voila le message qu'AutoCAD me renvoie : [surligneur] ; erreur: cdrs supplémentaire dans la paire pointée en entrée[/surligneur] A+

Bonjour et merci (gile), avec ces 3 choix supplémentaires, on peux filtrer plus finement les textes et c'est un plus. Bonne journée.

Merci christian, je place bien mon soleil, mais je tatonne toujour pour trouver la distance et la position idéale. A+

encore moi j'ai essayé de rajouter dans le nouveau ssfilter (çà marchais dans l'autre version) : spacer; :toggle{ label="Style du texte"; key="sty"; value="0"; fixed_width=true; allow_accept=true; } spacer; :toggle{ label="Valeur du texte"; key="val"; value="0"; fixed_width=true; allow_accept=true; } spacer; :toggle{ label="Hauteur du texte"; key="ht"; value="0"; fixed_width=true; allow_accept=true; } dans le dcl et (and (= \"1\" (get_tile \"sty\")) (setq lst (cons 7 lst)) ) (and (= \"1\" (get_tile \"val\")) (setq lst (cons 1 lst)) ) (and (= \"1\" (get_tile \"ht\")) (setq lst (cons 40 lst)) ) dans le lsp ces 3 commandes ne fonctionnent pas . . . je ne sai pas pourquoi. Bon WE et à +

dans le zip que j'ai téléchargé, est ce que le LSP (du 05-07-2007) est mis à jour par rapport au VLX (du 19-10-2007) pourquoi, parce que dans l'ancienne version, javais rajouté Style de texte Valeur de texte Hauteur de texte et c'etait bien pratique A+

Bonjour, ou pourrais-je trouver une aide (plutôt un pas à pas) pour mettre en place des lumières sur une 3D merci A+

Non, tu n'as pas fais une erreur, quand on fait un programme on peut faire des oublis, et je pense que les tests fait par d'autre permette à faire progresser les programmes. un exemple : souvent, quant on fais un programme on le teste dans un dessin neuf, donc dans le SCG, et on oublie souvent que dans un dessin on est dans un SCU. J'ai d'autres questions, mais c'est bientot le week end, A+

ne prends pas les fichier LSP mais Edit_bloc.VLX et Edit_bloc.DCL et places les dans un dossier ou tu as un chemin de recherche de fichier, çà fonctionne trés bien chez moi avec AutoCAD 2002 A+

Bonjour, j'utile ssf.lsp plutot de le filtre rapide, question : si je choisi une entité ayant la couleur DuCalque, le programme renvoie [surligneur] erreur: liste SSGET incorrecte[/surligneur], ce qui est normal car il n'a pas de code dxf 62, n'y a t'il pas un moyen d'y remédier, idem pour un bloc qui a la couleur DuBloc ? Merci et A+

si tu as créé des calques, tu peux choisir un calque destination différent de zéro avec Edit_bloc

Quel c.. je suis je n'avais pas donné le bon chemin http:// http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14737 A+

Pardon j'ai oublié le lien http:// http://www.cadxp.com/sujetXForum-16145.htm A+

Bonjour, j'ai posé presque la même question hiers, essayes edit_bloc de (gile) c'est génial et çà répond à ta question. A+

Merci, j'avais pa vu A+

on reçoit souvent des dessins avec des blocs qui ont leur couleur forcée ou de la couleur DuCalque, n'existe t'il pas un programme qui changerait la (les) couleur d'un (ou des) bloc, couleur au choix par numéro ou DuBloc ? A+

C'est AutoCAD 2002 réseau ACADVER = "15.06s (LMS Tech)" (lecture seule) A+

après (setq odbx (vlax-create-object "ObjectDBX.AxDbDocument")) AutoCAD me retourne nil donc trop vielle version. A+

OK (gile) merci du renseignement, par contre j'ai un petit problème avec le programme que tu as fais pour récupérer les vues : [surligneur] ; erreur: type d'argument incorrect: VLA-OBJECT nil[/surligneur] lorsque je choisi le dessin qui a les vues enregistré. A+

bonjour (gile) je viens d'essayer le programme, voilà le message d'erreur quand je choisi le dessin qui a les vues enregistées : ; erreur: type d'argument incorrect: VLA-OBJECT nil A+

Bonjour, Si j'insère un dessin avec des groupements d'objets dans un autre dessin ( en 0,0,0), comment je peux récupérer les groupes créés dans mon dessin pour qu'ils soient dans mon deuxième dessin. surement un programme lisp A+

voilà un programme qui n'est pas de moi bien sur mais bien utile ; ; CH_EPL.LSP - gratuiciel ; Version 1.4 pour Autocad 2002 ou superieur ; Revision du $Date: 28/01/04 7:31 $ ; Ecrit par Didier Lourdelle ; ; Mise à jour en 1.2 le 18/08/1998 par Didier LOURDELLE tient compte des LWPOLYLINE ; Mise à jour en 1.3 le 30/09/1998 par Pierre-Marie BOITEL tient compte des cercles en les transforment en polyligne ; Mise à jour en 1.4 le 28/01/2004 par Didier LOURDELLE modification de l'epaisseur avec la commande polyligne et l'option multiple pour un traitement plus rapide. ; ; $Workfile: ch_epl1-4.lsp $ ; $Date: 28/01/04 7:31 $ ; $Revision: 5 $ ; ; Test le 2004/01/28 ; ; AutoCAD 2005 us ok ; AutoCAD 2004 fr ok ; AutoCAD 2002 fr ok ; ;http://www.didier-lourdelle.fr/ ; ;E-mail :dlourdelle@didier-lourdelle.fr ; ;Vous êtes libres de diffuser ce gratuiciel ; ; ************************** ; ***c'est même conseillé*** ; ************************** ; ;Vous êtes libres de diffuser ce gratuiciel ; ; ; Modification d'epaisseur de line, polyligne, cercle anneaux en une seule manipulation ; (defun dl_ini_mem_ch_epl () (setq cmde (getvar "cmdecho")) (setvar "cmdecho" 0) (setq osmode (getvar "osmode")) (setvar "osmode" 0) (command "_undo" "_m") );defun dl_ini_mem_break (defun dl_ini_rest_ch_epl ( / ) (setvar "cmdecho" cmde) (setvar "osmode" osmode) (setq cmde nil osmode nil) );defun dl_ini_rest_break ;; ;; ;; (defun dl_select1_ch_epl ( / js i lent ent typent rayon centre calque flagLigneArc) (prompt "\nEntrez la nouvelle epaisseur ") (princ (getvar "PLINEWID")) (prompt " :") (setq ep (getreal )) (if ep (setvar "PLINEWID" ep) (setq ep (getvar "PLINEWID")) ) (prompt "\nChoisissez vos polylignes,arc,anneaux,ellispses,lignes,cercle :") (setq js (ssget)) (setq i 0) (prompt "\nConvertion des cercles en ARC") (repeat (sslength js) (setq ent (ssname js i)) (setq lent (entget ent)) (setq typent (cdr (assoc 0 lent))) (if (null (or (= typent "ARC") (= typent "LINE") (= typent "POLYLINE") (= typent "LWPOLYLINE") (= typent "CIRCLE") );or );null (setq i (1+ i)) (cond ((= typent "ARC") (progn (setq flagLigneArc T) (setq i (1+ i)) ) ) ((= typent "LINE") (progn (setq flagLigneArc T) (setq i (1+ i)) ) ) ((= typent "CIRCLE") (progn (setq rayon (cdr (assoc '40 lent))) (setq centre (cdr (assoc '10 lent))) (setq calque (cdr (assoc '8 lent))) (entdel ent) (command "_pline" (list (- (car centre) rayon) (cadr centre) (caddr centre) ) "_a" "_r" rayon "_a" "180" "0" "_cl" ) (command "_change" (entlast) "" "_pr" "_la" calque "") (setq i (1+ i)) ) ) );cond );if );repeat (if (= flagLigneArc T) (command "_pedit" "_m" js "" "_y" "_w" ep "") (command "_pedit" "_m" js "" "_w" ep "") ) ) ;; ;; ;; (Defun c:CH_EPL ( / ) ;;Dans un SCU particulier le cercle s'efface, ;;Se place provisoirement dans le SCG - (command "cmdecho" 0) (command "scu" "ef" "CH_EPL");efface le SCU particulier CH_EPL si il existe déja dans le dessin (command "scu" "s" "CH_EPL" );sauve le SCU particulier en CH_EPL (command "scu" "g") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (dl_ini_mem_ch_epl) (dl_select1_ch_epl) (dl_ini_rest_ch_epl) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Revient dans le SCU précédent (command "scu" "R" "CH_EPL" ) (command "cmdecho" 1) (princ) ) A+