richard-c

(re)bonjour, je cherche un petit lisp qui pourrait mesurer chaque segment d'une LWPOLYLIGNE ou d'une polyligne 2D ou d'une ligne et qui mettrait la distance au milieu de chaque segment (choix de la hauteur du texte) ceci pour faire des triangulations rapides le pied serait qu'il mesure le dévelopement des arcs des polylignes et non les cordes (mais la, j'en demande peut être un peut trop) Je suis (encore) sur AutoCAD V2002, hé oui, il y en a encore. Bonne journée. A+

(er)bonjour, je cherche un petit lisp qui pourrait mesurer chaque segment d'une LWPOLYLIGNE ou d'une polyligne 2D ou d'une ligne et qui mettrait la distance au milieu de chaque segment (choix de la hauteur du texte) ceci pour faire des triangulations rapides le pied serait qu'il mesure le dévelopement des arcs des polylignes et non les cordes (mais la, j'en demande peut être un peut trop) Je suis (encore) sur AutoCAD V2002, hé oui, il y en a encore. Bonne journée. A+

Bonjour, je me suis permis de rajouter qq ligne au cas ou PLINETYPE etait à zéro (defun c:ppl (/ pl ent echo) (if (and (setq pl (car (entsel "\nSélectionnez la polyligne à prolonger: ")) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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) ) Bonne journée.

Bonjour, notre ami BonusCAD à fait quelque choe, vas voir sur son site, tu le trouveras dans le message qu'il a écrit a 1h08 ce matin, A+

Bonjour, nous avons fait des sorties traceur (sur chaques traceurs ou imprimantes) en A3 de la palette de couleur avec des projection à 100%, 75%, 50% et 25%, pour le choix des couleurs pour le tracé (et fonction des imprimantes) nous jouons sur ces projections,(tables STB) et nous avons encore que la V2002 . . . A+

excuse du retard pour la réponse, -1- tu ouvres les options -2- Nom de l'éditeur de texte, du dictionnaire et des fichiers de polices -3- Fichier de dictionnaire personnalisé -4- et la tu fais parcourir jusqu'à ton dictionnaire (fichier.CUS) A+

bonjour, fais une recherche d'un ficher *.cus (extention du dictionnaire perso) personnellement je l'ai placé sous Mes documents. A +

bonjour, voila 2 programmes (qui ne sont pas de moi) que j'utilise sous V2002, j'ai juste ajouté le SCG puis revient en SCU particulier si c'est le cas ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ch_ech.lsp - gratuiciel ; Version 1.1 pour Autocad 13 F et US ou superieur ; Revision du : 25/01/98 ; Ecrit par Didier Lourdelle ; ;http://www.didier-lourdelle.fr/ ; ;E-mail N°1:dlourdelle@didier-lourdelle.fr ; ;Vous êtes libres de diffuser ce gratuiciel ; ;************************** ;***c'est même conseillé*** ;************************** ; ;Vous êtes libres de diffuser ce gratuiciel ; ; ; ; Modification de l'echelle sur plusieur entites / a leur point de base ; ; (defun c:ch_ech ( / n js ent pt1 ech) (SETQ CMDE (GETVAR "cmdecho")) (SETVAR "CMDECHO" 0) ;;modif.Vosges CR - PV - 07/02/2000 ;;Dans un SCU particulier les objets s'effacent, ;;Se place provisoirement dans le SCG - (command "scu" "ef" "CH_ECH");efface le SCU particulier CH_ECH si il existe déja dans le dessin (command "scu" "s" "CH_ECH" );sauve le SCU particulier en CH_ECH (command "scu" "g") (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)) (initget (+ 1 2 4)) (setq long_new (getreal "Nouvelle Longueur:")) ) ) (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) ) (setq n (1+ n)) (IF (= (/ n 5.00) (/ n 5)) (prompt ".")) );repeat ;;Revient dans le SCU précédent (command "scu" "R" "CH_ECH" ) (SETVAR "CMDECHO" CMDE) (terpri) ); ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:ch_rotat ( / n js ent pt1 ang) (SETQ CMDE (GETVAR "cmdecho")) (SETVAR "CMDECHO" 0) ;;modif.Vosges CR - PV - 07/02/2000 ;;Dans un SCU particulier les objets s'effacent, ;;Se place provisoirement dans le SCG - (command "scu" "ef" "CH_ROTAT");efface le SCU particulier CH_ROTAT si il existe déja dans le dessin (command "scu" "s" "CH_ROTAT" );sauve le SCU particulier en CH_ROTAT (command "scu" "g") (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 ".")) );repeat ;;Revient dans le SCU précédent (command "scu" "R" "CH_ROTAT" ) (SETVAR "CMDECHO" CMDE) (terpri) ); ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Bonjour, est ce que ta fenetre n'est pas sur un calque isolé ou gelé ? A+

