Fraid

Bonjour, Un lisp qui fonctionne avec des champs inserés dans des simples textes. (DEFUN C:ADDITION () (SETQ ADDIT NIL SS NIL EN NIL ED NIL AS NIL A_TXT NIL NEW_TXT NIL ) (SETQ A_TXT 0) (PROMPT "\nSELECT TEXT TO ADD TOGETHER: ") (SETQ SS (SSGET)) (WHILE (> (SSLENGTH SS) 0) (SETQ EN (SSNAME SS 0)) (SETQ ED (ENTGET EN)) (SETQ AS (CDR (ASSOC '0 ED))) (IF (= AS "TEXT") (_TXT) ) (SSDEL EN SS) ) (SETQ ADDIT NIL SS NIL EN NIL ED NIL AS NIL A_TXT NIL NEW_TXT NIL ) (PROMPT (STRCAT "\nTOTAL NUMBER IS : " NEW_TEXT)) ) (DEFUN _TXT () (SETQ A_TXT (+ (DISTOF (CDR (ASSOC '1 ED)) 3) A_TXT)) (SETQ NEW_TEXT (RTOS A_TXT 2 2)) (SSDEL EN SS) ) Désolé pour l'auteur, je ne sais plus d'ou il vient...

Bonjour, Il y a celle de notre ami Rebcao http://www.rebcao.fr/docs-rebcao/variables_syst%E8mes_AutoCAD_2Mxx-TOUTES_les_VARS-2010.pdf Si tu as les expresstools tu peux aussi utiliser _.sysvdlg

pas reveillé aujourd'huis j'aurais du le voir.... merci

Bonjour, Je dois nettoyer des plans de leurs polylignes presque rectangle voir exemple ci-joint http://dl.free.fr/pAvbqqACz J'ai essayer avec ce code (defun c:delpolrec (/ pol ListSom p1 p2 p3 p4 d1 d2 d3 d4) (setq spol (ssget "x" (list (cons 0 "LWPOLYLINE") (cons 90 5))) i 0 ) (if spol (progn (repeat (sslength spol) (setq pol (ssname spol (1+ i)) ListSom (listSomPol pol) p1 (car ListSom) p2 (cadr ListSom) p3 (caddr ListSom) p4 (cadddr ListSom) d1 (fix(distance p1 p2)) d2 (fix(distance p2 p3)) d3 (fix(distance p3 p4)) d4 (fix (distance p4 p1)) ) (if (or(= d1 d3) (= d2 d4))(command "_erase" pol "")) ) ) ) ) ;; Liste les sommets de la LWPOLYLIGNE (code cadxp) (defun listSomPol ( pol / x) (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget pol) ) ) ) Malheureusement il ne fonctionne qu'une fois avant de me mettre l'erreur ; erreur: type d'argument incorrect: point 2D/3D: nil :casstet: comprend pas pourquoi ???? (peut etre parcequ'il y a cinq sommets dont 2 egaux) et n'y aurait il pas une autre façon d'y arrivé (sans compter le nombre de sommets) ? car il y a quelques cas ou les presque rectangles on un ou deux sommets supplementaires sur leur grand coté. Merci

