richard-c

(re) je pense que c'est (gille), car étant en retraite depuis 5 ans, je ne pratique plus, il faut déja avoir AutoCAD, mais j'ai gardé mes menus et les programmes. A+

(re) voici le programme (defun c:ppl (/ pl ent echo) (if (and (setq pl (car (entsel "\n Sélectionnez la polyligne à continuer : ")) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (if (/= PLINETYPE 2) (progn (setvar "PLINETYPE" 2) (command "_.pedit" pl "" "" "") (= (cdr (assoc 0 (entget pl))) "LWPOLYLINE") ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ) (progn (setq ent (entlast) echo (getvar "CMDECHO") ) (setvar "CMDECHO" 1) (command "_.pline" (trans (cdr (assoc 10 (reverse (entget pl)))) pl 1) ) (while (/= 0 (getvar "CMDACTIVE")) (command pause) ) (or (equal ent (entlast)) (command "_.pedit" pl "_j" (entlast) "" "") ) (setvar "CMDECHO" echo) ) ) (princ) ) A+

bonjour, (gille) a fait un programme pour continuer une polyligne, regarde dans ses programmes. A+

(Re) attention pour les éllipses, si l'éllipse est dessinée avec la variable PELLIPSE à 1 ou 0 (je ne sais plus) ça ne marche pas pour cette entité. il faut malheuresent redessiner l'ellipse A+

bonjour, moi, il y a quelques années, j'avais ceci sous ma V2002, en plus il demandait une épaisseur (0 (zéro) si on ne voulait pas d'épaisseur) : ; ; 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" "NOM" "SU" "CH_EPL");efface le SCU particulier CH_EPL si il existe déja dans le dessin (command ".scu" "NOM" "SA" "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" "NOM" "R" "CH_EPL" ) (command "cmdecho" 1) (princ) ) j'avais juste ajouté le passage de SCU (éventuel) en SCG, car les cercles disparaissaient. A+

(re) le papy avait mal compris. A+

(re) moi, j'ai répondu à grand_sapin, on peut faire un cercle avec une polyligne. A+

Bonjour, il m'avait fait cela à l'époque (car je ne connais pas ma gauche de ma droite), et je l'avais inséré dans son programme Polysolide, n'ayant que la V2002, et c'était trés utile pour connaitre le coté à décaler. A+

bonjour, de mémoire au bout de 5 ans de "vacances" commande Polyligne A (pour arc) R (pour rayon) A (pour angle) = 180 se mettre en ortho CL (pour clore) et peut être E pour épaisseur, mais la je ne sais plus. A+

bonjour, voici ce que (gille) m'avait fait pour connaitre le sens d'une polyligne à l'époque ou je n'étais pas en retraite (defun c:sens-poly (/ ent n pt pt0 pt1 ang dis) (vl-load-com) (if (and (setq ent (car (entsel))) (= "LWPOLYLINE" (cdr (assoc 0 (entget ent)))) ) (repeat (setq n (fix (vlax-curve-getEndParam ent))) (setq pt (trans (vlax-curve-getPointAtParam ent (- n 0.5)) 0 1) pt0 (trans (vlax-curve-getPointAtParam ent n) 0 1) pt1 (trans (vlax-curve-getPointAtParam ent (1- n)) 0 1) ang (angle pt0 pt1) dis (/ (distance pt1 pt0) 10) n (1- n) ) (grvecs (list 1 pt (polar pt (- ang (/ pi 6)) dis) 1 pt (polar pt (+ ang (/ pi 6)) dis) ) ) ) ) (princ) )

Bonsoir, il faut que le calque 0 (Zéro) soit actif je pense A+

Bonjour, avec la variable SNAPBASE, tu te positionnes au"centre" de ta zone, je pense que ça marche. A+

bonjour, voici un programme que notre ami BonusCAD m'avait donné à l'époque ou je travaillais, il suffit de le lancer au démarage. j'avais juste modifié le defun en lambda pour qu'il se lance automatiquement. __________________________________________________________ ((lambda () ;;;;;(defun fixvar () (setvar "ATTDIA" 1) (setvar "ATTMODE" 1) (setvar "ATTREQ" 1) (setvar "ATTMODE" 1) (command "REGEN") (setvar "BLIPMODE" 0) (setvar "CMDDIA" 1) (setvar "DEMANDLOAD" 2) (setvar "DIMASSOC" 2) (setvar "DRAGMODE" 2) (setvar "FILEDIA" 1) (setvar "GRIPS" 1) (setvar "HIGHLIGHT" 1) (setvar "INDEXCTL" 3) (setvar "LAYOUTREGENCTL" 2) (setvar "MBUTTONPAN" 1) (setvar "MEASUREINIT" 1) (setvar "MEASUREMENT" 1) (setvar "MIRRTEXT" 0) (setvar "OSNAPCOORD" 2) (setvar "PICKADD" 1) (setvar "PICKAUTO" 1) (setvar "PICKDRAG" 0) (setvar "PICKFIRST" 1) (setvar "PICKSTYLE" 1) (setvar "PLINETYPE" 2) (setvar "REGENMODE" 1) (setvar "SDI" 0) (setvar "SHORTCUTMENU" 11) (setvar "TEXTEVAL" 0) (setvar "TEXTFILL" 1) (setvar "UCSFOLLOW" 0) (setvar "VISRETAIN" 1) (setvar "XLOADCTL" 2) )) __________________________________________________________ A+

bonjour, voici peut être une solution : Quand on les superposent, les fenêtres sont transparentes les unes par rapport aux autres. Pour éviter de voir en superposition les objets affichés dans les 2 fenêtres, il faut créer un trou dans la fenêtre du dessous à l'emplacement exact de la fenêtre du dessus. Cette technique est également utilisable pour créer des zones d'espace papier dans une fenêtre pour y positionner du texte ou tout autre type d'informations dépendant de la mise en page. Solution L'outil convertir un objet en fenêtre de la barre d'outils fenêtre accepte comme objet à convertir des régions. Il suffit donc 1- de créer des contours fermés correspondant aux contours de la future fenêtre et des trous, 2- de transformer ces contours en plusieurs régions, 3- de créer une région unique par soustraction (menu modification>édition des solides>soustraction) des trous, 4- d'utiliser l'outil convertir un objet en fenêtre sur la région précédemment définie pour obtenir une fenêtre à trous, 5- de créer des nouvelle fenêtres à l'emplacement des trous. Remarque : Cette solution n'est pas disponible dans Autocad LT qui ne gère que des fenêtres de forme rectangulaire. Voilà. A+

re si tu choisi ta polyligne avec les poignées, et que les propriétés sont ouvertes, tu as tout en bas génération du type de ligne (desactivé(e) - activé(e))