je me suis trompé de sujet, Excuse A+ quand même

Bonjour, est ce que ta fenetre n'est pas sur un calque isolé ou gelé ? A+

un truc qui peut t'aider, dans un espace blanc de ta fenêtre (j'espère qu'il y en a un . . .) fait un rectangle, puis modification => Délimiter => fenêtre et redefini ta fenêtre existane (en suivant le nouveau contour) une demi droite (à effacer après) reliant ton rectangle à ta fenêtre servira de guide pour délimiter la fenêtre, mets la sur le calque DefPoint puis fais un rectangle pour ton cadre, puis fais ta fenêtre pour le détail mais personnellement je créerais une nouvelle fenêtre et prendrais le principe défini dans le message précédent (sauf si tu es charette). A+ et à demain car je ferme.

Voilà ce que j'avais écrit le 31/08/2007 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. cette asuce n'est pas de moi. Donnes moi votre avis.

pense a ajouter un " un objet du calque à déplacer : [surligneur] " [/surligneur] )))))))))

Voici une image d'Epinal. Bon WE

Bonjour PATRICK_35, voici le message qu' AutoCAD me renvoie : [surligneur] ; erreur: no function definition: ACET-UI-PROGRESS-INIT[/surligneur] bonne journée.

merci et j'espère que çà fontionnera sur V2002 A+

Merci LILI, je pensais bien à Patrick35, mais j'ai bien peur que LXL avec AutoCAD2002 pose problème. il pleut sur Epinal, on sera quitte d'aroser ce soir. A+

au fait, mon programme est gratuit

Vas voir dans les programmes de Patrick35, il a fait un lisp qui se nomme (de mémoire) REA.lsp avec texte (le texte doit exister dans le dessin) ou REA-ATT avec attribut j'ai, quand à moi, fait un logiciel de mètré, je fais une version LT, si ç'à t'interresse, donne moi ton adresse, que je te l'envoie quand il sera fini A+

Voici peut être un moyen, (c'est celui que j'utilise) si c'est un scan25, ouvrir le fichier "nom de l'image".TAB et prendre les coordonnées de PT3, exemple (900000.0,236000.0) (0.3999) label "pt3", donc x=900000.0 et Y=236000.0 et donner l'échelle 10000 pour scan25 ou 25 pour scan25 2006 si c'est une photo aériènne, ouvrir le fichier "nom de l'image".TAB et prendre les coordonnées X de Top Right et Y de Bottom Right (830000.000000,2370000.000000) (10000.000000,10000.000000) Label "Bottom Right", (830000.000000,2375000.000000) (10000.000000,0.000000) Label "Top Right" soit X=830000.000000 et Y= 2370000.000000 j'espère avoir répondu à ta question Bonne journée.

Bonjour, je cherche un "pas à pas" pour le programme LXL. si quelqu'un en possede un, merci de me le communiquer. A+

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. cette asuce n'est pas de moi. Donnez moi votre avis.

Salut BonusCAD, j'ai eu le même probleme que toi pour le fichier 3DS

de mémoire, je crois qu'AutoCAD ne lit que les fichiers DXF venant d'autres logiciels, mais si ils sont en 3D, AutoCAD ne lit pas la 3D, (j' avais fais un essai d'une 3D de Solid Work en DXF vers AutoCAD, je n'ai eu qu'une 2D)