lovecraft

Bonsoir, Voici en lisp: ;Programme pour creer un listing en cliquant une polyligne (defun c:xypoly () (setq ent (car (entsel "\nCliquez une polyligne :"))) (setq bdent (entget ent)) (setq typent (cdr (assoc 0 bdent))) (if (= typent "LWPOLYLINE") (progn (setq nomfic "C:/XYPOLY2D.txt") (setq fic (open nomfic "w")) (setq i 0) (repeat (length bdent) (setq entit (nth i bdent)) (setq codeentit (car entit)) (if (= codeentit 10) (progn (setq xentit (car (cdr entit))) (setq yentit (cadr (cdr entit))) (setq xyentit (strcat (rtos xentit 2 3) " " (rtos yentit 2 3))) (write-line xyentit fic) );fin du progn );fin du if (setq i (+ i 1)) );fin du repeat );fin du progn );fin du if (if (= typent "POLYLINE") (progn (setq nomfic "C:/XYPOLY3D.txt") (setq fic (open nomfic "w")) (setq i 0) (setq ent1 (entnext ent)) (setq bdent1 (entget ent1)) (setq typent1 (cdr (assoc 0 bdent1))) (while (= typent1 "VERTEX") (setq code10 (cdr (assoc 10 bdent1))) (setq xentit (car code10)) (setq yentit (cadr code10)) (setq zentit (caddr code10)) (setq xyzentit (strcat (rtos xentit 2 3) " " (rtos yentit 2 3) " " (rtos zentit 2 3))) (write-line xyzentit fic) (setq ent1 (entnext ent1)) (setq bdent1 (entget ent1)) (setq typent1 (cdr (assoc 0 bdent1))) );fin du while );fin du progn );fin du if (close fic) );fin du defun c:xypoly et voici sous excel Attention il faut ouvrir excel en premier. Sub RECUP_XYZ() Static applicationexcel As Object Static classeurexcel As Object Static feuilleexcel As Object Dim valeur As String Set applicationexcel = GetObject(, "excel.application") ' ouvre le classeur courant Set applicationexcel = CreateObject("excel.application") applicationexcel.Application.Visible = True Set classeurexcel = applicationexcel.Workbooks.Add Set feuilleexcel = applicationexcel.ActiveSheet Dim selObj As AcadObject Dim retCoord As Variant Dim k, l As Integer Dim nbr_of_segments As Long Dim nbr_of_vertices As Long Dim segment As Long On Error Resume Next ThisDrawing.Utility.GetEntity selObj, "Sélectionner une polyligne." retCoord = selObj.Coordinates h = selObj.Count segment = 0 k = LBound(retCoord) l = UBound(retCoord) nbr_sommet = (((l - k) + 1) / 3) 'Ecriture dans excel Dim i As Integer 'boucle x Dim ii As Integer Dim u As Integer 'boucle y Dim j As Integer 'boucle z 'presentation tableau feuilleexcel.Cells(6, 1).Value = "X" feuilleexcel.Cells(6, 1).HorizontalAlignment = xlCenter feuilleexcel.Cells(6, 2).Value = "Y" feuilleexcel.Cells(6, 2).HorizontalAlignment = xlCenter feuilleexcel.Cells(6, 3).Value = "Z" feuilleexcel.Cells(6, 3).HorizontalAlignment = xlCenter ii = 0 For i = k To l Step 3 feuilleexcel.Cells(7 + ii, 1).Value = retCoord(i) ii = ii + 1 Next i ii = 0 For u = 1 To l Step 3 feuilleexcel.Cells(7 + ii, 2).Value = retCoord(u) ii = ii + 1 Next u ii = 0 For j = 2 To l Step 3 feuilleexcel.Cells(7 + ii, 3).Value = retCoord(j) ii = ii + 1 Next j ' Determine the number of segments in the polyline. If selObj.Closed Then nbr_of_segments = nbr_sommet Else nbr_of_segments = nbr_sommet - 1 End If MsgBox "La polyligne sélectionnée est composée de " & nbr_of_segments & " segments." End Sub Bonne utilisation LB

Bonjour, Lii2006, sais tu qu'il est interdit d'utiliser extender sur LT. c'est considerer comme du piratage. regarde les clauses autodesk ;) @plus

Bonjour, lili2006 quand tu tapes quelle commande ? @plus

Bonjour, est ce possible d'avoir ce bloc afin que je puisse regarder ? Merci @plus

bonjour, Via le site http:// http://www.cjoint.com/ @plus

Bonsoir, la seule façon d'automatisée ce que tu recherches c'est de creer des scripts: si tu veux ,donne nous ton fichier excel pour que je regarde une petite macro. @plus

Bonsoir, Regardes la commande: mettreajourchamp j'espère que cela va t'aider. @plus