Bonjour, La base de registre et le registre sont la meme chose. Il me semble que c'est a partir de Windoxs XP que cela s'appel le registre (à confirmer, c'est peut etre windows 2000) On y accède directement en cliquant sur Démarrer/Exécuter puis Tapper regedit Faire trés attention quand on fait une modification. N'en faire qu'une a la fois et redémarrer son PC a chaque fois. Bonne exploration

fpascal13 dit qu'il est deja calé dans un systeme Donc orienté Mais j'insiste bien que la methode en 1 point n'est valable que si on est orienté et que le levé soit petit (petite parcelle cadastrale) Dans mon activité je ne peux pas me permetre d'avoir d'application perpendicilaire a Autocad Quand il faut que je cale un levé topo, il faut que je me debrouille. Quand j'ai un cheminement de plusieurs kilometres je le morcelle par tronçon de 500m pour compenser l'erreur que produit la commande aligner (elle n'ai pas enorme) La plupart de mes client me demande des dwg sans trace. C'est comme cela que l'on se met au lisp en immitant les outils des applications baveuses. J'avoue que j'utilise commeme un covadis(2004) sur un vieux poste pour dessiner mes carroyage et les MNT (trés rapide) Mais travaillant aussi pour des Architectes ou des fabricants de moules Plastiques (cela m'arrive de travailler dans les 3 echelles dans la meme journée...) je suis bien obligé de plier Autocad a mes volontés + de 20 ans de mesure et de dessin dans different domaines j'ai presque oublier les Rotrings :cool:

Je suis d'accord avec toi LILI sur le principe Mais sur un petit levé cela n'a pas d'interet (a moins de vouloir etre precis au millimetre.. Je prend 2 points sur un cheminement, la c'est obligatoire sur levé d'une parcelle, faut voir l'interet de ce prendre la tete Donc repondre dans les "regles" (avec une version ordinaire d'autocad) Tu transforme toute ta volée en bloc avec comme point de base le premier point (situé de préference a une extremité de ton levé) que tu va calculer sur circée tu deplace ton ensemble Tu calcule la position d'un deuxieme point a l'autre extremité et tu place avec la commande point un point au coordonnée calculées Puis t' utilise la commande aligner (en mettant a l'echelle) pour placer ton bloc parfaitement sur tes deux points Tu verra que tu n'aura pas beaucoup a tourner sur un levé de 300pts :P

Bonjour, Je pense que tu as besoin d'un cours de dessin topographique. Tu ne dois calculé dans Circé que la position [surligneur]d'un seul point[/surligneur]. (puisque c'est un petit levé) Puis du déplace l'ensemble de ton levé par rapport a ce point. Si tu ne comprend pas ce que je te dis, c'est mort.

Le format A4 aussi est exemple Tu peux choisir un autre format de document avant d'importer ton dwg et évidement choisir un cadre equivalent @+

Et personnellement je préfère créer mes Variables directement dans le registre dans un dossier personnel (on pollue moins) je me suis fait 2 petite fonctions (defun PUT-var (RegVar RegVal) (vl-registry-write "HKEY_CURRENT_USER\\Software\\Dev\\Test" RegVar RegVal ) (princ) ) (defun GET-var (RegVar) (setq ExtVal (vl-registry-read "HKEY_CURRENT_USER\\Software\\Dev\\Test" RegVar ) ) ExtVal ) Dans les lisps qui les utilisent, je ne les déclare pas, elle devienne globale a la premiere lecture [Edité le 2/12/2010 par Fraid]

Pour info, les variables d'environnement sont dans HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R18.0\ACAD-8001:40C\FixedProfile\General pour autocad 2010 windows xp64

Et pour le nombre de caracteres (je n'ai pas vu qu'il en parlais sur ce site) Le nombre maximum de caractères Unicode dans une clé est de 255. Le nombre maximum de caractères Unicode dans un Nom de la valeur est 16383

Bonjour, Un p'tit lien pour la base de registre. http://leregistre-fr.net/astuces/bases/Comprendre-la-base-de-registre-23.html

Bonjour, Tu selectionne ta cote Fouille un peu dans la fenetre de proprietées Dans la partie Texte tu as Remplacement du texte. Tu y met ce que tu veux Mais c'est vrais que c'est extremement déconseillé Je te conseil de prévenir les destinataires de ces plans Soit en placeant un Symbole devant ta cote forcée Soit les placées dans un calque du genre "Cotes Forcées" ou comme tu veux, car cela déplait enormement ;)

OK Merci Lili et Gile, Effectivement il faut "entrer" dans la fenetre pour que cela apparaisse dans la liste. toujours content d'apprendre un truc ;)

Bonjour, Je suis désolé Lili, mais sur une 2010 je n'ai pas Échelle de la fenêtre" et "Verrouiller la fenêtre"

Bonjour, Bonne question! Je copie l'objet d'un espace a un autre avant de faire cela. C'est vrai que cela devrait etre possible, ce l'est bien d'un dessin a un autre...

Bonjour, Peut etre a cause du mode dynamique (F12) ???

comme j'ai mis du temps a trouver le temps je ne savais plus que c'etait ce post merci ;)

Je ne suis pas un specialiste de covadis tu aurai du poser ta question dans le bon Forum Désolé

Bonjour, Je n'ai jamais vu cela dans un Autocad "classique". Mais sachant bien que je suis loin d'avoir tout vu .... Donc est tu sur que tu ne travaillais pas avec une application perpendiculaire (map, covadis...)

Merci beaucoup en fait, je me prenais les pieds dans les parenthéses.... je ne sais pas pourquoi j'ai du mal avec cette fonction avec Lamda encore pire mais grace a vous je vais y arriver :D

Bonjour, http://www.cesyam.fr/vw_html/animations/_galerie_video_vw.html#2 Tu vas pouvoir aprendre les base sans meme avoir le logiciel :D

Bonjour, Pourrait tu reformulé ta question, car je ne comprend pas ce que tu veux faire? Détacher (clic droit dans la liste /detaché).... :casstet:

Bonjour, Tu rentre tout tes points puis tu deplace l'ensemble au coordonnées calculé avec circée