bonsoir, Bizarre...... ;) essaies de faire cette manip. tapes la commande: WBLOC puis tape TOUT puis pour le point d'origine 0,0,0 ouvres ce nouveau dessin et dis nous si cela fonctionne? @plus

Bonsoir, lili2006 je crois que xleric veut des polylignes 3D pour faire un mnt!!!! xleric qu'elle version de covadis utilises tu? car normalement il n'y a pas de probleme avec la commande clipping de covadis. je l'utilise souvent!!!! peux tu nous expliquer ce qu'il se passe ? @plus

Bonsoir, bon je crois que je vais en rajouter une p'tit couche ;) donc voila je vais decrire ce que je ferai: 1 degroupage des profils par controle + h 2 changer la couleur des cadres: commande CHANGER puis T (pour trajet) puis valider une fois les cadres selectionnés, puis P (pour proprieté) puis CO (pour la couleur) puis mettre comme valeur 255. 3 Voila le tour est joué. ==> pourquoi ? les cadres n'apparaissent plus lors de l'impression. et si nous supprimons les cadres plus possible de faire des impressions automatisées. allez bonne soirée à vous. @plus

Bonsoire, Bon je vais donner une p'tit astuce afind de repondre a la question sans se prendre les neurones. Je propose juste de changer la couleur des cadres. ==> aller dans le gestionnaire de calque et de mettre la couleur 255. Pour info cette couleur n'apparait pas lors des impressions. @plus

Bonjour, D'après les miennes de source, je crois bien que les premiers envoi sont partis. @plus PS: Ce week end va etre chargé.

Bonsoir lili2006, Pour t'aider pourrait on avoir un exemple avec un fichier joint. Merci @plus [Edité le 5/2/2008 par lovecraft]

bonjour, oui je veux bien cf mail ci-dessus. @plus

Merci de vos reponse, j'ai essayer de telecharger pamcad mais l'acces est restreint . Peut on me le transmettre via yousendit ou autres? @plus mail: barraud.laurent@ecartip.fr

Bonsoir, je recherche des blocs, type coude pvc, culotte etc... et des coupes type style regard avec chute accompagnée pour les eaux usées. Merci de votre aide @plus

bonsoir, voici peut etre ce que tu recherches ? (defun c:test (/ nomcalque ms) (setq nomcalque (cdr(assoc 8 (entget(car(entsel "\nSélectionne un élément:")))))) (setq ms (strcat "Le nom du calque est: " nomcalque)) (alert ms) (initget "Oui Non") (setq reponse (getkword "\nVoulez vous geler ce calque (Oui/Non):")) (if (= reponse "Oui") (command "-calque" "in" nomcalque "") "") ) @plus[Edité le 3/2/2008 par lovecraft] [Edité le 3/2/2008 par lovecraft]

Bonsoir, Tu peux aussi utiliser la commande wipeout pour masque une partie de ton dessin. @plus

bonsoir, voila ma reponse mais je bloque sur la fin ? j'ai dû râter une étape (defun c:teste (/ jsbloc ed nvnombloc) (setq jsbloc (car (entsel "\nselectionne un bloc :"))) (setq ed (entget jsbloc)) (setq nvnombloc (getstring "\nIndiquez le nouveau nom :")) (setq ed (subst (cons 2 nvnombloc) (assoc 2 ed) ed)) (entmod ed) ) merci de l'aide @plus

aH Gile toujours aussi rapide... Par contre j'ai essayer en lisp en faisant: (setq js (ssget "X" '((6 . "CACHE")))) et la aussi, le jeu ne contient que les lignes forcés "POURQUOI". N'y a t il pas moyen de faire un jeu de selection qui selectionne toutes les entités dont le type de ligne forcé ou non soit "cache". Merci @plus

bonnsoir, tapes juste ep sur la ligne de commande pour revenir dans l'espace papier. @plus

Ben voilà le résultat..... http://images.imagehotel.net/5nx7dhf8jv.jpg Va falloir faire un championnat ;) @plus

bonjour, De la photographie en 3D. Photosynth à decouvrir sur : http:// http://labs.live.com/photosynth/ Alors qu'elles sont vos impressions? @plus [Edité le 27/1/2008 par lovecraft]

bonjour, ce que tu peux faire c'est d'ouvrir ta palette d'outils de memoire ctrl+3 puis tu crees une nouvelle palette et la tu glisses ton bloc dedans (te renomme ton bloc et voila le tour est joué) @plus

bonjour, Non il n'est pas payant Ce que je te conseille c'est faire faire un reinstallation de ce menu, en inserant ton disque original d'autocad. pour ce qui est de la langue, oui c'est normale qu'il soit en anglais. (tu peux trouver sur le net des versions francaise mais moins complete. @plus